Einzelnen Beitrag anzeigen

Go2EITS

Registriert seit: 25. Jun 2006
519 Beiträge
 
Delphi 7 Personal
 
#14

Re: Einen Ordner komplett löschen

  Alt 6. Okt 2006, 10:16
@Glühwürmchen
Button1 auf Form legen.
C:\test anlegen
Einige Dateien unter C:\test rein. Stetze einige Dateien auf Hidden oder Versteckt.
Button1 betätigen und Du wirst sehen: Alles gelöscht!
Selbst gerade probiert. Ich glaube DelDir ist Torrycode.

Delphi-Quellcode:
function DelDir(dir: string): Boolean; {$IFDEF INLINE}INLINE;{$ENDIF}
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DelDir('C:\test');
if DirectoryExists('C:\test') then ShowMessage('DelDir fehlgeschlagen') else
ShowMessage('DelDir funktioniert');
end;
Und: Geht es jetzt?
Gruß Go2EITS
  Mit Zitat antworten Zitat