Moin, ich bins mal wieder.
Ich möchte mit diese Quelltext einen Ordner samt Inhalt löschen,
leider aber zeigt er mir den Fehler "siehe Überschrift" an.
Delphi-Quellcode:
procedure TForm1.ButtonUnitLoeschenClick(Sender: TObject);
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar('.\Vokabeln\Units\'+EditUnitLoeschen.Text + #0);
end;
Result := (0 = ShFileOperation(fos));
end;
mfG, Nico