1. adım : swf mizi c: kopyalıyoruz. ( Swf mizin adı Deneme olsun.)
2. adım : Başlat tan calış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. Imlec bir alt satıra geciyor. 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 actı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]'dene me.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 ifadesinin altına yazmayı ve uses e mmsystem eklemeyide unutmayalım.

Buraya kadar


6. adım : Delphi menusunden Component --> Import ActiveX Contol... -- > Shockwave Flash (Versiyon 1.0) secilerek Install tuşuna basılır. Burada şunu belki hatırlatmama gerek yok ama bilmeyenler olabilir diye kucuk birşey daha belirtmek istiyorum, Install butonuna basmadan once isterseniz bu bileşenin kutuphanenin hangi sekmesinde olacağına siz karar verebilirsiniz. Bunun icin Palette Page acılır kutusundan ( Combobox ) istediğiniz sekmeyi secip oyle Install edebilirsiniz...
Mr.666

__________________