---

Hej!

Kan man i delphi finde ud af om en alm. textfile er åben (åbnet med
AssignFile)?


--
Mvh.
Thomas Holmgren

---

In article <3e10404d$0$2552$ba624c82@nntp04.dk.telia.net>, Thomas
Holmgren wrote:
> Hej!
>
> Kan man i delphi finde ud af om en alm. textfile er åben (åbnet med
> AssignFile)?

For det første, åbner AssignFile ikke filen ;)

Du kan, ved at snyde lidt, gøre det på følgende måde (Se i hjælpen
under TTextRec/TFileRec):

uses
SysUtils;
var
F : File;
begin
AssignFile(F, 'c:\autoexec.bat');
{ kode som måske kalder Reset().. }
if (TTextRec(F).Mode = fmClosed) then begin
(* Filen er ikke åben *)
...

Det er en lille smule risikabelt, da du bruger noget meget
system-specifik kode, som måske ændrer sig en gang i fremtiden (dette
trick virker også i TP6).

MVH, René

---

"Thomas Holmgren" <thm@cs.auc.dk> wrote in message
news:3e10404d$0$2552$ba624c82@nntp04.dk.telia.net...
> Hej!
>
> Kan man i delphi finde ud af om en alm. textfile er åben (åbnet med
> AssignFile)?

Ja prøv at åbne filen i eksklusiv mode

procedure OpenNotForShare(const FileName: String);
var
FileHandle : Integer;
begin
FileHandle := FileOpen(FileName, fmOpenWrite or fmShareExclusive);
if FileHandle > 0 then
{valid file handle}
else
{Open error: FileHandle = negative DOS error code}
end;

mvh
Henry