Windows Temp komplett löschen !?! wie ?

[Trouble_Maker]

Hiho Leute!
ich möchte den Inhalt von meinem windows/Temp Ordner komplett löschen !!! (C:\Windows\Temp)
Hier mein Code! (also der Inhalt wird schon außer den Unterverzeichnissen komplett gelöscht! Diese möchte ich aber auch löschen!!!

Delphi-Quellcode:

uses
... ,ShellAPI;

var
  Form1: TForm1;
  fos: TSHFileOpStruct;


function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar('C:\Windows\Temp\' + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

procedure DeleteAll(Dir, Files : string);
var
  SearchRec : TSearchRec;
begin
  if FindFirst(Dir+Files, faAnyFile, SearchRec) = 0 then
    begin
      DeleteFile(SearchRec.Name);
      while FindNext(SearchRec) = 0 do
        DeleteFile(Dir + SearchRec.Name);
    end;
  FindClose(SearchRec);
end;

procedure TForm1.Button2Click(Sender: TObject);
var dir : string;
begin
      DelDir(dir);
      DeleteAll( 'C:\Windows\Temp\' , '*.*' );
      RemoveDir('C:\Windows\Temp\');
end;

end.

so... kann mir jemand sagen, wieso die Unterverzeichnisse nicht gelöscht werden ? Der Rest klappt ja!

danke

Trouble_Maker

[EDIT=Luckie]Delphi-Tags hinzugefügt. Beim nächsten mal bitte selber machen, danke[/EDIT]