Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/
Código: Selecionar todos
aeval(directory("CONTAS.EXE"),{|x|ferase(x[1])})
Código: Selecionar todos
LOCAL cFile, aDir, dExe
IF FILE( "C:\INST_NFE\NFe_Util_2Gv2.03a.exe" )
cFILE := "C:\INST_NFE\NFe_Util_2Gv2.03a.exe" // 03/09/2014
aDIR := DIRECTORY( cFILE ) // para extrair a data do .EXE
dEXE := aDIR[1] [3] // Data do .exe no diretorio C:\INST_NFE
cVersaoFlex := DTOC( dEXE ) + " - " + OemToAnsi( "VersÆo: 2Gv2.03a" )
// 06/11/2014 15:23 2.131.568 NFe_Util_2Gv1.1f_PL006p.exe
ELSEIF FILE( "C:\INST_NFE\NFe_Util_2Gv1.1f_PL006p.exe" )
cFILE := "C:\INST_NFE\NFe_Util_2Gv1.1f_PL006p.exe" // 06/11/2013
aDIR := DIRECTORY( cFILE )
dEXE := aDIR[1] [3] // Data do .exe no diretorio C:\INST_NFE
cVersaoFlex := DTOC( dEXE ) + " - " + OemToAnsi( "VersÆo: 2Gv1.1f" )
ELSE // Ignore a mensagem em Fivewin, ponha em modo console.
MsgStop( OemToAnsi( "ATEN€ÇO USUµRIO: CUIDADO!" )+CRLF+ ;
OemToAnsi( "NECESSµRIO A PARTIR DA VERSÇO 3.71 DA NF-E." )+CRLF+ ;
OemToAnsi( "O INSTALADOR DA FLEXDOCS NÇO FOI LOCALIZADO" )+CRLF+ ;
OemToAnsi( "NO DIRETàRIO C:\INST_NFE " )+CRLF+ ;
OemToAnsi( "INFORME ESTE PROBLEMA AO SUPORTE URGENTE! " )+CRLF+ ;
OemToAnsi( "TECLE <ENTER> PARA CONTINUAR... " ), ;
OemToAnsi( "O INSTALADOR DA FLEXDOCS NÇO FOI LOCALIZADO" ) )
dEXE := " " // nao achou o executavel
ENDIF
Código: Selecionar todos
* $Id: dirtest4.prg,v 1.2 2004/03/03 04:48:39 ronpinkas Exp $
*
* Test program for extended DirectoryRecurse()
*
* Syntax : DirectoryRecurse( <cPath> )
*
* cPath = wild card skleton including path name
*
* Andi Jahja
*
//------------------------------------------------
PROCEDURE Main()
? "Will get ALL *.EXE file in C:\WINDOWS and SUB folders. Press any key ...."
Inkey(0)
? "Working ..."
Showit( DIRECTORYRECURSE( "C:\WINDOWS\*.EXE" ) )
?
? "Will get ALL *.DLL file in C:\WINDOWS and SUB folders. Press any key ...."
Inkey(0)
? "Working ..."
ShowIt( DIRECTORYRECURSE( "C:\WINDOWS\*.DLL" ) )
? "Will get ALL *.OCX files in C:\WINDOWS and SUB folders. Press any key ...."
Inkey(0)
? "Working ..."
ShowIt( DIRECTORYRECURSE( "C:\WINDOWS\*.OCX" ) )
? "Will get ALL *.PRG file in CURRENT and SUB folders. Press any key ...."
Inkey(0)
? "Working ..."
ShowIt( DIRECTORYRECURSE( "*.PRG" ) )
RETURN
//------------------------------------------------
STATIC PROCEDURE ShowIt( aDir )
LOCAL aFile
FOR EACH aFile IN aDir
? PadR( aFile[1], 38 ), Transform( aFile[2], "999,999,999,999" ), aFile[3], aFile[4], aFile[5]
NEXT
?
? Len( aDir), "files listed."
?
RETURN
Código: Selecionar todos
if data > 14/12/2014
Quit // Sai de fininho...
endifConcordo 100% com o que o colega Rochinha disse. A rotina de atualização, deverá ser baixado em diretório temporário e a espera que o usuário feche o aplicativo e jamais ser apagado. Derrubar a aplicação é algo muito sério ! Depois o usuário poderá encontrar problemas na base de dados. Há conceitos que devem ser revisto e tudo deve funcionar de forma segura, completa e atendendo sempre a ética. Se o usuário questionasse o porquê o executável sumiu a uma Microsoft ou qualquer empresa grande de software, seria causa ganha. mesmo tenha expirado o período de utilização.rochinha escreveu:Em tempo de execução não é possivel você derrubar o aplicativo. O aplicativo não é louco de cometer suicídio, ka,ka,ka.
Eu entendo o seu procedimento como se estivesse atualizando o aplicativo em uso.
Você, ordena que o aplicativo se feche, mas precisa antes ordenar outro procedimento ou script.
Ao invés de deletar o arquivo, apenas não permita sua execução.
Entenda que se voce presta serviço para alguém e deste serviço consta que ele usará seu aplicativo, o executável é posse do contratante. Você estipula em contrato um período pelo qual "aguarda" o restauro do serviço por parte do contratante no que tange os pagamentos mensais e só depois de X tempo voce pode rescindir o contrato e eliminar o aplicativo.
Coloque data para que ele pare, mas que continue lá.
Coloque verificações para impedir de o usuário retornar a data do computador e continuar usando o aplicativo. Grave no registro, arquivo .MEM, CONFIG.COM, MSDOS.SIS, qualquer coisa e deixe esta data de expiração protelar por alguns dias após o vencimento.