Matthew的Blog
  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::

公告


QQ: 15693996
MSN:protoss0@msn.com

常用链接

留言簿(8)

随笔分类(26)

随笔档案(27)

相册

友情链接

最新随笔

积分与排名

阅读排行榜

评论排行榜

程序中动态创建GUID
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 阅读(483) 评论(0)  编辑 收藏 引用 所属分类: Delphi编程
只有注册用户登录后才能发表评论。