(Resolvido) Abrir arquivo pdf

[danielrgoes]

Boa Tarde pessoal

Eu tenho um cod assim

procedure TFrm_desenhos.DBGrid1DblClick(Sender: TObject);

var

caminho :string;

Pdir :pchar;

begin

caminho := 'c:\teste\'+ modulo.cds_desenhosCAMINHO.Value+'.pdf';

GetMem(pDir,256);

StrPCopy(pDir, caminho); {Aqui você coloca o caminho + o nome do arquivo}

ShellExecute(0, nil,caminho, nil, Pdir, SW_NORMAL);

FreeMem(pdir,256);

end;

ele funciona muito bem quando no lugar de caminho eu coloco a string mesmo 'c:\teste\arquivo.pdf' mais quando eu tento colocar uma variavel porque meu caminho vem do banco da incompatibilidade (Str and PAnsiChar) alguém tem alguma soluçao?

muito obrigado

Editado Fevereiro 10, 2009 por danielrgoes

[Jhonas]

Tente assim

procedure TFrm_desenhos.DBGrid1DblClick(Sender: TObject); 
var 
caminho :string; 
Pdir :pchar; 
begin 
caminho := 'c:\teste\'+ modulo.cds_desenhosCAMINHO.Value+'.pdf'; 
GetMem(pDir,256); 
StrPCopy(pDir, pchar(caminho)); {Aqui você coloca o caminho + o nome do arquivo} 
ShellExecute(0, nil,pchar(caminho), nil, Pdir, SW_NORMAL); 
FreeMem(pdir,256); 
end;

abraço

[danielrgoes]

Muito Obrigado Jhonas funciou muito bemmmm