Thema: Delphi Files öffnen und laden

Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#9

Re: Files öffnen und laden

  Alt 23. Jul 2004, 14:21
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;
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat