Código: Selecionar todos
***************
Function AJUSTA
***************
vWIN=0
IF File("C:\CONFIG.SYS") //WIN98 E 95
vWIN=1
ENDIF
IF File("C:\WINDOWS\SYSTEM32\CONFIG.NT") // WIN XP
vWIN=2
ENDIF
IF File("C:\WINNT\SYSTEM32\CONFIG.NT") // WIN 2000
vWIN=3
ENDIF
fflag := .t. // flag para FILES
cflag := .t. // flag para BUFFERS
cline:=''
IF vWIN=1
fhandle := fopen("C:\CONFIG.SYS")
d_arq = fcreate("C:\CONFIG.BAK",0) // back-up
ELSEIF vWIN=2
fhandle := fopen("C:\WINDOWS\SYSTEM32\CONFIG.NT")
d_arq = fcreate("C:\CONFIG.BAK",0)
ELSEIF vWIN=3
fhandle := fopen("C:\WINNT\SYSTEM32\CONFIG.NT")
d_arq = fcreate("C:\CONFIG.BAK",0) // back-up
ENDIF
do whil freadln(fhandle,@cline,LINE_SIZE)
if 'FILES'$uppe(cline)
cline := 'FILES=100'
fflag := .f.
elseif 'BUFFERS'$uppe(cline)
cline := 'BUFFERS=30'
cflag := .f.
endif
fwriteln(d_arq,cline)
enddo
if fflag
fwriteln(d_arq,'FILES=100')
endi
if cflag
fwriteln(d_arq,'BUFFERS=30')
endi
fclose(fhandle)
fclose(d_arq)
IF vWIN=1
COPY FILE C:\CONFIG.BAK TO C:\CONFIG.SYS
ELSEIF vWIN=2
COPY FILE C:\CONFIG.BAK TO C:\WINDOWS\SYSTEM32\CONFIG.NT
ELSEIF vWIN=3
COPY FILE C:\CONFIG.BAK TO C:\WINNT\SYSTEM32\CONFIG.NT
ENDIF
IF vWIN=1
fhandle := fopen("C:\AUTOEXEC.BAT")
d_arq = fcreate("C:\AUTOEXEC.BAK",0)
ELSEIF vWIN=2
fhandle := fopen("C:\WINDOWS\SYSTEM32\AUTOEXEC.NT")
d_arq = fcreate("C:\AUTOEXEC.BAK",0)
ELSEIF vWIN=3
fhandle := fopen("C:\WINNT\SYSTEM32\AUTOEXEC.NT")
d_arq = fcreate("C:\AUTOEXEC.BAK",0)
ENDIF
do whil freadln(fhandle,@cline,LINE_SIZE)
if 'SET PLL='$uppe(cline)
elseif 'SET CLIPPER='$uppe(cline)
elseif 'IF NOT EXIST C:\TEMP MD C:\TEMP'$uppe(cline)
else
fwriteln(d_arq,cline)
endi
enddo
fwriteln(d_arq,'IF NOT EXIST C:\TEMP MD C:\TEMP')
fwriteln(d_arq,'SET CLIPPER=//F:121//DYNF:8//BADCACHE//SWAPK:65535//SWAPPTAH:"C:\TEMP"//TEMPPATH:"C:\TEMP"')
fclose(fhandle)
fclose(d_arq)
IF vWIN=1
COPY FILE C:\AUTOEXEC.BAK TO C:\AUTOEXEC.BAT
ELSEIF vWIN=2
COPY FILE C:\AUTOEXEC.BAK TO C:\WINDOWS\SYSTEM32\AUTOEXEC.NT
ELSEIF vWIN=3
COPY FILE C:\AUTOEXEC.BAK TO C:\WINNT\SYSTEM32\AUTOEXEC.NT
ENDIF
return nil
Para baixar o BLinker, clique aqui. A documentação está junto na forma forma de um HLP, que é em inglês. Não adianta querer fugir do inglês. Vai ter que encarar um dia.Marsenne escreveu:Eu utilizo o RTLINK até hoje pois não entendo do BLINKER. Existe alguma documentação em português do BLINKER e onde posso baixá-lo?
Código: Selecionar todos
BLINKER INCREMENTAL OFF
BLINKER OVERLAY PAGEFRAME ON
BLINKER EXECUTABLE CLIPPER //F:200 //DYNF:8 //E:1024
BLINKER EXECUTABLE NODELETE
BLINKER EXECUTABLE COMPRESS 9
BLINKER EXECUTABLE EXTENDED
NOBELL
OUTPUT C:\BR\SISTEMA
#acima o nome do executavel que sera gerado se for omitido será
#o nome do programa principal e será gerado na mesma pasta
BEGINAREA
FILE SISETMA
FILE FUNCOES
FILE UTIL
FILE __WAIT
FILE TIMESLIC
FILE FULLSCRN
ENDAREA
#Acima você deverá especificar cada OBJ da sua aplicação
LIB C:\CLIPPER5\LIB\VL2_52
LIB C:\CLIPPER5\LIB\BLXCLP52
LIB C:\CLIPPER5\LIB\CLIPPER
LIB C:\CLIPPER5\LIB\EXTEND
LIB C:\CLIPPER5\LIB\TERMINAL
LIB C:\CLIPPER5\LIB\DBFNTX
#Acima você deve especificar as LIBs que são usadas na sua aplicação
#As que são padrão do clipper não precisam ser especificadas
#Mas neste caso você terá que ter a linha SET LIB no AUTOEXEC
O caractere # é usado para inserir um comentário no arquivo de script
Marcelo, conforme diz o help do BLinker (vide o help do comando), não será possível usar esse valor de 240 se não houver no CONFIG.SYS um valor maior ou igual a este. Portanto, não dá pra escapar de ajustar o CONFIG. Isso é compreensível, haja vista que o valor de FILES é uma variável de ajuste do SO. O BLinker não tem como aumentar isso por sua própria conta. Só pode diminuir.Clipper escreveu:Se você preferir pode também usar o Blinker para linkar seu sistema e esquecer esse problema de sempre ter que configurar o AUTOEXEC e CONFIG e serve para qualquer versão, basta no seu scrip de linkagem usar :
BLINKER EXECUTABLE CLIPPER //F:240 //DYNF:8
ou se preferir usar seus próprios ajustes.
Ah, sim. É quase igual ao caso da efetivação da alteração do AUTOEXEC.NT no XP. Há quem altere o AUTOEXEC.NT e ele já faz diferença na próxima sessão DOS aberta. Pra mim não dá. Tenho que rebootar. Por essas e outras, não mexo mais nisso. Variáveis de ambiente eu altero diretamente no Registry.Clipper escreveu:Motivo pra eu não acreditar em tudo que o Windows diz :
No AUTOEXEC.NT do XP é informado que o XP não processa o AUTOEXEC.BAT, mentira ! O XP processa normalmente o AUTOEXEC.BAT sem que seja necessária qualquer ateração no XP.