在Delphi中通过函数获取GUID

核心提示： keyWord: ActiveX, TGUID, CoCreateGUID, GUIDToString//---Test PRogram By Conan 2005/04/14---//unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, C

 

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.