Testdatei im System 32 löschen

[BornToBeBreit]

Hey, ich versuche grad mit

Delphi-Quellcode:

function DeleteFile(const AFile: string): boolean;
var
 sh: SHFileOpStruct;
begin
 ZeroMemory(@sh, sizeof(sh));
 with sh do
   begin
   Wnd := Application.Handle;
   wFunc := fo_Delete;
   pFrom := PChar(AFile +#0);
   fFlags := fof_Silent or fof_NoConfirmation;
   end;
 result := SHFileOperation(sh) = 0;
end;

if deletefile(GetSystemDir+'\datei.txt') then
showmessage'datei gelöscht';

aber er löscht sie einfach nicht ...

[mkinzler]

Hat der Benutzer Adminrechte?

[toms]

Beinhaltet GetSystemDir evtl. schon den Backslash?

[BornToBeBreit]

hmm, ja also der benutzer hat adminrechte, und nein an dem backslash liegts nicht, son blödes ding, der leert die datei nur ...

[DeddyH]

Wieso nimmst Du eigentlich nicht die "Standard"-DeleteFile?

[toms]

Liefert SysErrorMessage(GetLastError) eine Fehlermeldung?

[BornToBeBreit]

@ DeddyH weil das auch nicht geht :(

@ toms wie meinst du das?

[toms]

Zitat:

Zitat von BornToBeBreit

@ toms wie meinst du das?

Rufe nach dem DeleteFile Aufruf

Delphi-Quellcode:

ShowMessage(SysErrorMessage(GetLastError))

auf

[Klaus01]

Zitat:

Zitat von BornToBeBreit

hmm, ja also der benutzer hat adminrechte, und nein an dem backslash liegts nicht, son blödes ding, der leert die datei nur ...

Kein blödes Ding, so soll es wohl sein ->link

Grüße
Klaus

[BornToBeBreit]

ja aber mit der stanard funktion passiert das selbe ...


und bei ShowMessage(SysErrorMessage(GetLastError))

sagt er nur das der vorgang erfolgreich beendet wurde ...