Wie kann man ein Video aus Res direkt abspielen ?

[MacGuyver]

Rücke den Quelltext bitte etwas ein. Da kann man nichts erkennen.

Ok, ok, ich machs.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  rStream: TResourceStream;
  fStream: TFileStream;
  fname: string;
begin
  {this part extracts the avi from exe}
  fname:=ExtractFileDir(Paramstr(0))+'Intro.avi'; // auf Festplatte speichern[/COLOR]
  rStream := TResourceStream.Create
  (hInstance, 'Intro', RT_RCDATA);
  try
    fStream := TFileStream.Create(fname, fmCreate);
    try
      fStream.CopyFrom(rStream, 0);
    finally
      fStream.Free;
    end;
  finally
    rStream.Free;
  end;
  {this part plays the avi}
  MediaPlayer1.Close;
  MediaPlayer1.FileName:=fname;
  MediaPlayer1.Open;
end;

Kannst du nicht einfach ein Handle organisieren und dann das an den Mediaplayer weitergeben.