dicas show delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais
sombra
Artigos Show Delphi

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais
sombra
iniciantes show delphi

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais
sombra
downloads show delphi

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
sombra
voltar

PARA QUEM GOSTA DE DELPHI

Como abrir um arquivo pdf pelo Delphi?

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;
  • InfusTec
  • 3 comentários
  • 13 de março de 2015

3 respostas para “Como abrir um arquivo pdf pelo Delphi?”

  1. zeca ferreira disse:

    Obrigado, amigo.

  2. Marcos disse:

    como que eu declaro essa OpenPDF ?

  3. Alison disse:

    E se for rodar a aplicação no MACOS?

    Como fica… saberia me dizer?

Deixe um comentário

Ir ao topo

© 2024 Infus Soluções em Tecnologia - Todos os Direitos Reservados