Avi aus Resource laden und abspielen

[City Light]

danke Christian
ich hab mal das so gemacht

Delphi-Quellcode:

{$WARNINGS OFF}
procedure TForm1.Temp;
var
  rs: TCustomMemoryStream;
  s : string;
begin
  s := 'A1'; {Name der Resource}
  try
    rs := TResourceStream.Create(hInstance, s, 'AVI');
    rs.SavetoFile(ExtractFilePath(paramstr(0))+Filename);
  Finally
    rs.Free;
  end;
end;
{$WARNINGS ON}