delphi 7 dengan banner cantik (swishmax)

sebelumnya kita buat dulu banner di swishmax 3
setelah itu kita save ke format *swf dan kita ganti nama dengan bannergue
klo uda simpan di folder bareng dengan project delphi
di form kita tambahkan component dari aktiveX yaitu ShockwaveFlash
kemudian tulis listing di form create atau klik dua kali pada form nya(bukan di ShockwaveFlash nya )
listing sebagai berikut;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:= GetCurrentDir +' /bannergue.swf ';
ShockwaveFlash1.Play;
end;
selamat mencoba
download contoh program dibawah ini
http://www.4shared.com/file/BMyc5iBe/tugas_blog.html