Thema
:
Delphi
Bild mit Standardsoftware öffnen
Einzelnen Beitrag anzeigen
Die Muhkuh
Registriert seit: 21. Aug 2003
7.332 Beiträge
Delphi 2009 Professional
#
2
Re: Bild mit Standardsoftware öffnen
11. Jan 2009, 14:13
ShellExecute
sollte Dir helfen:
zusammenfalten
·
markieren
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
;
Manuel
Blog reactivated
Zitat
Die Muhkuh
Öffentliches Profil ansehen
Besuche die Homepage von Die Muhkuh!
Mehr Beiträge von Die Muhkuh finden