Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#2

Re: Bild mit Standardsoftware öffnen

  Alt 11. Jan 2009, 13:13
Delphi-Referenz durchsuchenShellExecute sollte Dir helfen:

Delphi-Quellcode:
procedure TForm1.Button26Click(Sender: TObject);
var
  Pfad, Dateiname: String;
begin
  // Dateiauswahl starten
  if OpenPictureDialog1.Execute then
    begin
     // Pfad := ExtractFilePath(OpenPictureDialog1.FileName);
     // Dateiname := ExtractFileName(OpenPictureDialog1.FileName);
      {ShellApi.}ShellExecute(Handle, 'open', PChar(OpenPictureDialog1.fileName), nil, nil, SW_SHOWNORMAL);
    end;
end;
  Mit Zitat antworten Zitat