生成GUID

生成GUID

procedure TForm1.Button1Click(Sender: TObject);
var
id : TGUID;
sGUID : String;
begin
　　CreateGUID(id);
　　sGUID := GUIDToString(id);
　　//sGUID := Copy(sGUID, 2, Length(sGUID) - 2);
　　sGUID := sGUID.Substring(1, sGuid.Length-2);
　　vecMsg(sGUID, '');
end;