Moderador: Moderadores
Código: Selecionar todos
***********
FUNC 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)
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)
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
Código: Selecionar todos
SCRIPT DE COMPILAÇÃO -> SIS.CLP
prog_0.prg //programa principal
prog_1.prg
prog_2.prg
....
prog_N.prg
SCRIPT DE LINKEDIÇÃO -> SIS.LNK
FILE SIS,c:\clip53\TIMESLIC // OBJs utilizados
OUTPUT SIS // Nome do EXECUTÁVEL
BLINKER INCREMENTAL OFF
BLINKER EXECUTABLE CLIPPER F250
BLINKER PROCEDURE DEPTH 140
BLINKER EXECUTABLE NODELETE
BLINKER EXECUTABLE COMPRESS 1
BLINKER EXECUTABLE EXTENDED
SEARCH BLXCLP53
//--------------------------------------- LIBs Utilizadas
LIB CLIPPER
LIB EXTEND
LIB DBFNTX
LIB TERMINAL
LIB CTP
SCRIPT DO "BAT" DE COMPILAÇÃO/LINKEDIÇÃO -> SIS.BAT
SET INCLUDE=C:\CLIP53
SET LIB=C:\CLIP53
SET OBJ=C:\CLIP53
SET PLL=C:\CLIP53
\CLIP53\CLIPPER @SIS /M /O
\CLIP53\BLINKER @SIS
Código: Selecionar todos
NOBELL
Blinker Incremental Off
Blinker Cache EMS 50%,50%
Blinker Cache XMS 50%,50%
Blinker Link EMS ON
Blinker Link XMS ON
Blinker Exec Clipper //Dynf:8 //F:254
Blinker Exec Comp 1
Blinker Exec Exte
Blinker Exec NODELETE
Blinker Memo Pack 60
Search BlxRatex
Search BlxClp53
Blinker Incr Pad 256
Blinker Over Page On
Blinker Over Opsi 60
Blinker Procedure Depth 70
OutPut Sistema
DEFBEGIN
name FatAll
description 'Sistema de Auto GestÆo Integrado'
#exetype Windows 3.1
code moveable discardable preload
data preload moveable
stacksize 9500
heapsize 1024
segment 'PLANKTON_TEXT' nondiscardable
segment 'EXTEND_TEXT' nondiscardable
segment 'OM_TEXT' nondiscardable
segment 'OSMEM_TEXT' nondiscardable
segment 'SORTOF_TEXT' nondiscardable
segment 'STACK_TEXT' nondiscardable
DEFEND
FILE SAGI
FILE MENUS
FILE __WAIT
FILE WFULLSCR
LIB CLIPPER,EXTEND,VL2,CTP,DBFCDX,_DBFCDX,SYGECOMUma lembrança: a especificação F250 não garante a criação de espaço para a abertura de 250 arquivos, a menos que o próprio sistema operacional tenha sido configurado (FILES) com, no mínimo, 250. Ou seja, você até pode informar a quantidade que quiser no BLinker (ou mesmo em linha de comando: SET CLIPPER=F250, por exemplo). Mas não adiantará nada se o DOS não tiver sido "bootado" com um FILES de valor igual ou maior. Tudo isso é confirmado pelo help do BLinker.Augusto escreveu:No script que postei aqui, a linha "BLINKER EXECUTABLE CLIPPER F250" da qual o Marcelo se refere o F250 em evidencia quer dizer extamente a mesma coisa do "FILES=250" do config.sys, por isso não há necessidade de usá-la no CONFIG.NT
Nunca usei o Windows Me. Sempre que um cliente tinha eu pedia pra trocar. Por isso faço a pergunta: qual a dificuldade com ele?sygecom escreveu:Aproveitando alguem sabe alterar os FILES em WINDOWS ME atraves do CLIPPER ??
Bom na verdade tenho Representantes na Rua vendendo meu sistema e eles so sabem o pratico e claro sabem vender...mas eles nao sabem configurar os FILES.Maligno escreveu:Nunca usei o Windows Me. Sempre que um cliente tinha eu pedia pra trocar. Por isso faço a pergunta: qual a dificuldade com ele?
alguem tem alguma soluçao ??Ah, sim. Cada caso é um caso. Felizmente não tenho esse problema. Como sou eu mesmo que vendo e nunca busco cliente nenhum, só atendo indicações, eu já chego no cliente com uma motivação diferente (ele me chamou). E quando encontrava alguém com Me, diplomaticamente, lançava argumentos bons o suficientes para convencê-los a trocar. Sempre deu certo.sygecom escreveu:A questao e que naum posso simplesmente pedir para todos que queiram testar meu sistema que usem o WIN98,2000 ou XP.....claro o bom seria, tenho clientes que eu digo que tem que ter o WIN98 ou XP.
Ainda não entendi qual a dificuldade de configurar o CONFIG.SYS do Me em comparação com o 98, por exemplo. É diferente? Realmente, nunca nem cheguei perto de Me.Entaum o meu sistema tem que saber qual o windows o cliente tem e ir no lugar certo para alterar o FILES ....e no WIN-ME eu me dou mal.....o que fazer
