Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
Delphi 2006 Professional
|
Re: Files öffnen und laden
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"
|
|
Zitat
|