Fórum Executa .exe apartir de existência . Urgente !!!! #192850
04/11/2003
0
Caros Colegas ;
Queria desenvolver uma rotina que é o seguinte :
Na hora em que o usuário abre o programa , o mesmo verifica se existe um determinado arquivo no pc , como por exemplo : Validade.dat . Se por um acaso esse arquivo não estiver instalado no PC , o programa exibe uma mensagem : Erro , Sistema vencido ! e o programa é FECHADO !!!!
Para se unier com esse rotina , QUERIA desenvolver uma rotina que ao chagar no dia tal , o sistema apague esse arquivo Validade.dat .
Agradeço a atenção de todos vocês !!!!
Queria desenvolver uma rotina que é o seguinte :
Na hora em que o usuário abre o programa , o mesmo verifica se existe um determinado arquivo no pc , como por exemplo : Validade.dat . Se por um acaso esse arquivo não estiver instalado no PC , o programa exibe uma mensagem : Erro , Sistema vencido ! e o programa é FECHADO !!!!
Para se unier com esse rotina , QUERIA desenvolver uma rotina que ao chagar no dia tal , o sistema apague esse arquivo Validade.dat .
Agradeço a atenção de todos vocês !!!!
Tiagojmilam
Curtir tópico
+ 0
Responder
Posts
04/11/2003
Rômulo Barros
Procedure VerificaArquivo;
Begin
if(fileExists(´C:\Arquivos de programas\arquivo.txt´))Then
Begin
Messageldg(´ERRO, SISTEMA VENCIDO !!´,mtError,[mbOk],0);
Application.Terminate; //Encerrar o Sistema
End
Else//Se o arquivo existir entao....
Begin
TaNaHoraDeExpirar; // Chamada da função que apagará o arquivo..
End;
End;
Function TaNaHoraDeExpirar : Boolean; //Evento OnCreate do MainForm
Var
Registro : TRegistry; // Uses Registry;
Ano, Mes, Dia : Word;
Begin
Registro := Tregistro.Create(Nil);
Registro.Openkey(´Software/MeuPrograma´,true);
If(Not Registro.ValueExists(´expirar´))Then
Begin
DecodeDate(Date, Ano, Mes, Dia);
Registro.WriteBoolean(´Expirar´,false);
Registro.WriteInteger(´Mes´, Ano);
Registro.WriteInteger(´Mes´, Dia);
Registro.WriteInteger(´Mes´, Mes);
End
Else
Begin
DecodeDate(Date, Ano, Mes, Dia);
If(Mes <> Registro.ReadInteger(´Mes´) And (Dia >= Registro.ReadInteger(´Dia´)))Then // Já se passaram 30 dias.. vai expirar..
Begin
If(FileExists(´C:\Arquivos de programas\arquivo.txt´))Then
DeleteFile(´C:\Arquivos de programas\arquivo.txt´);
End;
End;
Registro.CloseKey;
FreeAndNil(Registro);
End;
[color=red:5db8320069]OBS: NÃO TESTEI O CÓDIGO....
ASS: RÔMULO MANOEL[/color:5db8320069]
Begin
if(fileExists(´C:\Arquivos de programas\arquivo.txt´))Then
Begin
Messageldg(´ERRO, SISTEMA VENCIDO !!´,mtError,[mbOk],0);
Application.Terminate; //Encerrar o Sistema
End
Else//Se o arquivo existir entao....
Begin
TaNaHoraDeExpirar; // Chamada da função que apagará o arquivo..
End;
End;
Function TaNaHoraDeExpirar : Boolean; //Evento OnCreate do MainForm
Var
Registro : TRegistry; // Uses Registry;
Ano, Mes, Dia : Word;
Begin
Registro := Tregistro.Create(Nil);
Registro.Openkey(´Software/MeuPrograma´,true);
If(Not Registro.ValueExists(´expirar´))Then
Begin
DecodeDate(Date, Ano, Mes, Dia);
Registro.WriteBoolean(´Expirar´,false);
Registro.WriteInteger(´Mes´, Ano);
Registro.WriteInteger(´Mes´, Dia);
Registro.WriteInteger(´Mes´, Mes);
End
Else
Begin
DecodeDate(Date, Ano, Mes, Dia);
If(Mes <> Registro.ReadInteger(´Mes´) And (Dia >= Registro.ReadInteger(´Dia´)))Then // Já se passaram 30 dias.. vai expirar..
Begin
If(FileExists(´C:\Arquivos de programas\arquivo.txt´))Then
DeleteFile(´C:\Arquivos de programas\arquivo.txt´);
End;
End;
Registro.CloseKey;
FreeAndNil(Registro);
End;
[color=red:5db8320069]OBS: NÃO TESTEI O CÓDIGO....
ASS: RÔMULO MANOEL[/color:5db8320069]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)