生成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;