Fórum Executando aplicativos externos #254740
16/10/2004
0
Como faço para rodar um aplicativo externo, mas verificando se ele realmente foi executado ou se teve um erro, ao abrí-lo?
Por exemplo, num Edit o usuário coloca o caminho do aplicativo e ao apertar um botão, ele executa o programa, porém caso o usuário tenha digitado errado, receba uma mensagem de erro?
Por exemplo, num Edit o usuário coloca o caminho do aplicativo e ao apertar um botão, ele executa o programa, porém caso o usuário tenha digitado errado, receba uma mensagem de erro?
Fmd
Curtir tópico
+ 0
Responder
Posts
16/10/2004
Tatuweb
Veja se a rotina abaixo resolve. Declare a unit [b:5b55b3a0a4]ShellAPI[/b:5b55b3a0a4] na sessão uses.
:arrow: O código de erro 0 significa que não houve erro.
:arrow: O código de erro 126 significa que mais de uma instância está sendo executada.
Caso você queira que mais de uma instância seja executada apague a comparação [i:5b55b3a0a4]GetLastErro 126[/i:5b55b3a0a4].
ShellExecute (Handle, ´open´, ´notepad.exe´, nil, nil, SW_SHOWNORMAL);
if (GetLastError <> 0) or (GetLastError <> 126) then
ShowMessage (´Falha catastrófica ao executar o programa!´);:arrow: O código de erro 0 significa que não houve erro.
:arrow: O código de erro 126 significa que mais de uma instância está sendo executada.
Caso você queira que mais de uma instância seja executada apague a comparação [i:5b55b3a0a4]GetLastErro 126[/i:5b55b3a0a4].
Responder
Gostei + 0
17/10/2004
Fmd
Valeu [b:f9054d71ae]TatuWeb[/b:f9054d71ae].
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)