



Abrindo um arquivo pdf como o programa padrão.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | { É necessáro estar declarado ShellAPI, SysUtils e Windows na seção uses. Delphi XE 7 ou superior declare Winapi.ShellAPI, System.SysUtils e Winapi.Windows } procedure OpenPDF(aFile : TFileName; TypeForm : Integer = SW_NORMAL); var Pdir: PChar; begin GetMem(pDir, 256); StrPCopy(pDir, aFile); ShellExecute(0, nil, Pchar(aFile), nil, Pdir, TypeForm); FreeMem(pdir, 256); end; // Exemplo de uso procedure TForm1.Button1Click(Sender: TObject); begin OpenPDF('C:\arquivopdf.pdf'); // Abrindo com a tela maimizada OpenPDF('C:\arquivopdf.pdf', SW_SHOWMAXIMIZED); end; |
Você precisa fazer o login para publicar um comentário.
Obrigado, amigo.
como que eu declaro essa OpenPDF ?
E se for rodar a aplicação no MACOS?
Como fica… saberia me dizer?