Matthew的Blog

  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
uses
  ComObj, ActiveX;

var
  ID: TGUID;
  S: string;
begin
  if CoCreateGuid (Id) = s_OK then
  begin
    s := GUIDToString (Id);
  end;
end;
posted on 2007-07-18 13:48 matthew 阅读(410) 评论(0)  编辑 收藏 引用 所属分类: Delphi编程
只有注册用户登录后才能发表评论。