GUID zur laufzeit erzeugen

[svehei]

morgen zusammen,

ich moechte einzelne files in einem "einmaligen" ordner ablegen. um wirklich einen einmaligen ordner hinzubekommen wuerde ich ihn gerne nach einer guid benennen. ich weiss jetzt zwar das ich eine guid Strg-Shift-G im Delphi-Editor erzeugt bekommen, aber wie bekomm ich denn zur Laufzeit eine?

:oops:

[sakura]

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

...:cat:...

P.s.:

Delphi-Quellcode:

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

[Snoop007]

welche unit muss ich denn einbinden um CreateGui zu verwenden ?

[sakura]

Ein schneller Blick in die Hilfe ;-) sagt SysUtils

...:cat:...

[exp]

Du findest was hier bei den Kollegen

[Snoop007]

@sakura, nö bei mir nicht

ich hab die hilfe aufgerufen allerdings wurde nicht von der procedure gefunden
ich habe alle *.pas dateien durchsuchen lassen auch nichts gefunden

ich habe delphi 5 prof

los, hilf mir ;)

[Snoop007]

ah, ein blick zu den kollegen hat geholfen :)

ComObj, ActiveX

[Wormid]

Zitat:

Zitat von Snoop007

welche unit muss ich denn einbinden um CreateGui zu verwenden ?

Ich vermute mal, das war nur ein Tippfehler von Dir, oder?

[Snoop007]

also CreateGUID gibts bei mir nicht ...

und wers nicht glaubt, der klicks einfach auf den dateianhang :)

[sakura]

Doch gibt es...

In Delphi 5 allerdings noch in anderen Units.

CoCreateGuid(GUID); // in unit ActiveX
ShowMessage(GUIDToString(GUID)); // in unit COMObj

Hat mir die Delphi 5 Hilfe verraten :mrgreen:

...:cat:...