[ART]

Можно ли определить количество (или что-то подобное) обращений к файлу?

[Wipahacker]

Ну конечно !!!!!!!
ART Для тебя:
Объяви в глобальную переменную типа word этого достаточно.
Ну при условии ели ты найдешь того кто может прощелкать по кнопке
650 раз можешь применять тип Cardinal
implementation
var N:word= 0;
Button1Click
N:=N+1
ShowMessage('Число оброшений '+IntToStr(n));
Так ты хотел?

[ART]

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

[Wipahacker]

Да никогда с такой задачкой не сталкивался!
Мфф может спроси у Decoding

[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;

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