Wie kann man ein Video aus Res direkt abspielen ?

[thomas2009]

ich muss also die video-Datei in Windows Temp legen und dann von doert wieder laden :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
res: TResourceStream;
temp: String;
  begin
  temp:=GetEnvironmentVariable('TEMP');
  res := TResourceStream.Create(hInstance, PChar('film1'),
PChar('AVI'));
   try
   res.SaveToFile(temp+'film1.avi');
   finally
   res.Free;
   end;
MediaPlayer1.Close;
MediaPlayer1.FileName:=temp+'film1.avi';
MediaPlayer1.Open;
MediaPlayer1.play;
end;

Es funktioniert aber es wäre für mich viel besser, wenn man das Video direkt aus res abspielen kann