if FileExists('c:\Desenv\AgendaEletronica\Agenda.exe') then
ShellExecute(Handle,pchar('open'), pchar('c:\Desenv\AgendaEletronica\Agenda.exe'),nil,nil,SW_SHOWNORMAL)
else
Application.MessageBox('O programa não pode ser iniciado!', 'Erro Fatal!', mb_Ok + mb_IconError);
Espero que ajude.
----- Original Message -----
From: Eduardo Silva ®
To: Grupo Delphi-br
Sent: Wednesday, May 03, 2006 2:32 PM
Subject: [delphi-br] Chamar executável através de outro executavel"
Galera tenho o código baixo que abre um executável através de outro
executável
ShellExecute(Handle,pchar('open'),
pchar('c:\Desenv\Agenda
Eletronica\Agenda.exe'),nil,nil,SW_SHOWNORMAL);
O problema é que se o caminho estiver errado, ele demora um pouco até
retornar ao sistema (parece que fica travado...)
Tem como melhorar esta velocidade de teste e retornar uma mensagem do tipo:
"Caminho ou sistema não encontrado!" ?
__ __
/ \ /| |'-.
.\__/ || | |
_ / `._ \|_|_.-'
| / \__.`=._) (_
|/ ._/ |"""""""""|
|'. `\ | | Eduardo de Almeida Silva
;"""/ / | | Kobra Sistemas
) /_/| |.-------.| Desenvolvimento de Software
' `-` ' " "
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por: | |
|
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 Termos do Serviço do Yahoo!.