在Delphi中通过函数获取GUID

keyword:

ActiveX, TGUID, CoCreateGUID, GUIDToString

//---Test Program By Conan 2005/04/14---//

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,

ActiveX, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

I : Integer;

sGUID : string;

TmpGUID: TGUID;

begin

for I := 0 to 10 do

begin

if CoCreateGUID(TmpGUID) = S_OK then

sGUID := GUIDToString(TmpGUID)

else

ShowMessage('Create GUID error!');

ShowMessage(sGUID);

end;

end;

end.