Código Delphi [-] try webBrowser1.Navigate('file:///'+FormaPrincipal.psRutaPDF); except ShellExecute(Handle, 'open', 'explorer.exe', PChar(FormaPrincipal.psRutaPDF), nil, SW_SHOWNORMAL); PostMessage(Handle, WM_CLOSE, 0, 0); // cierro la forma Exit; end;
try webBrowser1.Navigate('file:///'+FormaPrincipal.psRutaPDF); except ShellExecute(Handle, 'open', 'explorer.exe', PChar(FormaPrincipal.psRutaPDF), nil, SW_SHOWNORMAL); PostMessage(Handle, WM_CLOSE, 0, 0); // cierro la forma Exit; end;