生成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;