Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)...

Merci.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BuzzLeclaire]

Salut ouiouioui et merci pour ton aide.

J'ai essayé cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[BuzzLeclaire]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 pascal :

Sélectionner tout - Visualiser dans une fenêtre à part

  Fichier := IncludeTrailingPathDelimiter(GetEnvironmentVariable('TEMP')) + ChangeFileExt(ExtractFileName(ParamStr(0)),'.bat');

[BuzzLeclaire]

Salut,

ok tu as raison, on ne sais jamais.

Merci.