program Guid; {$APPTYPE CONSOLE} usesSysUtils; var Uid: TGuid;Result: HResult; beginResult := CreateGuid(Uid);if Result = S_OK then WriteLn(GuidToString(Uid));end.
下面的CreateGuid()调用Windows API函数CoCreateGuid()。