как проверить фаил на его занятость системой?

Попробовать открыть его в монопольном режиме... или удалить

Или позвонить ему на мобилу и если гудки то значит занят.

Если номер знаешь..

На самом деле вопрос интересный. Действительно ли надо открывать файл чтобы узнать его занятость. Я думаю что нет и уверенность основывается на следующий фактах:

1) Сама ось то знает об этом, следовательно список где-то хранится, наверняка есть методы чтобы его выцепить
2) Я видел программы, которые выдают список заблокированных файлов - уж не пробуют же они открыть все файлы на моем диске чтобы определится

Так что вопрос остается открытым.

Цитата(Vit @ 13.6.2002, 19:00)

На самом деле вопрос интересный. Действительно ли надо открывать файл чтобы узнать его занятость. Я думаю что нет и уверенность основывается на следующий фактах: 1) Сама ось то знает об этом, следовательно список где-то хранится, наверняка есть методы чтобы его выцепить 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;

Я же сказал: "попробовать открыть в монопоьном режиме". Я не пошутил
Последний пример это не что иное. Можно ещё с TFileStream

Я понимаю что ты не шутил, я именно так и поступаю, когда мне надо определить, например, когда внешняя программа закончит работать с файлом. Но может можно как-нибудь извлечь из вамой оси список открытых файлов?