Word Dokument mit Button öffnen (Anfänger)

[Mark-i-Mark]

Wie kann ich in einer Form mit einem Button ein Word Dokument öffnen.
Kann mir da jemand helfen und den Code sagen wie ich es schreiben muß.
Danke im vorraus.

[edit=Christian Seehase]Überschrift angepasst Mfg, Christian Seehase[/edit]

[Alexander]

Kuck dir mal ShellExecute an

[Christian Seehase]

Moin Mark-i-Mark,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Würdest Du Dir bitte angewöhnen sprechende Überschriften zu verwenden.
Danke.

Das Du ein Problem hast lässt sich denken, sonst würdest Du vermutlich keine Frage stellen.;-)
Ich hab' die Überschrift mal dem Problem angepasst.
BTW:
Dass es sich um eine Anfängerfrage handelt, kann durchaus gut zu wissen sein.

[flomei]

Die einfachste Möglichkeit wäre du nimmst "ShellExecute". Leg dafür einfach eine OpenDialog Komponente auf deine Form. Ausserdem zwei Buttons.
Es folgt ein bisschen Quellcode von mir. Ich habe ihn kommentiert damit du ihn besser verstehst...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;  //ShellAPI ist wichtig!

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  SelectedFileName: String;   //globale Variable die den Dateinamen enthält
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  begin
    OpenDialog1.Execute;          //Ausführen des Öffnen-Dialogs
      with
        OpenDialog1.Files
      do begin
        SelectedFileName := OpenDialog1.FileName;  //der globalen Variable den Dateinamen zuweisen
    end;
  end;

procedure TForm1.Button2Click(Sender: TObject);
  begin
    ShellExecute(Handle, 'open', 'SelectedFileName', 0, 0, 1); //ShellExecute kann Dateien oder Programme öffnen
  end;

end.

Leider öffnet er die Datei doch noch nicht. Es kann sich aber nur um einen kleinen Fehler handeln. Ich bin mir sicher, dass dieser behoben werden kann.

Ich hoffe ich konnte schon ein bisschen helfen.

MfG Florian :hi:

P.S.:

Delphi AND ShellExecute
So solltest du noch viel mehr Informationen über ShellExecute erhalten.
Ausserdem kannst du in der Delphi-Online-Hilfe nachgucken.
Suchwort: ShellExecute. Auch dort findest du noch einiges das dir helfen sollte.

[JoelH]

hättest du nur diese eine Seite in Forum durchgeblättert wärst du auf diesen link gestossen ;)
http://www.delphipraxis.net/internal...rd+application