Eine MP4-Sound-Datei ausgeben

[HPB]

Guten Tag Delphianer,
ich möchte eine Sound-Datei die im MP4-Format vorliegt, mit folgenden Code ausgeben:

Delphi-Quellcode:

ShellExecute(Handle, 'open', PChar('D:\Musik\Air.MP4'), '', '', SW_NORMAL)

Bedauerlicherweise passiert nichts. Absolut nichts.
Mit einem Doppeltklich auf die Datei, wird automatisch der Mediaplayer gestartet und die Datei abgespielt!
Was ist falsch, was muß ich anders machen??

Mit vielen Dank im voraus.
HPB

[Bernhard Geyer]

Wenn du IE9 hast kannst du den IE (TWebBrowser) "mißbrauchen":

http://stackoverflow.com/questions/6...ot-play-in-ie9

[lbccaleb]

Willst du Sie jetzt einfach mit deinem Programm öffnen oder in deinem Programm abspielen??

[HPB]

Zitat:

Zitat von lbccaleb (Beitrag 1191720)

Willst du Sie jetzt einfach mit deinem Programm öffnen oder in deinem Programm abspielen??

Die Datei soll einfach nur abgespielt werden.

Gruß
HPB

[DeddyH]

Mal doof gefragt: was gibt ShellExecute denn zurück?

[HPB]

Zitat:

Zitat von DeddyH (Beitrag 1191767)

Mal doof gefragt: was gibt ShellExecute denn zurück?

ShellExecute gibt gar nichts zurück.

HPB

[Dalai]

Zitat:

Zitat von HPB (Beitrag 1191792)

ShellExecute gibt gar nichts zurück.

Doch:

Zitat:

Zitat von Win32 API Hilfe zu ShellExecute

Return Values

If the function succeeds, the return value is the instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application.
If the function fails, the return value is an error value that is less than or equal to 32. The following table lists these error values:
[...]

MfG Dalai

[HPB]

Zitat:

Zitat von Dalai (Beitrag 1191794)

Zitat:

Zitat von HPB (Beitrag 1191792)

ShellExecute gibt gar nichts zurück.

Doch:

Zitat:

Zitat von Win32 API Hilfe zu ShellExecute

Return Values

If the function succeeds, the return value is the instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application.
If the function fails, the return value is an error value that is less than or equal to 32. The following table lists these error values:
[...]

MfG Dalai

Moin Delphianer,
natürlich gibt ShellExecute etwas zurück. Dies wollte ich auch nicht sagen. Sondern es wird nichts ausgeführt.
Aber nun kommt es. Ich habe eben das Programm neu compiliert und siehe da, nun wird das Musikstück
abgespielt. Weiss der Kuckuck warum.
Vielen Dank an alle die geholfen haben.
HPB

[Dalai]

Zitat:

Zitat von HPB (Beitrag 1191797)

Sondern es wird nichts ausgeführt.

Und genau deshalb prüft man Rückgabewerte von Funktionen, was DeddyH ja auch meinte. Dass die Funktion nicht den gewünschten Erfolg/Effekt hat (ein Programm auszuführen), war bereits nach deinem OP klar.

MfG Dalai