关键词：
ActiveX，Tguid，CocreateGuid，GuidtoString
// --- CONAN 2005/04/14的测试程序--- //
单位1;
界面
用途
Windows，Messages，Sysutils，变体，类，图形，控件，表单，表单，
对话，
ActiveX，stdctrls;
类型
tform1 = class（tform）
Button 1：Tbutton；
过程button1Click（发件人：tobject）;
私人的
{私人声明}
民众
{公开声明}
结尾;
var
form1：tform1;
执行
{$ r *.dfm}
过程tform1.button1Click（发件人：tobject）;
var
我：整数；
sguid：string;
tmpguid：tguid;
开始
对于我：= 0至10做
开始
如果cocreateguid（tmpguid）= s_ok，则
sguid：= guidtostring（tmpguid）
别的
ShowMessage（“创建GUID错误！”）;
ShowMessage（sguid）;
结尾;
结尾;
结尾。