Como apagar um arquivo via linha de comando???
27/12/2005
0
Por ex: ao clicar em um botão apagar um certo arquivo de certa pasta..
Como fazer isso???
Duolon
Posts
27/12/2005
Duolon
O código funcionou.. coloquei um botão no form e coloquei no OnClick
DeleteFile(´C:\PASTA\arquivo.exe´);
por ex: no mesmo programa quando ele for encerrado ele se auto deletar... como fazer isso???
27/12/2005
Edilcimar
27/12/2005
Duolon
Antes de ter postado dei uma procurada, mais ñ axei nada a respeito, se alguem souber como q faz posta ae!
27/12/2005
Edilcimar
http://forum.clubedelphi.net/viewtopic.php?t=71234&highlight=apagar+executavel
27/12/2005
Duolon
Opa!, vi esse código lá:
procedure DeletaExe; procedure TfrmPrincipal.DeletaExe; Var Arquivo: TextFile; begin AssignFile(Arquivo,ChangeFileExt(ParamStr(0),´.bat´)); ReWrite(Arquivo); WriteLn(Arquivo,´:1´); WriteLn(Arquivo,Format(´Erase "¬s"´,[ParamStr(0)])); WriteLn(Arquivo,Format(´If exist "¬s" Goto 1´,[ParamStr(0)])); WriteLn(Arquivo,Format(´Erase "¬s"´,[ChangeFileExt(ParamStr(0),´.bat´)])); CloseFile(Arquivo); WinExec(PChar(ChangeFileExt(ParamStr(0),´.bat´)),sw_hide); Halt; end;
só que o programa ñ se auto deletou... :(
Clique aqui para fazer login e interagir na Comunidade :)