PDF ve Tif Dosyası Açma

[Hashirama]

Merhaba Arkadaşlar

Delphi VCL ile daha önce "olecontainer" nesnesini kullanarak istediğim dosyaları açabiliyordum. Ancak Firemonkey de böyle bir şey yok. Acaba pdf ve tif dosyasını nasıl açabilirim ?

Kod: Tümünü seç

procedure TForm3.SpeedButton20Click(Sender: TObject);
var
yolm:AnsiString;
begin
    yolm:=dbedit14.Text;
    If FileExists(yolm) Then
  begin

    try
      olecontainer1.CreateLinkToFile(yolm,false);
     except on e:exception do
      messagedlg (e.message , mterror, [mbok],0);
     End;
     olecontainer1.DoVerb(0);
  end else
ShowMessage('Belirtilen Dizinde Dosya Bulunamadı');


end;

Teşekkürler.

[Hashirama]

Çözüldü olarak işaretlenebilir.

uses ShellAPI

Kod: Tümünü seç

ShellExecute(0, 'OPEN', 'C:\Program Files (x86)\Foxit Software\Foxit Reader\FoxitReader.exe', PChar('C:\Users\h\Desktop\deneme.pdf'), '', 1);