Закрыть программу Delphi

Сейчас на форуме: zombi-vadim, zds (+4 невидимых)

Посл.ответ	Сообщение
SergeyIvan Ранг: -0.1 (гость), 6thx Активность: 0.01↘0 Статус: Участник	Создано: 24 июля 2013 14:57 · Личное сообщение · #1 Приветствую Вообщем задача такая - имеется программа которая в потоке опрашивает приборы, но при определенных обстоятельствах она иногда падает. Это в принципе не смертельно, но при сбое в памяти остается висеть процесс. Я хочу попробовать следующее - при запуске новой копии она ищет запущенные экземпляры и грохает их. Пробовал прибивать процесс по имени файла вот таким кодом: Code: function KillTask(ExeFileName: string): integer; const PROCESS_TERMINATE=$0001; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result := 0; FSnapshotHandle := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := Integer(TerminateProcess(OpenProcess( PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0)); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; Но прога грохает сама себя. Может у кого имеются мысли как поступить в данном случае, а то у меня уже вообще идей нет, занимаюсь програмизмом уже часов 20, уже экран двоится...

Archer Ранг: 2014.5 (!!!!), 1278thx Активность: 1.34↘0.25 Статус: Модератор retired	Создано: 24 июля 2013 15:04 · Личное сообщение · #2 Неужто сложно PID проверить на текущий? Что вообще такой топик делает на этом форуме? \| Сообщение посчитали полезным: SergeyIvan
SergeyIvan Ранг: -0.1 (гость), 6thx Активность: 0.01↘0 Статус: Участник	Создано: 24 июля 2013 15:06 · Личное сообщение · #3 Archer Сорри, да топик не по теме, но вроде в разделе программирование, покурю по поводу PID.
ARCHANGEL Ранг: 681.5 (! !), 405thx Активность: 0.42↘0.21 Статус: Участник ALIEN Hack Team	Создано: 24 июля 2013 15:12 · Личное сообщение · #4 SergeyIvan Да чё там курить? GetCurrentProcessId() сравнивайте с тем, что в текущей TProcessEntry32, и если равны, то не вызывайте TerminateProcess для такого процесса. ----- Stuck to the plan, always think that we would stand up, never ran. \| Сообщение посчитали полезным: SergeyIvan
SergeyIvan Ранг: -0.1 (гость), 6thx Активность: 0.01↘0 Статус: Участник	Создано: 24 июля 2013 15:16 · Личное сообщение · #5 ARCHANGEL Да как-то не доводилось иметь дело с PID-ами За подсказки спасибо, все понял, счас кофейку приму и буду реализовывать.

Для печати