GUID, 在delphi中,如何通过函数产生一个GUID值(50分)

  • 主题发起人 主题发起人 allenk
  • 开始时间 开始时间
A

allenk

Unregistered / Unconfirmed
GUEST, unregistred user!
GUID, 在delphi中,如何通过函数产生一个GUID值
 
CTRL + Shift + G
 
也可以用
coCreateGuid来产生GUID
 
function CreateGUID(out Guid: TGUID): HResult;
 
使用api函数就行。
 
uses activex;

var
guid:TGUID;

CoCreateGUID(guid);
ShowMessage(GuidToString(guid));
 
多人接受答案了。
 
后退
顶部