Externes Programm mit Dok starten / z.B 'Test.pdf'

[franz]

Zitat von Spargeltarzan:

Hallo

Hat jemand eine Idee wie man ein externes Programm aufruft, das dann das gewünschte Dokument (z.B. Test.pdf) anzeigt ?
Ich weiss wie man externe Programme aufruft, aber ich kann nur das Programm aufrufen. Das Dokument muss ich dann "von Hand" noch mit dem Laden Befehl des Programms laden. Ich möchte das Dokument direkt vom Programm darstellen lassen.

Wenn die Datei Windows bekannt ist, dann rufe doch einfach die Datei auf. Das dazugehörige Programm wird automatisch geladen und die Datei angezeigt:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses
  ShellApi; // Wird für ShellExecute() benötigt

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,
    PChar('open'),
    PChar('C:\Eigene Dateien\Test.pdf'),
    nil,
    nil,
    SW_SHOWNORMAL);
end;

end.

Wenn die Datei Windows nicht bekannt ist, dann kannst du folgendes versuchen:

Delphi-Quellcode:

ShellExecute(Handle,
  PChar('open'),
  PChar('C:\Programme\Programm zum Öffnen.exe'),
  PChar('C:\Eigene Dateien\Test.pdf'),
  nil,
  SW_SHOWNORMAL);