Скачать: CL | DM;

Как завершить обращение к приложению?   Найти похожие ветки 

← →
Бандерас   (2005-11-24 19:39) [0]

Программа проверяет запущено приложение или нет, если запущено , то говорит " File is already open! ", если нет то " File is not open! " ... да-к вот когда оно не запущено, при первом обращении к этому File.exe, программа говорит, что он не открыт, но все последующие обращения говорит, что " File is already open! " ... т.к. программа как бы убрала под себя этот File.exe (т.е. сам по себе он не запускается, говорит что занят др. приложением) ... как завершить это обращение к файлу.

function IsFileAvailable(FileName: string): boolean;
var
Handle: Integer;
begin
 Result := FileExists(FileName);
 if Result then begin
   Handle := FileOpen(FileName, fmOpenReadWrite);
   Result := Handle >= 0;
 end;
end;

//...

if IsFileAvailable("...\File.exe")=false then
showmessage("File is already open!") else showmessage("File is not open!")

---

← →
Mike Kouzmine ©   (2005-11-24 19:55) [1]

Хочешь запретить повторный запуск или что?

---

← →
Бандерас   (2005-11-24 20:50) [2]

Нет ... к File.exe нет доступа (если его обычно запускать из проводника) потому что он занят моей прогой, что сделать чтоб она "не держала" файл

---

← →
ЮЮ ©   (2005-11-25 07:04) [3]

if Result then begin
  Handle := FileOpen(FileName, fmOpenReadWrite);
  Result := Handle >= 0;
  FileClose(Handle);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c