KevinYoung

GUID (Globally Unique IDentifier) 是一個 128-bit Integer (16 bytes) 的數值。

在 Delphi IDE 中可以按下 Ctrl + Shift + G 快捷鍵會出現類似下列的 GUID 值：

['{2F45BDFE-1BE4-404D-9C5B-4B481D6A7482}']

每次按下快捷鍵都會產生不同的 GUID 值。

而程式中產生 GUID 值的方式如下列程式碼：

uses ComObj, ActiveX

procedure TForm1.FormCreate(Sender: TObject); 

var 
  s_GUID: string; 
  t_GUID: TGUID; 
begin 
if CoCreateGUID(t_GUID) = S_OK then 
begin 
    s_GUID := GUIDToString(t_GUID); 
    ShowMessage(s_GUID); 
end else begin 
    ShowMessage(’Create GUID ERROR.’); 
end; 
end;