en fait c pour me fais mon propre unistall pour mon proj ...
alors comment fait on pour supprimer des fichier avec delphi

j'en ai besoin aussi, c pour demain, vite, vite.

DeleteFile('nomfichier');
renvoie true ou false selon que la suppression a eu lieu ou pas.
 
 
si tu veux supprimer tous les fichiers d'un répertoire:
 
Function Deltree(sDir : String) : Boolean;
var
     iIndex    : Integer;
     SearchRec : TSearchRec;
     sFileName : String;
begin
     sDir := sDir + '\*.*';
     iIndex := FindFirst(sDir, faAnyFile, SearchRec);
     while iIndex = 0 do
     begin
          sFileName := ExtractFileDir(sDir)+'\'+SearchRec.Name;
          if SearchRec.Attr = faDirectory then
          begin
               if (SearchRec.Name <> '' ) and
                         (SearchRec.Name <> '.') and
                         (SearchRec.Name <> '..') then
                    Deltree(sFileName);
          end else begin
               if SearchRec.Attr <> faArchive then
                    FileSetAttr(sFileName, faArchive);
               DeleteFile(sFileName);
          end;
          iIndex := FindNext(SearchRec);
     end;
     FindClose(SearchRec);
     RemoveDir(ExtractFileDir(sDir));
     Result := True;
end;

[edit]--Message édité par antp--[/edit]

Merci          

merci pour ta proc mais
Deltree(sFileName);
n'est pas reconnu il doit falloir ajouter un uses ....
si tu peux m'aider ...

 
évidemment qu'il est pas reconnu puisque c'est une nouvelle fonction dont le code est ci-dessus.
Tu dois placer un prototype de la fonction entre les uses et l'implementation:
 
Function Deltree(sDir : String) : Boolean;
 
Le .pas où j'avais cette fonction a comme uses "Windows, Sysutils, dialogs;", je crois que seul Sysutils est utile (comme le dit son nom ) pour cette fonction là.

ok c par ce que g voulu modifie la fonction en proc car il m'a fait declaration forward ...
et forcement ca marche plus