[adidas]

Сообщение от ART

Нет. Когда вы залаезете в "Установка и удаление программ" там винда пишет как часто используется программа. Как это узнать? И можно ли узнать это про любой другой файл?

Столкнулся с этой проблемой. Никто не может помочь???
Находил функции для проверки EXE-файлов. Ну, а мне нужно чтобы любой файл можно было проверить. Кстати, вот один из примеров:

Код:

function IsFileInUse(const fName: TFileName): Boolean;
 var
   HFileRes: HFILE;
 begin
   Result := False;
   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 OpenDialog1.Execute then
     if IsFileInUse(Opendialog1.FileName) then
       ShowMessage('File is in use!');
end;

Уже разобрался. Спасибо.