БОЛЬШОЙ FAQ ПО DELPHI



Как узнать, используется ли файл в данный момент другим приложением 2


 function ApplicationUse(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;
 
 // Далее следует пример использования этой функции:
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if ApplicationUse('c:\project1.exe') then
     ShowMessage('Application in use')
   else
     ShowMessage('Application not in use');
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ