Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.30;
Скачать: CL | DM;

Вниз

как отслеживать в Delphi существование процессоов?   Найти похожие ветки 

 
ArtAlex ©   (2003-08-18 20:59) [0]

как отслеживать в Delphi существование процессоов? тоесть мне надо,чтоб по завершению раюоты приложения, комп выключался. Как отследмит процесс существования этого приложения?


 
Дмитрий В. Белькевич ©   (2003-08-19 01:09) [1]

Если сам запускал, и есть хэндл - по нему. Если нет - перебирай все процессы. FindFirstProcess / FindNext etc. Сам не пользовал, но afair так.


 
Дмитрий В. Белькевич ©   (2003-08-19 21:21) [2]

function IsRunning(sName: string): boolean;
var
han: THandle;
ProcStruct: PROCESSENTRY32; // from "tlhelp32" in uses clause
sID: string;
begin
Result := false;
// Get a snapshot of the system
han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
if han = 0 then
exit;
// Loop thru the processes until we find it or hit the end
ProcStruct.dwSize := sizeof(PROCESSENTRY32);
if Process32First(han, ProcStruct) then
begin
repeat
sID := ExtractFileName(ProcStruct.szExeFile);
// Check only against the portion of the name supplied, ignoring case
if uppercase(copy(sId, 1, length(sName))) = uppercase(sName) then
begin
// Report we found it
Result := true;
Break;
end;
until not Process32Next(han, ProcStruct);
end;
// clean-up
CloseHandle(han);
end;



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

Текущий архив: 2003.10.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
4-98943
Slym
2003-08-27 09:39
2003.10.30
Визуальный строитель диалогов...


14-98796
Jek
2003-10-11 10:43
2003.10.30
Вспомним студенчество


3-98496
AndB
2003-10-09 12:40
2003.10.30
Если CommandText


6-98769
Andrew
2003-08-29 09:31
2003.10.30
FTP, получить список файлов с подкаталогами


14-98803
Passlight
2003-10-13 09:32
2003.10.30
Книги и маржа