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
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.