Fórum Utilizando arquivos PDFs #184669

[b:cdf6ed5097]PChar(Edit1.Text)[/b:cdf6ed5097]

Deve funcionar.

OBS:
Não se usa direcionar um tópico a uma pessoa em especial, para isso use MP´s

pois é só que isso não funciona....

Prezado amigo.
Como disse, só se eu fizesse pra vc, e vc esta com sorte, pois tenho um exemplo com fontes para abrir arquivos pdf.
Faz o seguinte: Para não ficarmos digitando muito, informe seu mail pra eu te enviar o exemplo que tenho, ok?
MMTOOR2003

pode analisar a rotina para criar um exemplo se quiser:

unit PDF;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, ShellAPI,Buttons;

type
TFrm_PDF = class(TForm)
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
Edit1: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
procedure PDF(const aAdress: String);
{ Public declarations }
end;

var
Frm_PDF: TFrm_PDF;

implementation
var
buffer: String;
k: string;

{$R *.dfm}
procedure TFrm_PDF.PDF(const aAdress: String);
begin
k:= label1.caption+´\´+edit1.text;
buffer := k;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;

procedure TFrm_PDF.SpeedButton1Click(Sender: TObject);
begin
PDF(k);
end;
end.


MMTOOR2003

obrigado.