Audio Resource mit Windows Mediaplayer wiedergeben

[EWeiss]

Zitat von BlackSnag:

Das würde Funktionieren.

Leider soll das Programm auch laufen können wenn du keine Schreibrechte hast.
Spätesten an diesem Punkt hätte man Probleme.

Trotzdem danke für die Idee.

Dann verwende keinen MediaPlayer sondern MMSystem.

Delphi-Quellcode:

uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject); 
var   
  hFind, hRes: THandle;   
  Song: PChar; 
begin  
  hFind := FindResource(HInstance, 'MainSongNameInDerResource', 'WAVE');  
  if hFind <> 0 then 
  begin    
    hRes := LoadResource(HInstance, hFind);    
    if hRes <> 0 then 
    begin      
      Song := LockResource(hRes);      
      if Assigned(Song) then 
        SndPlaySound(Song, snd_ASync or snd_Memory);      
      UnlockResource(hRes);    
    end;    
    FreeResource(hFind);  
  end; 
end;