Datei löschen mit DeleteFile....

[bingo72]

Hallo Experten!!

Ich versuche eine bestehende Datei zu löschen mittels DeleteFile...
Doch nachher ist die Datei noch immer vorhanden. Es gibt keine Fehlermeldungen oder sonstige Anomalien??!!

Zuvor habe ich die Datei umbenannt....hat funktioniert...falls das von Bedeutung ist!!??
Hab was gelesen von Datei freigeben oder so?? Wie funktioniert das?? Oder wie lösch ich sonst die Datei??

LG
Thomas

[Andidreas]

wie versuchst du die datei zu löschen???

bzw. hast mal bisl code???

[Balu der Bär]

Zitat von bingo72:

Es gibt keine Fehlermeldungen oder sonstige Anomalien??!!

Woher weißt du das?

Schonmal GetLastError oder SysErrorMessage probiert, die dir einen möglichen Fehler ausgeben?

[ste_ett]

Schreingeschützte Dateien können ncith mit DeleteFile() gelöscht werden.
"SetFileAttributes(Pfad, FILE_ATTRIBUTE_NORMAL)" schafft Abhilfe.

[Klaus01]

@ste_ett

Zitat von ste_ett:

Schreingeschützte Dateien können ncith mit DeleteFile() gelöscht werden.
"SetFileAttributes(Pfad, FILE_ATTRIBUTE_NORMAL)" schafft Abhilfe. :)

Wenn die Datei schreibgeschützt wäre, dann würde auch das Umbenennen nicht funktionieren, oder?

Grüße
Klaus

[bingo72]

Zitat von Andidreas:

wie versuchst du die datei zu löschen???

bzw. hast mal bisl code???

Hier ist er:

Delphi-Quellcode:

procedure TfmMain.FormDestroy(Sender: TObject);
begin
  SetToNil();
  CoUninitialize();
  if (FileExists(TEMP_VIDEO_LARGE) AND FileExists(TEMP_VIDEO_SMALL)) then begin
    DeleteFile(TEMP_VIDEO_LARGE);
    DeleteFile(TEMP_VIDEO_SMALL);
  end;
end;

Ist quasi der letzte Code der ausgeführt wird, um Temp-Dateien, nachdem sie umbenannt worden sind (passiert im FormQueryClose mit Ja/Nein-Messagebox), sofern User dies wünscht, gelöscht werden.
Wenn zuvor die Dateien umbenannt werden sollen, gibt es ja dann keine Temp-Dateien mehr und somit überspringt er die IF-Anweisung. Andernfalls soll er die Temp-Dateien löschen...

LG
Thomas

[bingo72]

Zitat von Balu der Bär:

Zitat von bingo72:

Es gibt keine Fehlermeldungen oder sonstige Anomalien??!!

Woher weißt du das?

Schonmal GetLastError oder SysErrorMessage probiert, die dir einen möglichen Fehler ausgeben?

Hallo Balu!!

Du hast recht....mit GetLastError bekomm ich den Fehlercode 32 bedeutet ERROR_SHARING_VIOLATION...

Wie kann ich die alleinigen Rechte für mich beanspruchen??

LG
Thomas

[bingo72]

Zitat von Klaus01:

@ste_ett

Zitat von ste_ett:

Schreingeschützte Dateien können ncith mit DeleteFile() gelöscht werden.
"SetFileAttributes(Pfad, FILE_ATTRIBUTE_NORMAL)" schafft Abhilfe.

Wenn die Datei schreibgeschützt wäre, dann würde auch das Umbenennen nicht funktionieren, oder?

Grüße
Klaus

Klaus hat Recht....habe testhalber den SetFileAttributes-Befehl gesetzt...

Delphi-Quellcode:

if (FileExists(TEMP_VIDEO_LARGE) AND FileExists(TEMP_VIDEO_SMALL)) then begin
    SetFileAttributes(TEMP_VIDEO_LARGE, FILE_ATTRIBUTE_NORMAL);
    if (not(DeleteFile(TEMP_VIDEO_LARGE))) then
      str := IntToStr(GetLastError);

...und da ist er in den IF-Teil reingesprungen...also hat die Datei dennoch ned löschen können!!

Danke trotzdem für die Bemühungen...

LG
Thomas

[RavenIV]

Zitat von bingo72:

Du hast recht....mit GetLastError bekomm ich den Fehlercode 32 bedeutet ERROR_SHARING_VIOLATION...

Wie kann ich die alleinigen Rechte für mich beanspruchen??

Es gab zu diesem Thema vor kurzem erst einen Thread dazu.
Dabei hat jemand ein Tool vorgestellt, mit dem man das Sharing beenden konnte und dann die Datei löschen kann.

muss mal mit geeigneten Suchbegriffen die Forumssuche bemühen...

[bingo72]

Ja aber ich will kein Tool einsetzen...es wird doch so im Delphi-Code Möglichkeiten geben, eine Datei löschen zu können bzw. Prozesse die den Zugriff auf die Datei blockieren zu beenden, damit man sie anschließend löschen kann oder??