Форум: "Система";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
ВнизДва вопроса... :) Найти похожие ветки
← →
Olgerd (2001-11-26 20:20) [2]На вопрос 2)
Как узнать, что запущен такой-то exe-файл. Если он закончит работать, то функция возвратит false, можно по таймеру проверять.
uses TlHelp32;
function IsRunning(ExeName:String):Boolean;
var
PHandle: THandle;
ProcEntry:TProcessEntry32;
begin
result:=false;
PHandle:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
ProcEntry.dwSize:=sizeof(TProcessEntry32);
if Process32First(PHandle,ProcEntry) then
if ExtractFileName(ProcEntry.szExeFile) = ExeName then result := true;;
while Process32Next(PHandle,ProcEntry) do
if ExtractFileName(ProcEntry.szExeFile) = ExeName then result := true;
CloseHandle(PHandle);
end;
Чувствительна к регистру!
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c