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

← →
Бандерас (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 нет доступа (если его обычно запускать из проводника) потому что он занят моей прогой, что сделать чтоб она "не держала" файл

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

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