J'up ton fichier, voila deja le source pour les curieux:
procedure TForm1.Button1Click(Sender: TObject);
var
FStream,FStream2: TFileStream;
begin
FStream := TFileStream.Create('d:\source.exe',fmOpenRead);
FStream2 := TFileStream.Create('d:\output.swf',fmCreate);
FStream.Position := $46000;
FStream2.CopyFrom(FStream,FStream.Size-FStream.Position);
FStream.Free;
FStream2.Free;
end;
J'ai tout simplement regardé ou se trouvait le début du fichier, macromedia a tout simplement copié le fichier a la fin de son player.
---------------
Vendredi c'est Buitoni