Ist die Datei bereits geöffnet (z.B. von einer anderen Anwendnung)

[Uwe Bachmann]

Hallo,

wie kann ich in Delphi prüfen, ob eine Datei (Dbf) bereits
verwendet wird? Unter C++ soll es eine Funktion Access() dafür geben.

Uwe Bachmann

[Hendrik]

Hallo Uwe,<br>
ich benutze immer folgendes, was einigermaßen gut funktioniert,<br>
ich aber auch nur hier im Forum mal gefunden habe, ich glaube A. Kosch<br> war der Autor:
<pre>
function Try_open(FN:Pchar):boolean;
// Versuch Datei als einziger mit Schreibberechtigung zu öffnen
// das funktioniert immer
var
hTmpFile : THandle;
aOFS : TOFSTRUCT;
begin
result:=false;
hTmpFile := OpenFile(FN, aOFS, OF_SHARE_EXCLUSIVE);
if hTmpFile = HFILE_ERROR then
//RaiseLastWin32Error
else
result:=true;
_lclose(hTmpFile);
end;</pre>
Hendri

[Uwe Bachmann]

Danke. Funktioniert super.

Uw