关键词:
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);
结尾;
结尾;
结尾。