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.
|