Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Mandriva > 2008.1 > x86_64 > media > main-release > by-pkgid > 6ce6329cd6ad3b36930de46f3738a9e1 > files > 1362

fpc-2.2.0-1mdv2008.1.x86_64.rpm

• Info
• Deps
• Files
• Scripts
• ChangeLog
• Location
• Others versions
• Analyse

program testuid;

uses sysutils, macuuid;

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

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