IsFileInUse Funktion erstellen

[BlueStarHH]

Zitat:

Zitat von Luckie (Beitrag 1068664)

Zitat:

Zitat von BlueStarHH (Beitrag 1068659)

Wenn die neue API sagt, dass die Datei nicht in Benutzung ist, muss man nochmal mit der herkömlichen Methode prüfen, ob das wirklich stimmt. Also kein Hinderungsgrund die neue API zu nutzen.

Und warum nicht gleich die Fallback-Methode, wie auch immer sie implementiert ist, verwenden, wenn man sie so wie so zum Nachprüfen nutzt?

Weil man meines Wissens einige Funktionen, die die neue API anbietet, mit dem herkömmlichen weg nicht bewerkstelligen kann. Z.B. den Programmnamen herausfinden, von dem Prog, das die Datei nutzt. Oder das Programm dazu veranlassen die Datei zu schließen. Oder weil man dann laut Deiner Aussage einen Treiber braucht, was umständlich ist als eben mal eine API-Funktion zu nutzen. Vielleicht brauch man die Fallback-Methode auch gar nicht. Das war nur Spekulation. Ich habe mich nicht tief damit beschäftig. Nur mal schnell quergelesen.

[Delphi-Laie]

Neben dem sicher erstklassigen Unlocker, der die Bindungen durchbrechen kann, gibt es auch noch zum Zwecke des bloßen Anzeigens solcher Sperren das Programm "Who lock me?".

[BlueStarHH]

Zitat:

Zitat von Delphi-Laie (Beitrag 1068696)

Neben dem sicher erstklassigen Unlocker, der die Bindungen durchbrechen kann, gibt es auch noch zum Zwecke des bloßen Anzeigens solcher Sperren das Programm "Who lock me?".

Ich brauche weder einen Unlocker noch ein Programm das mir die Sperren anzeigt. Ich brauche einen Quellcode, den ich in meinem eigenen Programm nutzen kann. Das wird von unbedarften Anwender genutzt, die Dateien immer mit Word oder Excel offen halten und dann in mein Programm importieren möchten. Das geht dann nicht, da Word oder Excel die Dateien exklusiv öffnen. Also sollte da die angesprochene Meldung gezeigt werden.

[Assarbad]

Zitat:

Zitat von BlueStarHH (Beitrag 1068699)

Ich brauche weder einen Unlocker noch ein Programm das mir die Sperren anzeigt. Ich brauche einen Quellcode, den ich in meinem eigenen Programm nutzen kann. Das wird von unbedarften Anwender genutzt, die Dateien immer mit Word oder Excel offen halten und dann in mein Programm importieren möchten. Das geht dann nicht, da Word oder Excel die Dateien exklusiv öffnen. Also sollte da die angesprochene Meldung gezeigt werden.

Siehe da. Ein wenig Kontext und es ist einfacher eine Aussage zu treffen, denn bei Word und Excel dürfte ohnehin die Methode mit der neuen API funktionieren.

Ansonsten verweise ich auf Chris: http://blog.delphi-jedi.net/2010/11/14/is-file-in-use/ und von dort aus https://jedi-apilib.svn.sourceforge....entExample.dpr

[tony.huerlimann]

// hier eine Function
// es braucht noch "uses shlobj" zu Beginn der unit Datei
// hope that helps : Gruss Tony

function IsFileInUse(fName:string) : boolean;
var HFileRes : HFILE;
begin
Result := False;
if not FileExists(fName) then
Exit;
HFileRes := CreateFile(pchar(fName),
GENERIC_READ or GENERIC_WRITE,
0, nil, OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then CloseHandle(HFileRes);
end;

[DeddyH]

Nunja, damit bekommst Du aber auch nicht raus, welcher Prozess die Datei geöffnet hat.

[edit] Sry, Willkommen in der DP :dp: [/edit]

[BlueStarHH]

Zitat:

Zitat von Assarbad (Beitrag 1068702)

Ansonsten verweise ich auf Chris: http://blog.delphi-jedi.net/2010/11/14/is-file-in-use/ und von dort aus https://jedi-apilib.svn.sourceforge....entExample.dpr

Ich habe das FileIsInUseClientExample.dpr ausprobiert und eine XLSX Datei in Excel 2007 geöffnet. Beim Ausführen des Programm passiert nichts. Es wird gestartet und wieder beendet. Es erkennt also nicht, dass die Datei geöffnet ist. Der Speedcommander zeigt den gewüschten Dialog an, wenn ich die Datei löschen möchte. Also hat Excel die Datei auch exklusiv geöffnet.

[Dezipaitor]

Die Datei wird zwar von MS Office in der ROT registriert, doch die Implementierung nutzt nicht das IFileIsInUse Interface. Ein Indiz dazu ist, dass der Dialog keine Schalter für "Wechseln zu" und "Schließe Datei" besitzt, sondern "Wiederholen".

Naja, Speedcommander und Windows Explorer zeigen daher nur den Name der Anwendung an. Wenn es jedoch eine andere unbekannte Anwendung ist, dann zeigen beide auch nur "ein Programm" an.
Ich denke, dass ich die Implementierung kenne. Sie ist, wie man sieht, jedoch garnicht 100% treffsicher.

[BlueStarHH]

Zitat:

Zitat von Dezipaitor (Beitrag 1068724)

Naja, Speedcommander und Windows Explorer zeigen daher nur den Name der Anwendung an. Wenn es jedoch eine andere unbekannte Anwendung ist, dann zeigen beide auch nur "ein Programm" an.
Ich denke, dass ich die Implementierung kenne. Sie ist, wie man sieht, jedoch garnicht 100% treffsicher.

Welche Implementierung ist das? Wo kann ich den Code dazu finden? Hast Du ein kleinen Beispielcode? Danke!

[Dezipaitor]

Die gibt es noch nicht, das ist riesig aufwändig.
Und wenn ich so darüber nachdenke, dann wird es mit 64Bit schwierig, weil Delphi nur 32Bit Apps erstellen kann und daher nur 32Bit Dateilocks erkannt werden.