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

//check apakah sw-flash ocx telah ter-install
if FileExists(SWFDir + ’swflash.ocx’) = False then
begin
//buat direktori jika diperlukan dan extrak file dari resource.
{$i-} //compiler directive to suppress i/o error messages
MkDir(SystemDir + ‘\macromed’);
MKDir(SystemDir + ‘\macromed\flash’);
{$i+}
Fres := TResourceStream.Create(0, ‘SHOCKWAVEOCX’, RT_RCDATA);
Ffile := TFileStream.Create(SWFDir + ’swflash.ocx’, fmCreate);
Ffile.CopyFrom(Fres, Fres.Size);
Fres.Free;
Ffile.Free;

 

//register ocx (sederhana tapi berguna)
WinExec(PChar(’regsvr32 /s ‘ + SWFDir + ’swflash.ocx’), SW_HIDE);
end;
// extrak ShockwaveFile dari resource ke directory applikasi
Fres := TResourceStream.Create(0, ‘SHOCKWAVEFILE’, RT_RCDATA);
Ffile := TFileStream.Create(’flashmovie.swf’, fmCreate);
Ffile.CopyFrom(Fres, Fres.Size);
Fres.Free;
Ffile.Free;

//Assign swf file ter-extrak ke obyek TShockwaveFlash anda
FlashMovie.Movie := AppDir + ‘\flashmovie.swf’;
end;

selamat mencoba :)

Komentar

Postingan populer dari blog ini

import address list nice mikrotik

Pengertian chain pada packet flow mikrotik

Transparent Proxy pada Hotspot Server