🚀 go-pugleaf

Witam

Napisalem sobie funkcje, za jakimis przykladami z sieci, ktora ma za 
zadanie wlaczyc jakas aplikacje w osobnym watku, ukrywajac jej okno. 
Zalozenie jest takie, ze razem z moim programem wlacza sie drugi program 
z linii polecen i ma nie byc widac tego czarnego okna commandline. Przy 
zamykaniu aplikacji wylaczam ten uruchomiony proces, korzystajac z id, 
ktore zwrocilo mi CreateProcess. Oto ta funkcja:

function WlaczExeka(sciezka, parametry: string): cardinal;
var
   startup: STARTUPINFO;
   inf: PROCESS_INFORMATION;
begin
   result := 0;

   ZeroMemory(@startup, SizeOf(STARTUPINFO));
   startup.dwFlags := STARTF_USESHOWWINDOW;
   startup.wShowWindow := SW_HIDE;
   startup.cb:= SizeOf (STARTUPINFO);

   if CreateProcess(pchar(sciezka), pchar(parametry), nil, nil, false, 0 
, nil, nil, startup, inf) then
   begin
     result := inf.dwProcessId;
   end
   else
   begin
//    Memo1.lines.add('Niemożliwe uruchomienie: ' + sciezka);
   end;
end;


Calosc dziala poprawnie, jednak mam problem innego typu.
Zakladajac, ze moja aplikacja sie jakos wywali, to ten stworzony proces 
zostaje w pamieci i dziala nadal, chociaz moja aplikacja jest juz 
zamknieta (bo przy wywaleniu sie nie zamknela procesu potomnego).

I tu pytanie: Jak to zrobic, zeby ten proces zawsze sie zamknal razem z 
moja aplikacja? Chodzi mi po glowie, ze proces utworzony przeze mnie 
powinien miec jakiegos parenta, ktorym jest moja aplikacja. Jesli moja 
aplikacja sie zamknie, to tamten proces tez musi sie zakonczyc.

Jak to mozna rozwiazac?


-- 
GAD Zombie
http://gad.art.pl/  http://sadist.art.pl/ 
http://gry-samochodowe.gad.art.pl/