uses
activex;
procedure TForm1.Button1Click(Sender: TObject);
var
ID:TGUID;
s:string;
begin
if CoCreateGuid(ID)=s_OK then
begin
showmessage(GUIDToString(ID));
end;
end;
delphi 创建GUID
最新推荐文章于 2021-12-03 09:17:46 发布