生成GUID

uses ComObj, ActiveX; procedure TForm1.Button1Click(Sender: TObject); var Guid: TGUID; str: string; begin CoCreateGuid(Guid); str := GUIDToString(Guid); Memo1.Lines.Add(str); end; procedure TForm1.Button2Click(Sender: TObject); const Guid: TGUID = (D1:$AAAAAAAA; D2:$BBBB; D3:$CCCC; D4:($11,$22,$33,$44,$55,$66,$77,$88)); var str: string; begin str := GUIDToString(Guid); ShowMessage(str); {AAAAAAAA-BBBB-CCCC-1122-334455667788} end; procedure TForm1.Button3Click(Sender: TObject); const Guid: TGUID = '{AAAAAAAA-BBBB-CCCC-1122-334455667788}'; var str: string; begin str := GUIDToString(Guid); ShowMessage(str); {AAAAAAAA-BBBB-CCCC-1122-334455667788} end;