Datei überprüfen, ob löschbar

[xZise]

Wie kann ich überprüfen, ob eine Datei löschbar ist ohne sie gleich zu löschen?

[Jelly]

Es gibt einige Gründe, warum eine Datei nicht gelöscht werden kann:

• Keine nötigen NTFS Rechte
• Keine nötigen Sharerechten bei Netzfreigaben
• Datei ist grad in Gebrauch durch einen anderen Prozess
• Read-Only Attribut in den Dateiattributen gesetzt

Was du aber eventuell machen kannst, ist anstatt alles irgendwie kompliziert zu prüfen, einfach versuchen die Datei umzubenennen. Denn wenn das klappt, sollte das Löschen auch funktionieren.

[xZise]

Ich machs jetzt mit umbenennen..

[xZise]

Sry wegen Doppelpost, aber Jellys Idee ist zwar genial, aber hat einen Hacken: Die Exe ist unbenutztbar... Da sie ständig umbenannt wird...

Und die Date kann man umbenennen, wenn die exe ausgeführt wird...

[Hawkeye219]

Hallo Fabian,

versuche es mal mit dieser Funktion:

Delphi-Quellcode:

function IsFileInUse (const aFileName: string): Boolean;
var
  hnd : THandle;
begin
  hnd := CreateFile(PChar(aFileName), GENERIC_WRITE, 0, nil, OPEN_EXISTING,
                                      FILE_ATTRIBUTE_NORMAL, 0);
  if (hnd = INVALID_HANDLE_VALUE) then
    Result := True
  else
    begin
      CloseHandle(hnd);
      Result := False;
    end;
end;

Ich weiß nicht, ob sie alle möglichen Fälle abdeckt. Vielleicht kann das mal einer der WinAPI-Experten prüfen.

Gruß Hawkeye

[himitsu]

Damit kann man schonmal prüfen ob eine anderes Programm die Datei geöffnet hat, aber alleine dieses hat keine Aussagekraft.

Denn es macht zwar selten wer, aber wenn die Datei mit FILE_SHARE_DELETE geöffnet ist, dann ist es dennoch möglich diese Datei auch zu löschen.
IsFileInUse verrsucht die Daei ohne ShareingRechten zu öffnen und dieses geht nur wenn sie noch nicht geöffnet ist.


Also das einfachste ist einfach versuchen zu löschen,
oder eben umzubennenen (welches man sich als umkopieren und löschen vorstellen kann)


Ansonsten muß man schließlich erstmal prüfen ob die Datei existiert.
- was nicht da ist, kann nicht gelöscht werden

Dann wären die ganzen NTFS-Zugriffsrechte.
- hat das Programm überhaupt das Recht die Datei zu löschen

Ist die Datei von anderen Programmen geöffnet und wenn ja, haben diese Programme das Löschen erlaubt.

Und zum Schluß: ist der Datenträger schreibgeschützt
- z.B. bei CDs/DVDs, Disketten, USB-Sticks und andere Wechseldatenträgern

[xZise]

Es handelt sich um eine exe, welche man übrigens umbennen kann, aber nicht löschen kann, wenn die Datei läuft!

[himitsu]

Zitat:

Zitat von xZise

Es handelt sich um eine exe, welche man übrigens umbennen kann, aber nicht löschen kann, wenn die Datei läuft!

Ach na dann, da ist halt das Problem, das die datei nicht mehr über ein Filehandle geöffnet ist, sondern direkt in den Speicher gemappt wird.
Hier ist dann sozusagen nur der Dateiihnhalt gesperrt und nicht die Datei selber.

Also da kannst du nur versuchen zu löschen, oder du mußt zusätzlich noch in allen Prozessen suchen, ob einer zu dieser Datei gehört.


Das Selbe Problem gibt's dann auch bei DLLs und dergleichen.


Ist das für 'ne Art Setup-/Updatefunktion?

[add]
grad eben den Doppelpost gesehn hab :nerd:

[xZise]

Zitat:

Zitat von himitsu

Ist das für 'ne Art Setup-/Updatefunktion?

[add]
grad eben den Doppelpost gesehn hab :nerd:

Ja genau.

Ich habe bisher keine Komponente gefunden, die das so macht wie ich will (ich will sie über mein Prog downloaden)..

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Object-Pascal / Delphi-Language" nach "Windows API / MS.NET Framework API" verschoben.

[himitsu]

Und wie willst du es genau machen?


ist zwar och auch einem deiner Threads, abver was solls :roll:
> http://www.delphipraxis.net/internal...=684375#684375

oder

Delphi-Quellcode:

While not DeleteFile('irgendwas') do Sleep(100);
...

Und wie du inzwischen gemerkt hast, es gibt unmassen an Möglichkeiten, warum eine Datei nicht gelöscht werden kann

PS: in einem der Programme nutze ich in etwa die selbe Methode, wie die bei den geladenen EXEn ^^
http://www.delphipraxis.net/internal...ght=ge%F6ffnet

[xZise]

Also... Der AMP (dein 1. gelinkter Thread) hat damit nichts zu tun... Da ging es um eine "Entfern"-Routine

Und inzwischen hat sich das etwas geändert: Und zwar hab ich eine Datei gedownloadet und möchte die kopieren... Und dazu brauch ich die Rechte...

[himitsu]

Erstmal versuhen die Datei zu Löschen/Upzudaten.
Und wenn das nicht geht, dann könntest du versuchen rauszufinden warum dieses nicht geht.
(z.B. sagen einige Setup-Programme dann dem User wer diese Datei geöffnet hält)

Delphi-Quellcode:

T := GetTickCount;
While not DeleteFile('abc') do
  If GetTickCount - T > 15000 Then
    MessageBox('Datei kann nicht gelöscht werden.');

// oder
T := GetTickCount;
While not CopyFile('abc', 'def', True) do
  If GetTickCount - T > 15000 Then
    MessageBox('Datei kann nicht kopiert werden.');

// oder ...

Wenn es um diesen Downloadprogramm geht, dann könntest ja auch in die Datei mit reinschreiben lassen welche Programme nicht laufen dürfen und eventuell diese sich Programme beenden lassen.