使用Delphi生成GUID

Uses ComObj;

 

Var aGUID: string;

aGUID := GetClassId; // 取得ＧＵＩＤ

 

非常简单吧！