delphi 创建GUID

来源:互联网 发布:哈佛学生知乎 编辑:程序博客网 时间:2024/04/29 20:00
uses  activex;procedure TForm1.Button1Click(Sender: TObject);varID:TGUID;s:string;begin      if   CoCreateGuid(ID)=s_OK   then      begin            showmessage(GUIDToString(ID));      end;end;

原创粉丝点击