Fórum Apagar um arquivo em uma pasta caso exista #332200
27/10/2006
0
Fiz uma rotina para um programa que ele manda para o computador um arquivo liberado.ini, o computador do usuario quando lê a existencia do arquivo liberado.ini, libera o uso do computador. O que acontece, que nessa rotina eu acrescentei um linha de código que apaga a existencia desse arquivo, só que não esta apagando, ou seja na proxima vez que o usuário ligar o computador, o programa vai ver que exisitir o arquivo liberado.ini e vai liberar o uso do computador ..... alguem poderia me dar uma solução de eu apagar esse arquivo a rotina esta abaixo mais não funciona, teria que funcionar mais não funciona.
procedure Tform.Timer1Timer(Sender: TObject);
var
ArquivoTexto: TextFile;
Mensagem, Local: String;
begin
if FileExists(´C:\Mensagem\liberado.ini´) then
begin
WinExec(´Command.com /c Del C:\Mensagem\liberado.ini´, 0);
Timer1.Enabled:= false;
EscondeTaskBar(true);
fecha := true;
Close;
end;
end;
procedure Tform.Timer1Timer(Sender: TObject);
var
ArquivoTexto: TextFile;
Mensagem, Local: String;
begin
if FileExists(´C:\Mensagem\liberado.ini´) then
begin
WinExec(´Command.com /c Del C:\Mensagem\liberado.ini´, 0);
Timer1.Enabled:= false;
EscondeTaskBar(true);
fecha := true;
Close;
end;
end;
Jcmsistemas
Curtir tópico
+ 0
Responder
Posts
27/10/2006
Marcelo_mileris
Já tentou usar a função DeleteFile?
var
Err : Integer;
begin
if DeleteFile(PChar(´C:\Documents and Settings\Marcelo\Desktop\del\teste.txt´)) then
begin
MessageBox(Handle,´Arquivo excluido com sucesso!!!´,´Atenção´,mb_ok + mb_iconexclamation);
end else
begin
Err := GetLastError;
MessageBox(Handle,´Erro ao tentar excluir o arquivo´,PChar(´Erro #´ + IntToStr(Err)),mb_ok + mb_iconerror);
end;
Responder
Gostei + 0
28/10/2006
Jcmsistemas
valeu, deu certo ....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)