['{07AC3854-0DBD-453A-BDDF-2C3F6060A555}'] 怎么用代码动态生成?

OO_is_just_P 2003-08-18 03:11:02
在delphi中,Ctrl+Shift+G就生成了,可是用代码呢?

...全文
72 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
OO_is_just_P 2003-08-18
  • 打赏
  • 举报
回复
3q
fansnaf 2003-08-18
  • 打赏
  • 举报
回复
1,function CreateClassID: string;
var
ClassID: TCLSID;
P: PWideChar;
begin
CoCreateGuid(ClassID);
StringFromCLSID(ClassID, P);
Result := P;
CoTaskMemFree(P);
end;
2,
function TFrmCar_AddCar.CreateCar_UUID: string;
var
TempUUID:TGuid;
begin
CreateGuid(TempUUID);
Result:=GuidToString(TempUUID);
end;
overtime 2003-08-18
  • 打赏
  • 举报
回复
CreateGUID()

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧