2020年4月29日

获取系统语言(缩写形式)的方法

摘要： function GetSystemDefaultUILanguage : LANGID; stdcall; external kernel32 name 'GetSystemDefaultUILanguage'; function GetUserCountry : string; var l : 阅读全文

posted @ 2020-04-29 16:48 随意浏览阅读(272) 评论(0) 推荐(0)

获取GUID的方法

摘要： function GetGUID:string; var id:tguid; begin if CoCreateGuid(id)=s_ok then result:=guidtostring(id); end; 阅读全文

posted @ 2020-04-29 13:21 随意浏览阅读(591) 评论(0) 推荐(0)

2020年4月29日

公告