title image


Smiley Re: wird Datei gerade benutzt?
nicht getestet!

habe ich mal gefunden und in meinem privaten archiv fuer dich ausgegraben:







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;





//
// C wurde erfunden, damit die baeume der programmierer
// nicht in den himmel wachsen.
//
// frager


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: