B Bluefire Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-28 #1 请问在程序中如何生成一个GUID?(globally unique identifier)有这方面 的函数吗?
O o*o Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-28 #2 CoCreateGuid(out guid: TGUID): HResult; uses ActiveX;
O o*o Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-28 #3 function CreateGUID: string; var guid: TGUID; P: PWideChar; begin CoCreateGuid(guid); StringFromCLSID(guid, P); Result := P; CoTaskMemFree(P); end;
function CreateGUID: string; var guid: TGUID; P: PWideChar; begin CoCreateGuid(guid); StringFromCLSID(guid, P); Result := P; CoTaskMemFree(P); end;
P pyliu Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-28 #4 在ComObj里面就有哇... 调用CreateClassID最简单了! uses ComObj; s: string; s:=CreateClassID;
G guoyan Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-28 #6 再delphi的编辑器中按 ctrl+shift+g 即可得到当前的guid
