Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Бандерас © (2005-11-24 19:39:00)
Программа проверяет запущено приложение или нет, если запущено , то говорит " 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!')

ЮЮ (2005-11-25 07:04:00) [1]
if Result then begin
Handle := FileOpen(FileName, fmOpenReadWrite);
Result := Handle >= 0;
FileClose(Handle);
end;

Бандерас (2005-11-24 20:50:00) [2]
Нет ... к File.exe нет доступа (если его обычно запускать из проводника) потому что он занят моей прогой, что сделать чтоб она "не держала" файл

Mike Kouzmine (2005-11-24 19:55:00) [3]
Хочешь запретить повторный запуск или что?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »