bcb如何生成GUID

bcb怎么生成GUID？
bcb怎么生成GUID？
void __fastcall TForm1::Button1Click(TObject *Sender)
{
GUID uid;

ShowMessage(GUIDToString(uid) ) ;

}

每次点击按钮生成的都是一个数。只有重新打开程序才能生成新的。

[解决办法]
你的GUID不是生成的,而是栈上的随机数(相当于int i;而i是随机数)
生成GUID可用
#include <objbase.h>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
GUID uid;
CoCreateGuid(&uid);
ShowMessage(GUIDToString(uid) ) ;
}
//----------------