Eu uso isso!
function ExecutaComandoEEspera(Comando: string): boolean;
var
PI: TProcessInformation;
Si: TStartupInfo;
begin
Si.cb := Sizeof(Si);
Si.lpReserved:= nil;
Si.lpDesktop:= nil;
Si.lpTitle:= nil;
Si.wShowWindow:= SW_hide;
Si.cbReserved2:= 0;
Si.lpReserved2:= nil;
Si.dwFlags:= StartF_UseShowWindow;
if not(CreateProcess(nil, PChar(comando), nil, nil, false, 0, nil, nil, Si,
PI)) then
begin
Result := False;
exit;
end
else
begin
CloseHandle(PI.hThread);
while (WaitForSingleObject(PI.hProcess, 500) <> Wait_Object_0) do
{$IFDEF EXAMINA }
fMenus.Update;
{$ELSE}
;
{$ENDIF}
Result := True;
end;
end;
Abraço
--
José Henrique (Zote)
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Igor
Alexandre
Enviada em: terça-feira, 14 de março de 2006 00:14
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Esperar o enceramento de um programa
alguem sabe como paralizar o sistema enquanto um outro programa está em
execução?
por exemplo: atraves do meu programa em delphi e executo a calculadora, e
equanto a calculadora estiver em execucao o meu programa fica paralizado como
se fosse com o comando SLEEP.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
Received: (qmail 74995 invoked by uid 0); 14 Mar 2006 00:12:48 -0300
Received: from 66.94.237.44 by poseidon.bludata.com.br (envelope-from <[EMAIL
PROTECTED]>, uid 0) with qmail-scanner-1.25
(clamdscan: 0.85/974. spamassassin: 3.0.2.
Clear:RC:0(66.94.237.44):SA:0(-1.3/5.0):.
Processed in 4.668264 secs); 14 Mar 2006 03:12:48 -0000
X-Qmail-Scanner-Mail-From: [EMAIL PROTECTED] via poseidon.bludata.com.br
X-Qmail-Scanner: 1.25 (Clear:RC:0(66.94.237.44):SA:0(-1.3/5.0):. Processed in
4.668264 secs)
Received: from unknown (HELO n10a.bullet.scd.yahoo.com) (66.94.237.44)
by poseidon.bludata.com.br with SMTP; 14 Mar 2006 00:12:44 -0300
Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys
DomainKey-Signature: a=a-sha1; q=s; c=fws; s=tel; d=hoogrupos.com.br;
b=a4h0WsrXdVN/sXFYxJDeBCNguYEilHYdhOXa9oTlFp9jDGqJ5lFXXfYfMWh/Gfrl0V6Qlm+sFLItVDaWP6aghxVQd+qmTWP7FcQcn/ufgt6A0RTpdXnPqa2FZylTzr;
Received: from [66.218.69.3] by n10.bullet.scd.yahoo.com with NNFMP; 14 Mar
2006 03:12:33 -0000
Received: from [66.218.66.96] by t3.bullet.scd.yahoo.com with NNFMP; 14 Mar
2006 03:12:33 -0000
X-Yahoo-Newman-Property: groups-email
X-Sender: [EMAIL PROTECTED]
X-Apparently-To: delphi-br@yahoogrupos.com.br
Received: (qmail 44012 invoked from network); 14 Mar 2006 03:12:30 -0000
Received: from unknown (66.218.66.216)
by m13.grp.scd.yahoo.com with QMQP; 14 Mar 2006 03:12:30 -0000
Received: from unknown (HELO wproxy.gmail.com) (64.233.184.204)
by mta1.grp.scd.yahoo.com with SMTP; 14 Mar 2006 03:12:30 -0000
Received: by wproxy.gmail.com with SMTP id i11so1490022wra
for <delphi-br@yahoogrupos.com.br>; Mon, 13 Mar 2006 19:12:22 -0800
(PST)
Received: by 10.54.146.5 with SMTP id t5mr4153567wrd;
Mon, 13 Mar 2006 19:12:22 -0800 (PST)
Received: from igor ( [200.191.199.20])
by mx.gmail.com with ESMTP id 6sm992458wrh.2006.03.13.19.12.12;
Mon, 13 Mar 2006 19:12:22 -0800 (PST)
Message-ID: <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
References: <[EMAIL PROTECTED]>
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
X-Originating-IP: 64.233.184.204
X-eGroups-Msg-Info: 1:12:0:0
From: "Igor Alexandre" <[EMAIL PROTECTED]>
X-Yahoo-Profile: igoralexandres
Sender: delphi-br@yahoogrupos.com.br
MIME-Version: 1.0
Mailing-List: list delphi-br@yahoogrupos.com.br; contact [EMAIL PROTECTED]
Delivered-To: mailing list delphi-br@yahoogrupos.com.br
List-Id: <delphi-br.yahoogrupos.com.br>
Precedence: bulk
List-Unsubscribe: <mailto:[EMAIL PROTECTED]>
Date: Tue, 14 Mar 2006 00:14:20 -0300
Subject: [delphi-br] Esperar o enceramento de um programa
Reply-To: delphi-br@yahoogrupos.com.br
Content-Type: text/plain; charset=O-8859-1
Content-Transfer-Encoding: quoted-printable
X-Spam-Checker-Version: SpamAssassin 3.0.2 (2004-11-16) on
poseidon.bludata.com.br
X-Spam-Level:
X-Spam-Status: No, score=.5 required=0 tests=L,BAYES_00,RCVD_BY_IP
autolearn=available version=0.2
alguem sabe como paralizar o sistema enquanto um outro programa está em
execução?
por exemplo: atraves do meu programa em delphi e executo a calculadora, e
equanto a calculadora estiver em execucao o meu programa fica paralizado como
se fosse com o comando SLEEP.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
