Files öffnen und laden

[Sharky]

Hai,

es steht doch eigentlich schon alles da:

Delphi-Quellcode:

uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);  // Auswählen 
begin 
  if (OpenDialog1.Execute) then 
  begin 
    Edit1.Text := OpenDialog1.FileName 
  end; 
end; 

procedure TForm1.Button2Click(Sender: TObject); // Öffnen (mit dem Programm was für die Dateiendung registiert ist 
begin 
  ShellExecute(Handle, nil, PChar(Edit1.Text), nil, nil, SW_SHOW);
end;