| |
 |
Wie kann man ganze Verzeichnisse l?schen?
06-10-2002 18:32
|
|
SHFileOperation (f?r Fortgeschrittene)
Es gibt auch die M?glichkeit direkt die Windows API Funktionen zu nutzen. Hier kann man auch die Windows-Fortschrittsanzeige anzeigen lassen oder die Dateien in den Papierkorb verschieben.
|
procedure DelDirectory(Ordner : String);
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_DELETE;
// Verschieben ohne Dialog-Fenster und Abfrage
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
// f?r das Verschieben in den Papierkorb, ebenfalls ohne Abfrage
// fFlags := FOF_AllowUndo or FOF_NoConfirmation;
pFrom := PChar(Ordner + #0);
end;
if (SHFileOperation(fos)<>0) then
begin
MessageBox(0, 'Fehler beim L?schen', nil, MB_ICONERROR);
end;
end;
|
|
F?r mehr Informationen ?ber SHFileOperations seht in der Win32.hlp nach oder schaut in der p.i.c.s. Delphi Fundgrube von Simon Reinhardt. Dort findet ihr auch ein Beispielprogramm.
|
|
|
|
|
