Alternative Funktion zu CreateClassID für eine GUID

[Brainshock]

Moin,

gibt es eine alternative Funktion zu CreateClassID, um in Delphi eine Art GUID (UUID) zu erzeugen?
Hat den Jedi in der Richtung was anzubieten?

Gruß,

[Bernhard Geyer]

Und wieso passt dir das nicht was das OS dir bereitstellt?

[shmia]

Da gibt es eigentlich nichts mehr zu vereinfachen/verbessern:

Delphi-Quellcode:

function CreateClassID: string;
var
  ClassID: TCLSID;
  P: PWideChar;
begin
  CoCreateGuid(ClassID);
  StringFromCLSID(ClassID, P);
  Result := P;
  CoTaskMemFree(P);
end;

Du könntest auch gleich CoCreateGuid() verwenden und damit auf die Umwandlung in einen String verzichten.
Kommt immer drauf an, was man mit der GUID machen möchte...