unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  publi

uses activex;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

<br />1、CompareMem(@guid1, @guid2, SizeOf(TGUID))<br />最开始时想到的方法。<br />查看Delphi中TGUID的定义可以看到TGUID实际上是一个结构。对于结构的比较来说最方便的就是内存直接比较了。<br />TGUID = packed record<br />D1: LongWord;<br />D2: Word;<br />D3: Word;<br />D4: array[0..7] of Byte;<br />end;<br /><br /