创建 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;