Kata kunci:
ActiveX, TGUID, COCREATEGUID, GUIDTOSTRING
// --- Program Uji oleh Conan 2005/04/14 --- //
unit unit1;
antarmuka
penggunaan
Windows, pesan, sysutils, varian, kelas, grafik, kontrol, formulir,
Dialog,
ActiveX, stdctrls;
jenis
Tform1 = class (tform)
Button1: tbutton;
Prosedur Button1Click (pengirim: Tobject);
pribadi
{Deklarasi Pribadi}
publik
{Deklarasi Publik}
akhir;
var
Form1: tform1;
pelaksanaan
{$ R *.dfm}
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
var
I: Integer;
Sguid: String;
TmpGuid: tguid;
mulai
untuk i: = 0 hingga 10 lakukan
mulai
Jika cocreateguid (tmpGuid) = s_ok maka
Sguid: = GuidToString (TMPGUID)
kalau tidak
ShowMessage ('Buat Guid Error!');
Showmessage (Sguid);
akhir;
akhir;
akhir.