🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.delphi
Article #89

Re: Wykonywanie aplikacji

#89
From: Robert Perlinski
Date: Mon, 15 Sep 1997 00:00
59 lines
2276 bytes
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
> ----------------------------------
> 
> 
Technical Details
Message-ID: <01bcc1a1$45257770$1cef8bcf@homerxp>
Path: mbox-mo1.pugleaf.net!unknown!not-for-mail
References: <5veopc$r4t$2@sunsite.icm.edu.pl> <3420235b.13319766@news.icm.edu.pl>

Show Full Headers
Complete Article Headers
From: "Robert Perlinski" <perl...@followme.com>
Subject: Re: Wykonywanie aplikacji
Date: 1997/09/15
Message-ID: <01bcc1a1$45257770$1cef8bcf@homerxp>
X-Deja-AN: 272558171
References: <5veopc$r4t$2@sunsite.icm.edu.pl> <3420235b.13319766@news.icm.edu.pl>
Organization: UUNET Canada News Transport
Newsgroups: pl.comp.lang.delphi
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit