fpcsrc/packages/uuid/examples/testlibuid.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

program testlibuid;

uses sysutils,libuuid;

Var
  T : TGUID;
  P : PByte;
  I : Integer;

begin
//  GetURandomBytes(T,SizeOf(T));
  CreateGUID(T);
  Writeln(GUIDToString(T));
end.