Hi
DP,ler
ich habe im netz einen code gefunden mit dem man in einem Delphi projekt eine resource mit einbindet und diese via TFilestream im eigentlichen Projekt mit dem TMediaPlayer abspielt (mp3). Das ganze Jedoch ohne die resource irgendwo auf der festplatte zu speichern via stream eben.
Ist dies auch mit einer exe datei möglich? also das meine resource statt eder mp3 eine exe enthält und diese via stream wiedergegeben bzw von dem programm geöffnet wird?
Wäre für vieles nützlich z.b. wenn man ein Grafisches Interface für ein Komamndozeilen programm schreiben möchte.
LG
Suni
Folgenden Code habe ich um meine sound resource via stream abzuspielen
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
//begin
// if OpenDialog1.Execute then
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
{this part extracts the mp3 from exe}
fname := ExtractFileDir(Paramstr(0))+'test.mp3';
rStream := TResourceStream.Create(hInstance, 'test', 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 mp3}
MediaPlayer1.Close;
MediaPlayer1.FileName:=fname;
MediaPlayer1.Open;
MediaPlayer1.Play;
[edit=sakura] [code]->[delphi], liest sich einfach schöner 
Mfg, sakura[/edit]