在 Delphi 中獲得 GUID(獨一無二的識別碼)

GUID原本還看不懂，後來翻譯字面意思才知道它有獨一無二的意思，所以在程式裡面啥時候需要獨一無二碼的時候就很有用處啦!!!!

文章來源：http://blog.bestlong.idv.tw/2009/07/25/655

七月.25, 2009 in Delphi

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

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

1

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

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

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

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;

In Delphi 5 need uses ComObj, ActiveX.

也可以當作 UUID 來應用。