在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.