exe ye swf gömmek için sırası ile

1. adım : swf mizi c:\ kopyalıyoruz. ( Swf mizin adı Deneme olsun.)

2. adım : Başlat tan çalıştıra geliyoruz ve command yazıp enter a basıyoruz.

3. adım : Yine diskimizin root una geliyoruz ( c:\ ) ve burada copy con Deneme.rc yazıp entera basın.
 İmleç bir alt satıra geçiyor. Burayada deneme rcdata deneme.swf yazdıktan sonra
klavyemizin ctrl + z tuşlarına basarak rc dosyamızı oluşturalım.

4. adım : Tekrar root tayken brcc32 deneme.rc yazarak entera basıyoruz.
Delphi komutu otomatik olarak bize .res dosyasını oluşturuyor.

5. adım : Delphiyi açtıktan sonra formun oncreate veya onshow olayına aşağıdaki kodumuzu yapıştırıyoruz.

var
        rStream: TResourceStream;
        fStream: TFileStream;
        fname: string;
begin
        fname:=ExtractFilePath(Application.ExeName)+'\deneme.swf';
        rStream := TResourceStream.Create(hInstance, 'deneme', RT_RCDATA);
        try
              fStream := TFileStream.Create(fname, fmCreate);
              try
                    fStream.CopyFrom(rStream, 0);
              finally
                    fStream.Free;
              end;
        finally
              rStream.Free;
        end;
       ShockwaveFlash1.Stop;
       ShockwaveFlash1.Movie:=fname;
       ShockwaveFlash1.play;
end;

tabii {$R *.Dfm} ifadesinin altına {$R deneme.res} yazmayı ve uses e mmsystem eklemeyide unutmayalım.

Buraya kadar Ama bunun için Delphiden activex bileşeni olan ShockwaveFlash kurulmalıdır.
Eğer bu delphiye install edilmemiş ise o zaman durmadan adımlara devam.

6. adım : Delphi menüsünden Component --> Import ActiveX Contol... -- > Shockwave Flash (Versiyon 1.0)
seçilerek Install tuşuna basılır. Burada şunu belki hatırlatmama gerek yok ama bilmeyenler olabilir diye küçük
birşey daha belirtmek istiyorum, Install butonuna basmadan önce isterseniz bu bileşenin kütüphanenin hangi
 sekmesinde olacağına siz karar verebilirsiniz. Bunun için Palette Page açılır kutusundan ( Combobox ) istediğiniz
sekmeyi seçip öyle Install edebilirsiniz...

Hepinize çalışmalarınızda başarılar dilerim.

Delphi kaynak dosyası (*.res) oluşturarak bunu exe içine gömmek ile ilgili faydalı bir anlatım. Bu şekilde sadece flash dosyaları değil her türlü dosya exe içine gömülebilmekte. Teşekkür ederiz muderless...

  bunu zaten biliyorum ama bunu eklemek oanda aklıma gelmedi neyse daha ilginç konularda buluşmak üzere

Arkadaşlar ben delphi formda swf yi çalıştırıyorum Shockwave Flash nesnesi programı oluşturduğum bilgisayarda yüklü... Kendi bilgisayarımda sorunsuz çalışıyor ama başka bilgisayarlarda swf nin olduğu yer boş görünüyor ne yapmalıyım lütfen yardım edin bitirme ödevim ve cok az bir sürem kaldı bilen varsa ne olur cevaplarını esirgemesin =)

ShockwaveFlash1.EmbedMovie:=true;

swf dosyası exe içinder heryerde çaılır. En azından ben bu şeilde yapıyorum. Hiç sorun yaşamadım.