Slet alle mapper - Hvordan?

Her er noget jeg engang fandt og gemte.

--------------------

Her er to mulige løsninger:

uses SysUtils;

function RemoveTree(DirName: string):Boolean;
var
  DirInfo: TSearchRec;
begin
    if FindFirst(DirName+'*.*', FaAnyfile, DirInfo) = 0 then
    repeat
          if (DirInfo.Attr = faDirectory) and (DirInfo.Name <> '.') and (DirInfo.Name <> '..') then
              RemoveTree(DirName+DirInfo.Name);
          if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <>
FaVolumeID)) then
              DeleteFile(PChar(DirName+DirInfo.Name));
    until FindNext(DirInfo) <> 0;
    FindClose(DirInfo);
    Result:= RemoveDirectory(PChar(DirName));
end;

.....

uses ShellAPI;

function RemoveTree(DirName: String):Boolean;
Var
    F: SHFileOpstruct;
begin
        F.Wnd:= handle;
        F.wFunc:= FO_DELETE;
        F.pFrom:= PChar(DirName+#0);
        F.pTo:= nil;
        F.fFlags= nil;
        Result:= SHFileOperation(F);
end;

Prøv at kigge i Hjælp under SHFileOpstruct,
der er flere muligheder med fFlags,
F.eks vil FOF-ALLOWUNDO slette til Papirkurven.

Bemærk den dobbelte Null-terminering i pFrom,
hvis du vil slette flere mapper (eller filer) skriver du f.eks:
F.pFrom:= PChar(DirName1+#0+DirName2+#0+DirName3+#0);

Det første eksempel kan jeg godt starte op men den sletter ikke noget i mit dir ... ved ikke om jeg bruger den rigtigt :
RemoveTree('C:\Test\');

Det andet eksempel kan jeg ikke få til at virker den ved ikke hvad "handle" er og den brokker sig over :
at integer og boolean ikke kan gå sammen her : Result:= SHFileOperation(F);

Det andet eksempel virker fint her?

Det første eksempel har jeg rettet til her så det virker.

------------------

function RemoveTree(DirName: String):Boolean;
Var
    F: SHFileOpstruct;
begin
    DirName:=ExcludeTrailingPathDelimiter(DirName);
    F.Wnd:= Application.MainForm.handle;
    F.wFunc:= FO_DELETE;
    F.pFrom:= PChar(DirName+#0);
    F.pTo:= nil;
    F.fFlags:= 0;
    Result:= SHFileOperation(F)=0;
end;

Hov, det var omvendt. Det første eks. virker fint her og det andet eks. har jeg rettet så det virker.. her.

Takker det virker :-)

Smid et svar :-)

ok