Здравствуйте!
Очень нужно узнать, как правильно создавать и закрывать процессы.
Способ, который я использую сейчас:
Глобальные переменные:
| Код |
var
Process, Thread: DWord;
|
Процедура запуска:
| Код |
// Запуск
procedure StartProcess(FileName, ComandLine: String);
const
ReadBuffer = 2400;
var
Security: TSecurityAttributes;
start: TStartUpInfo;
ProcessInfo: TProcessInformation;
// Error: integer;
ExitCode: Cardinal;
begin
with Security do
begin
nlength := SizeOf(TSecurityAttributes);
binherithandle := true;
lpsecuritydescriptor := nil;
end;
FillChar(Start, Sizeof(Start), #0);
start.cb := SizeOf(start);
start.dwFlags := STARTF_USESTDHANDLES +
STARTF_USESHOWWINDOW;
start.wShowWindow := SW_HIDE;
// Создание процесса
if CreateProcess(PChar(FileName),
PChar(ComandLine),
@Security,
@Security,
true,
NORMAL_PRIORITY_CLASS,
nil,
nil,
start,
ProcessInfo) then
begin
with ProcessInfo do
begin
Process:=ProcessInfo.hProcess;
Thread:=ProcessInfo.hThread;
WaitForInputIdle(Process, INFINITE); // ждем завершения инициализации
WaitforSingleObject(ProcessInfo.hProcess, INFINITE); // ждем завершения процесса
GetExitCodeProcess(ProcessInfo.hProcess, ExitCode); // получаем код завершения
CloseHandle(Thread); // закрываем дескриптор процесса
CloseHandle(Process); // закрываем дескриптор потока
end;
end;
end;
|
...и процедура завершения:
| Код |
// Остановка
procedure CloseProcess;
begin
// завершаем процесс
//postmessage(FindWindow('FileName', NIL), WM_CLOSE,0,0);
TerminateProcess(Process, 0);
CloseHandle(Thread);
end;
|
С запуском проблем нет, а вот с закрытием никак не разберусь. Нужно, чтобы сначала посылалось сообщение, что программу хотят закрыть (WM_CLOSE?), чтобы она успела сохранить настройки. Если программа не отвечает на WM_CLOSE и не убивается секунд 10, принудительно завершать процесс (Terminate). Причем должны завершаться все процессы, порожденные созданным процессом. В ряде случаев вылазает ошибка и завершение не происходит - в чем дело, разобраться не могу. Помогите! 
|
