Einzelnen Beitrag anzeigen

delphi_newbie_123

Registriert seit: 14. Jan 2004
181 Beiträge
 
Delphi 5 Enterprise
 
#4

Re: Text in eine Memo einlesen.

  Alt 3. Dez 2004, 16:51
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;
  Mit Zitat antworten Zitat