teste se o arquivo existe primeiro:
If FileExists(c:\Desenv\Agenda Eletronica\Agenda.exe) then
ShellExecute(Handle,
pchar('open'),
pchar('c:\Desenv\Agenda
Eletronica\Agenda.exe'),nil,nil,SW_SHOWNORMAL);
[ ]´s
Moacir
Eduardo Silva ® escreveu:
> 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 >>>>>
<*> 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!.