Text in eine Memo einlesen.

[delphi_newbie_123]

hi, sorry noch ne kurze frage.
wie aknn ich den status von dem file erfahren, obs benutzt wird doer nicht?
merke gerade, dass es viel besser gelöst werden kann, da ich beide programme steuere
falls das jemand vielelciht brauchen sollte:

Delphi-Quellcode:

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;