🚀 go-pugleaf

On Sat, 13 Sep 1997 20:41:36 +0200, in pl.comp.lang.delphi "Przemyslaw
Smiejek" <smi...@priv.onet.pl> wrote:

>Mam problem. Potrzebuj�, by moja aplikacja w Delphi odpali�a zewn�trzny
>program (na razie DOSowy, a p�niej "Delphiaty"), poczeka�a na wykonanie
>si� tamtego programu, a nast�pnie dalej pracowa�a. Na czas wykonywania
>tamtego procesu, ta aplikacja powinna czeka�. Mo�e wywali� jakie� okienko,
>albo co� w tym stylu.
>---
>Pozdrawiam Przemek
Na DSP (http://sunsite.icm.edu.pl/delphi) jest komponent kt�ry to robi a jak
nie to:

(-repost-)
Spr�buj przez CreateProcess, jednym z parametr�w jest struktura
PROCESS_INFORMATION, w niej jest uchwyt do procesu. Potem albo
GetExitCodeProcess, albo sprawdzanie czy uchwyt do procesu jest w stanie
signaled. Ale chyba lepiej funkcja.
(-repost-)

Hobbit

--
----------------------------------
Krzysztof Swiatkowski - Lodz
e-Mail:  hob...@dom.vr.pl [lub] hob...@priv.onet.pl

Autor nie ponosi odpowiedzialnosci za jakiekolwiek zmiany opinii
poszerzenia horyzontow badz inne szkody spowodowane niewlasciwym
uzyciem powyzszego tekstu
----------------------------------

Sprobuj cos w tym rodzaju:

var
  EC: DWORD;
  PI:  TProcessInformation;

// utworz proces i ...
if CreateProcess(.....,PI) then
begin
   CloseHandle(PI.hThread);
   // ... poczekaj na jego zakonczenie
   if WaitForSingleObject(PI.hProcess,INFINITE) <> WAIT_FAILED then
     GetExitCodeProcess(PI.hProcess,EC);
   CloseHandle(PI.hProcess);
end;

Pisze z pamieci, wiec poza Paste&Copy powyzszy kawalek kodu bedzie 
wymagal troche pracy z Twojej strony <g>.

Robert Perlinski

Krzysztof Swiatkowski <spamfilt...@dom.vr.pl> wrote in article
<3420235b...@news.icm.edu.pl>...
> On Sat, 13 Sep 1997 20:41:36 +0200, in pl.comp.lang.delphi "Przemyslaw
> Smiejek" <smi...@priv.onet.pl> wrote:
> 
> >Mam problem. Potrzebuj�, by moja aplikacja w Delphi odpali�a zewn�trzny
> >program (na razie DOSowy, a p�niej "Delphiaty"), poczeka�a na wykonanie
> >si� tamtego programu, a nast�pnie dalej pracowa�a. Na czas wykonywania
> >tamtego procesu, ta aplikacja powinna czeka�. Mo�e wywali� jakie�
okienko,
> >albo co� w tym stylu.
> >---
> >Pozdrawiam Przemek
> Na DSP (http://sunsite.icm.edu.pl/delphi) jest komponent kt�ry to robi a
jak
> nie to:
> 
> (-repost-)
> Spr�buj przez CreateProcess, jednym z parametr�w jest struktura
> PROCESS_INFORMATION, w niej jest uchwyt do procesu. Potem albo
> GetExitCodeProcess, albo sprawdzanie czy uchwyt do procesu jest w stanie
> signaled. Ale chyba lepiej funkcja.
> (-repost-)
> 
> Hobbit
> 
> --
> ----------------------------------
> Krzysztof Swiatkowski - Lodz
> e-Mail:  hob...@dom.vr.pl [lub] hob...@priv.onet.pl
> 
> Autor nie ponosi odpowiedzialnosci za jakiekolwiek zmiany opinii
> poszerzenia horyzontow badz inne szkody spowodowane niewlasciwym
> uzyciem powyzszego tekstu
> ----------------------------------
> 
> 

 Robert Perlinski wrote in article <01bcc1a1$45257770$1cef8bcf@homerxp>...
>Sprobuj cos w tym rodzaju:
>var
>  EC: DWORD;
>  PI:  TProcessInformation;
>// utworz proces i ...
>if CreateProcess(.....,PI) then
>begin
>   CloseHandle(PI.hThread);
>   // ... poczekaj na jego zakonczenie
>   if WaitForSingleObject(PI.hProcess,INFINITE) <> WAIT_FAILED then
>     GetExitCodeProcess(PI.hProcess,EC);
>   CloseHandle(PI.hProcess);
>end;

Sorry, ale nie �api�. Gdzie tutaj odpalam program DOSowy? Sorry za
lamerskie pytania.

Funkcja CreateProcess odpowiedzialana jest za uruchomienie 
Twojego programu. W miejsce kropek musisz wstawic odpowiednie
parametry. Pierwsze dwa z nich to nazwa programu i parametry 
(odpowiednio) - ostatni to wksaznik na strukture TProcessInformation,
Co do pozostalych (6? 7?), bedziesz musial zajrzec do opisu, ktorego
nie mam nietety pod reka.

Robert Perlinski

Przemys�aw �miejek <smi...@priv.onet.pl> wrote in article
<5vj9fg$jb9$1...@sunsite.icm.edu.pl>...
>  Robert Perlinski wrote in article
<01bcc1a1$45257770$1cef8bcf@homerxp>...
> >Sprobuj cos w tym rodzaju:
> >var
> >  EC: DWORD;
> >  PI:  TProcessInformation;
> >// utworz proces i ...
> >if CreateProcess(.....,PI) then
> >begin
> >   CloseHandle(PI.hThread);
> >   // ... poczekaj na jego zakonczenie
> >   if WaitForSingleObject(PI.hProcess,INFINITE) <> WAIT_FAILED then
> >     GetExitCodeProcess(PI.hProcess,EC);
> >   CloseHandle(PI.hProcess);
> >end;
> 
> Sorry, ale nie �api�. Gdzie tutaj odpalam program DOSowy? Sorry za
> lamerskie pytania.
> 
>