Ordner löschen

[Florian Bernhardt]

hi!
Ich möchte ein "meiner:-)" Firma bestimmte Ordner beim Start von NT4
löschen. Es´geht aber aus bestimmten gründen nicht über die Registry.
Wie kann ich volle(!!!) Ordner sammt deren Unter(Unter...)-Ordner
löschen?

[Andreas Kosch]

Hallo,

mit dem folgenden Beispiel können alle Dateien (einschliesslich Unterverzeichnisse) eines Verzeichnisses gelöscht werden:
<pre>
procedure TForm1.ButtonDeleteDirClick(Sender: TObject);
var
aSHFOS : TSHFileOpStruct;
szFrom : array[0..128] of Char;
begin
// Puffervariablen initialisieren (Doppel-Null!)
FillChar(aSHFOS, Sizeof(aSHFOS), #0);
FillChar(szFrom, Sizeof(szFrom), #0);
// Zu löschendes Verzeichnis definieren
StrPCopy(szFrom, 'C:\Test\StdOut');
with aSHFOS do
begin
Wnd := Handle;
wFunc := FO_DELETE;
pFrom := @szFrom;
fFlags := FOF_NOCONFIRMATION or FOF_ALLOWUNDO;
fAnyOperationsAborted := False;
end;
ShFileOperation(aSHFOS);
end;
</pre&gt