原创力文档- 1、本文档共42页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
BCB通用函数库
BCB通用函數庫
// 获得计算机名
AnsiString GetComputerName()
{
char name[MAX_COMPUTERNAME_LENGTH + 1];
DWORD size = MAX_COMPUTERNAME_LENGTH + 1;
if(GetComputerName(name,size))
return AnsiString(name);
return ;
}
?
// 获得当前用户名
AnsiString GetUserName()
{
char username[MAX_COMPUTERNAME_LENGTH + 1];
DWORD size = MAX_COMPUTERNAME_LENGTH + 1;
if(GetUserName(username,size))
return AnsiString(username);
return ;
}
?
// Windows 文件夹
AnsiString GetWindowsDir()
{
String path;
path.SetLength(MAX_PATH);
path.SetLength(GetWindowsDirectory(path.c_str(),path.Length()));
return path;
}
?
// System 文件夹
AnsiString GetSystemDir()
{
String path;
path.SetLength(MAX_PATH);
path.SetLength(GetSystemDirectory(path.c_str(),path.Length()));
return path;
}
?
// Temp 文件夹
AnsiString GetTempDir()
{
String path;
path.SetLength(MAX_PATH);
path.SetLength(GetTempPath(MAX_PATH,path.c_str()));
return path;
}
// 当前文件夹
AnsiString GetCurrDir()
{
String path;
path.SetLength(MAX_PATH);
path.SetLength(GetCurrentDirectory(MAX_PATH,path.c_str()));
return path;
// return ExtractFilePath(Application-ExeName);
// return ExtractFilePath(ParamStr(0));
}
?
// 获得IE 版本
AnsiString GetIEVersion()
{
AnsiString strReturn;
LPCTSTR Data_Set = SOFTWARE\\Microsoft\\Internet Explorer\\;
HKEY hKEY;
long ret0 = ::RegOpenKeyEx(HKEY_LOCAL_MACHINE, // root key
Data_Set, //要访问的键的位置；
0, //必须为0；
KEY_READ, //以查询的方式访问注册表；
hKEY); //hKEY保存此函数所打开的键的句柄。
if(ret0 != ERROR_SUCCESS)
return Unavailable;
else
{
char ver[MAX_COMPUTERNAME_LENGTH + 1];
DWORD type = REG_SZ;
DWORD cbData = 40;
long ret1 = ::RegQueryValueEx(hKEY, //所打开的键的句柄
文档评论（0）