Hi,
Perhaps the following is actually the same as already pointed by ciuly but that's what I use:
uses SysUtils;
function IsFileOpened(const Filename: string): boolean;
var
FileHandle : Integer;
begin
result := false;
if FileExists(FileName) then begin
FileHandle := FileOpen(FileName, fmShareExclusive);
if FileHandle > 0 then
FileClose(FileHandle)
else
result := true;
end;
end;
Regards, Geo
Main Topics
Browse All Topics





by: ciulyPosted on 2006-10-02 at 07:21:04ID: 17643591
see this: http://www.scalabium.com/f aq/dct0066 .htm