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

[Luckie]

Von was für einem Betriebssystem reden wir eigentlich?

[BornToBeBreit]

wir reden von wiendows xp sp 2

[toms]

Ich habe gesehen, dass GetLastError bei SHFileOperation nicht funktioniert.
Überprüfe mal, was für einen Wert SHFileOperation zurückgibt.

Hier findest du ein Fehlercode Liste.

[alzaimar]

Hat das vielleicht was mit den Reparaturbestrebungen von Windows (Stichwort 'dllcache') zu tun?

[mashutu]

Zitat:

Zitat von alzaimar

Hat das vielleicht was mit den Reparaturbestrebungen von Windows (Stichwort 'dllcache') zu tun?

Nein, ich kann hier unter XP SP2 im Windows/System32-Ordner beliebige Dateien erfolgreich Loeschen (nur mit selbst erstellten getestet :-))
und zwar mit sysutils.deleteFile();

Ich vermute daher, dass die Datei nicht korrekt geschlossen wurde und somit noch ein offenes Handle hat.

Schau mal in Deinen code wo Du die Datei erstellst.

[BornToBeBreit]

hey, ich hab grad was komisches rausgefunden, wenn ich das genau gleich in einem neuen projekt mache, also ohne meinen restlichen code, dann gehts ...