script flash delphi
terkadang kita memerlukan sedikit sentuhan dalam membuat sebuah aplikasi khususnya ketika kita membuat aplikasi dalam hal ini menggunakan delphi, dan kali ini kita mencoba menambahkan tampilan flash di from delphi, berikut scriptnya : procedure TForm1.FormCreate(Sender: TObject); var SystemDir: array[0..MAX_PATH] of Char; SWFDir, AppDir: string; Fres: TResourceStream; Ffile: TFileStream; begin GetSystemDirectory(@SystemDir, MAX_PATH); SWFDir := SystemDir + ‘\macromed\flash\’; GetDir(0, AppDir); // Get current directory