Supprimer un dossier apres autosuppression du programme de ce dossier

Version imprimable

Bonjour à toutes 8-) et à tous...

J'utilise cette fonction pour supprimer mon propre programme en cours d'utilisation :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Procedure TForm1.SelfEfface(Sender: TObject); var F :Textfile; begin AssignFile(F,Changefileext(paramstr(0),'.bat')); rewrite(F); writeln(F,':1'); writeln(F, Format('Erase "%s"',[paramstr(0)])); writeln(F, Format('If exist "%s" Goto 1',[paramstr(0)])); writeln(F, Format('Erase "%s"',[changefileext(paramstr(0),'.bat')])); closefile(F); winexec(PChar(ChangeFileExt(paramstr(0),'.bat')),sw_hide); halt; end;
Ma question est :
Admettons que mon programme ce trouve dans le répertoire :
C:\XXXXXABC\

Comment je peux faire pour supprimer ce répertoire apres avoir executer la procédure ci-dessus ? (sachant que le Halt me coupe tout)... :aie:

Merci.

03/10/2009, 22h28
ouiouioui
bonsoir, en créant le .bat dans le dossier temporaire puis vérifier que le dossier contient que ton executable à effacer et un bat comme sa:
Code:

1 2 3 4 5 :1 Erase "C:\test\test.exe" If exist "C:\test\test.exe" Goto 1 rmdir "C:\test" Erase"test.bat"
pour effacer un dossier non vide c'est: rmdir /S /Q "c:\test"

testé sur xp et plus.

Salut ouiouioui et merci pour ton aide.

J'ai essayé cela
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TForm1.Button1Click(Sender: TObject); var F :Textfile; begin AssignFile(F,Changefileext(paramstr(0),'.bat')); rewrite(F); writeln(F,':1'); writeln(F, Format('Erase "%s"',[paramstr(0)])); writeln(F, Format('If exist "%s" Goto 1',[paramstr(0)])); // writeln(F, 'cd..'); writeln(F, Format('rmdir "%s"',[ExtractFileDir(paramstr(0))])); writeln(F, Format('Erase "%s"',[changefileext(paramstr(0),'.bat')])); closefile(F); winexec(PChar(ChangeFileExt(paramstr(0),'.bat')),sw_hide); halt; end;
avec où sans le 'cd..' mis avant ou apres la ligne writeln(F, Format('Erase "%s"',[changefileext(paramstr(0),'.bat')]));

Cela ne fonctionne pas, mon répertoire ne se supprime pas.

Une autre idée ?

Ok, j'avais pas bien lu ton message, tu parle de dossier temporaire.

Voilà la procédure qui fonctionne trés bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender: TObject);
var
  F :Textfile;
  Chemin, Fichier : String;
begin
  Chemin := ExtractFileDir(paramstr(0));
  Fichier := 'C:\'+ChangeFileext(ExtractFileName(paramstr(0)),'.bat');
  AssignFile(F,Fichier);
  rewrite(F);
  writeln(F,':1');
  writeln(F, Format('Erase "%s"',[paramstr(0)]));
  writeln(F, Format('If exist "%s" Goto 1',[paramstr(0)]));
  writeln(F, 'cd\');
  writeln(F, Format('rmdir "%s"',[Chemin]));
  writeln(F, Format('Erase "%s"',[Fichier]));
  closefile(F);
  winexec(PChar(Fichier),sw_hide);
  halt;
end;

Merci OuiouiOui.

04/10/2009, 18h19
ouiouioui

oui mais si C n'existe pas, sa arrive, ou si le bat ne se supprime pas pour x raison (reset, plantage) c'est pour sa que moi j'utilise le dossier temporaire, en cas de pepin un nettoyage disque l'enleve.

Code:

Fichier := IncludeTrailingPathDelimiter(GetEnvironmentVariable('TEMP')) + ChangeFileExt(ExtractFileName(ParamStr(0)),'.bat');
04/10/2009, 18h24
BuzzLeclaire

Salut,

ok tu as raison, on ne sais jamais.

Merci.