1:
2:

// Ermöglicht einen Zugriff auf die Windows Registrierung
uses Registry;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

// Sucht in einem String nach einem gültigen Dateipfad
// Bsp: "C:\Programme\Adobe\Acrobat 7.0\Reader\AcroRd32.exe" "%1"
//  =>   C:\Programme\Adobe\Acrobat 7.0\Reader\AcroRd32.exe
function CleanOpenCommand(Command:String):String;
var i,j:integer;
begin
  result:='';
  for i:=1 to length(Command) do
    begin
      for j:=i to length(Command) do
        begin
          result:=result+Command[j];
          if FileExists(Result) then
            begin
              exit;
            end;
        end;
      result:='';
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

// Ermittelt die Anwendung mit der standardgemäß PDF Dateien verknüpft sind.
function GetPDFReader:String;
var Reg:TRegistry; tmp:String;
begin
  Result:='';

  try

  Reg:=TRegistry.Create(KEY_READ);
  Reg.RootKey:=HKEY_CLASSES_ROOT;

  if Reg.OpenKey('.pdf', false) then
    begin
      tmp:=Reg.ReadString('');
      Reg.CloseKey;
      if Reg.OpenKey(tmp+'\Shell\Open\Command', false) then
        begin
          tmp:=Reg.ReadString('');
          Reg.CloseKey;

          Result:=CleanOpenCommand(tmp);
        end;

    end;
  finally
    Reg.Free;
  end;

end;					

1:
2:
3:
4:
5:

// Anwendungsbeispiel
procedure TForm1.Button1Click(Sender: TObject);
begin
   showmessage(GetPDFReader);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure runpdf;
var
 r: tfilerun;
 myPDF: string;
begin
 myPDF := 'c:\pfad\datei.pdf';
 r := tfilerun.create(self);
 try
  r.Filename := myPDF;
  r.execute;
 finally
  r.free;
 end;
end;