Executar um arquivo (ShellExecute)?

Question

Pessoal como eu consigo saber se meu comando ShellExecute abriu ou nao o meu arquivopor exemplo:Eu estou abrindo um arquivo pdf desta maneira:ShellExecute(Application.Handle, nil, PChar(�arquivo.pdf�)...

Lucas Silva · Answer

Tenta esse c�digo ai, n�o sei se da certo!

try
 ShellExecute(Application.Handle, nil, PChar(�arquivo.pdf�), nil, nil, SW_SHOWMAXIMIZED); 
except SHowMessage(�Esse programa n�o est� instalado�);
end;

Geno · Answer

[quote:4078447253=�Lucas Alves Silva�]Tenta esse c�digo ai, n�o sei se da certo!

try
 ShellExecute(Application.Handle, nil, PChar(�arquivo.pdf�), nil, nil, SW_SHOWMAXIMIZED); 
except SHowMessage(�Esse programa n�o est� instalado�);
end;

[/quote:4078447253]

Nao...nao funciona. Pq a excecao nao eh gerada pelo delphi, e sim pela API do windows, ao qual o shellexecute faz a chamada.

Portanto a resposta da FUNCAO ShellExecute eh que vai determinar se o arquivo foi aberto ou nao com sucesso.

A funcao retorna um cardinal
Os resultados que conheco sao esses aki:

2 -> arquivo nao existe
31 -> nao existe um programa acossiado a extensao desse arquivo
42 -> Abriu com sucesso.

Assim, sugiro que vc utilize o seguinte codigo:

if ShellExecute(Application.Handle, �open�, PChar�arquivo.pdf�), nil, nil, SW_SHOWMAXIMIZED) <> 42 then
ShowMessage(�O arquivo n�o pode ser aberto!�);

Ou entao vc teclara uma variavel cardinal que recebe o shellexecute:

var
teste: cardinal;
begin
teste := ShellExecute(Application.Handle, �open�, PChar�arquivo.pdf�),
nil, nil, SW_SHOWMAXIMIZED);
if teste = 2 then
ShowMessage(�O arquivo n�o existe�)
else
if teste = 31 then
ShowMessage(�O Acrobat Reader nao foi instalado�);

Acredito que isso sirva.
Espero ter ajudado.

F�rum Executar um arquivo (ShellExecute)? #221644