citação:Seja Bem Vindo ao Forum..
Primeiro altere seu perfil para sabermos o que voce usa tais como
Versão do FiveWin
Versão do xHarbour <- USO ESTE E Jà COLOQUEI NO PERFIL
e o que usa para compilar
tente Assim
para não abrir o programa +1 de uma vez..
IF(IsExeRunning("cfilenma"))
MsgInfo("O programa já está aberto, verifique na barra do Windows. "," ..:: Atenção ::..")
RETURN(NIL)
ENDIF
>>> DEU ERRO A ROTINA ACIMA, TEM QUE ADICIONAR ALGUMA LIB?
Para a Tela cheia tente..
*------------- by Sigecom
#include "GTINFO.ch"
do case // Identifica a resolucao do video
case Gtinfo(GTI_DESKTOPWIDTH) > 1023
Gtinfo(GTI_FONTWIDTH, 12)
Gtinfo(GTI_FONTSIZE, 27)
case Gtinfo(GTI_DESKTOPWIDTH) > 799
Gtinfo(GTI_FONTWIDTH, 10 )
Gtinfo(GTI_FONTSIZE, 22 )
otherwise
Gtinfo(GTI_FONTWIDTH, 8)
Gtinfo(GTI_FONTSIZE, 17)
endcase
>> NÃO COLOCOU NA TELA TODA, USO HARBOUR 1.0 + GTWVW
Luiz Arruda - Corumbá/MS
FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65
ico.corumba@gmail.com
id=quote>id=quote>