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 von BornToBeBreit:

@ toms wie meinst du das?

Rufe nach dem DeleteFile Aufruf

ShowMessage(SysErrorMessage(GetLastError)) auf

[Klaus01]

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 ...