ok c par ce que g voulu modifie la fonction en proc car il m'a fait declaration forward ...
et forcement ca marche plus :)
antp
otb82 a écrit a écrit :
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 :D) pour cette fonction là.
otb82
merci pour ta proc mais
Deltree(sFileName);
n'est pas reconnu il doit falloir ajouter un uses ....
si tu peux m'aider ...
Rellik1982
Merci :love: :lol: :p :pt1cable: :D ;)
antp
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]
Rellik1982
j'en ai besoin aussi, c pour demain, vite, vite.
otb82
en fait c pour me fais mon propre unistall pour mon proj ...
alors comment fait on pour supprimer des fichier avec delphi
