abrir archivos con OpenDialog y ShellExecute

[Rudi]

Añade 'ShellApi' en el uses de tu form

y la Funcion ShellExecute segun la he usado lleva esta forma

ShellExecute(Form1.Handle,nil,PChar(OpenDialog1.FileName),'','',SW_SHOWNORMAL);

Form1 lo cambias por el nombre de tu Form

comprobe lo que scribiste y asi funciona:

ShellExecute(GetActiveWindow(),'open',PChar(OpenDialog1.FileName), nil,nil, SW_SHOWNORMAL);


espero te sirva.