04 2020 档案

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

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

posted @ 2020-04-29 16:48 随意浏览阅读(274) 评论(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)

04 2020 档案

公告