GUID zur laufzeit erzeugen

[sakura]

Das ist so einfach, das Marco Cantù in seinem Buch "Mastering Delphi X" nicht einmal bereit ist den Code zu posten

......

P.s.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  NewGUID: TGUID;
begin
  CreateGUID(NewGUID);
  ShowMessage(GUIDToString(NewGUID));
end;