Generar GUID

[juanmdq]

Hola a Todos:

Estoy trabajando con delphi 6 y necesito generar GUID's en tiempo de ejecucion. Si alguien me puede decir cual es la funcion que se debe utilizar se los agradeceria mucho.

Saludos.

[juanmdq]

Hola:

Bueno, parece que fue un hilo bastante corto :D .
Encontre un ejemplo que espero le sirva a alguien mas.

Saludos.

"El que busca encuentra" (Alguien).


unit GreateMyNewGUID;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
BtnNewGuid: TButton;
Memo1: TMemo;
procedure BtnNewGuidClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmCreateNewGuid: TForm1;

implementation

{$R *.DFM}

uses
ComObj, ActiveX;

procedure frmCreateNewGuid.BtnNewGuidClick(Sender: TObject);
var
ID: TGUID;
S: string;
begin
if CoCreateGuid (Id) = s_OK then
begin
s := GUIDToString (Id);
Memo1.Lines.Add (S);
end;
end;

end.