---

Hvordan undersøger jeg om den fil jeg ønsker adgang til allerede er åben
?

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"

---

En lidt "bisset" måde er at prøve at åbne en FileStream på filen i
Write-mode....
Hvis det raiser en exception, så er filen låst på en eller anden måde...

Bargmann

"skafte" <skafte.news@kandu.dk> wrote in message
news:3jLz9.18178$oC3.1538453@news010.worldonline.dk...
> Hvordan undersøger jeg om den fil jeg ønsker adgang til allerede er åben
> ?
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>

---

Prøv at åbne den eksklusivt.

F.eks.

procedure OpenFil(const FileName: String);

var
FileHandle : Integer;
begin
FileHandle := FileOpen(FileName, fmShareExclusive);
if FileHandle > 0 then
[Filen var ikke åben af en anden]
else
[Filen er åben af en anden]
end;

Jeg har ikke testet koden, men hvis du kan åbne en fil eksklusivt, er det
kun dig der kan have den åben.

Hilsen

Peter Vrist


"skafte" <skafte.news@kandu.dk> skrev i en meddelelse
news:3jLz9.18178$oC3.1538453@news010.worldonline.dk...
> Hvordan undersøger jeg om den fil jeg ønsker adgang til allerede er åben
> ?
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>