BCB通用函数库Word文件下载.docx
- 文档编号:18324473
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:27
- 大小:22.19KB
BCB通用函数库Word文件下载.docx
《BCB通用函数库Word文件下载.docx》由会员分享,可在线阅读,更多相关《BCB通用函数库Word文件下载.docx(27页珍藏版)》请在冰豆网上搜索。
}
//当前文件夹
AnsiStringGetCurrDir()
path.SetLength(GetCurrentDirectory(MAX_PATH,path.c_str()));
//returnExtractFilePath(Application->
ExeName);
//returnExtractFilePath(ParamStr(0));
//获得IE版本
AnsiStringGetIEVersion()
AnsiStringstrReturn;
LPCTSTRData_Set="
SOFTWARE\\Microsoft\\InternetExplorer\\"
HKEYhKEY;
longret0=:
:
RegOpenKeyEx(HKEY_LOCAL_MACHINE,//rootkey
Data_Set,//要访问的键的位置;
0,//
必须为0;
KEY_READ,//以查询的方式访问注册表;
&
hKEY);
//hKEY保存此函数所打开的键的句柄。
if(ret0!
=ERROR_SUCCESS)
Unavailable"
else
{
charver[MAX_COMPUTERNAME_LENGTH+1];
DWORDtype=REG_SZ;
DWORDcbData=40;
longret1=:
RegQueryValueEx(hKEY,//所打开的键的句柄
"
Version"
//要查询的键值名
NULL,
type,//
查询数据的类型
ver,//保存所查询的数据
cbData);
//预设置的数据长度
if(ret1!
strReturn=AnsiString(ver);
}
:
RegCloseKey(hKEY);
returnstrReturn;
voidJpg2Bmp(StringJpgFile,StringBmpFile)//将Jpg文件转换为Bmp文件
TJPEGImage*MyJPEG=newTJPEGImage;
try
MyJPEG->
LoadFromFile(JpgFile);
//
图片位置
Graphics:
TBitmap*MyBMP=newGraphics:
TBitmap;
MyBMP->
Assign(MyJPEG);
SaveToFile(BmpFile);
//保存路径
deleteMyBMP;
__finally
deleteMyJPEG;
voidBmp2Jpg(StringBmpName,StringJpgName)//将bmp文件转换为jpg文件
LoadFromFile(BmpName);
//图片位置
Assign(MyBMP);
MyJPEG->
CompressionQuality=60;
//压缩比例1..100
Compress();
SaveToFile(JpgName);
//DirectX版本
AnsiStringGetDirectXVersion()
SOFTWARE\\Microsoft\\DirectX\\"
//开机后自动运行程序设置
#include<
Registry.hpp>
void__fastcallAutoRunFromStart(boolSet,AnsiStringTitle,AnsiStringExeFile)
TRegistry*Reg;
Reg=newTRegistry();
Reg->
RootKey=HKEY_LOCAL_MACHINE;
if(Set)
if(Reg->
OpenKey("
SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run"
false))
WriteString(Title,ExeFile);
deleteReg;
WriteString(Title,"
+ExeFile);
//根据窗口句柄获得窗口的Caption
AnsiStringGetWndCaption(HWNDhWnd)
AnsiStringstrCaption;
if(hWnd)
intLength=(int)SendMessage(hWnd,WM_GETTEXTLENGTH,0,0);
if(Length)
char*buf=newchar[Length+2];
buf[Length]='
\0'
buf[Length+1]='
SendMessage(hWnd,WM_GETTEXT,Length+1,(LPARAM)buf);
strCaption=AnsiString(buf);
deletebuf;
returnstrCaption;
//根据窗口句柄获得窗口的类名
AnsiStringGetWndClassName(HWNDhWnd)
charbuffer[256];
GetClassName(hWnd,buffer,255);
returnAnsiString(buffer);
//窗口位于最上
void__fastcallSetStayOnTop(boolSet,void*Handle)
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE);
SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE);
//是否显示在任务栏
void__fastcallShowOnTaskbar(boolSet,void*Handle)
ShowWindow(Handle,SW_SHOW);
ShowWindow(Handle,SW_HIDE);
//获得子网掩码
AnsiStringGetSubnetMask()
AnsiStringSubnetMask;
TRegistry*reg=newTRegistry;
DWORDVersion=GetVersion();
if(Version<
0x80000000)//WindowsNT
reg->
if(reg->
OpenKeyReadOnly("
SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Linkage"
))
intBuffLength=reg->
GetDataSize("
Bind"
);
char*Buff=newchar[BuffLength+1];
ReadBinaryData("
Buff,BuffLength);
AnsiStringInterface=(AnsiString)Buff;
Interface=Interface.SubString(9,Interface.Length()-8);
delete[]Buff;
CloseKey();
SYSTEM\\CurrentControlSet\\Services\\"
+Interface+"
\\Parameters\\Tcpip"
BuffLength=reg->
SubnetMask"
Buff=newchar[BuffLength+1];
SubnetMask=(AnsiString)Buff;
else//Windows9X
inti;
TStringList*ent=newTStringList;
System\\CurrentControlSet\\Services\\Class\\NetTrans"
GetKeyNames(ent);
for(i=0;
i<
ent->
Count;
i++)
System\\CurrentControlSet\\Services\\Class\\NetTrans\\"
+ent->
Strings[i]))
AnsiStringip=reg->
ReadString("
IPAddress"
AnsiStringnode=reg->
NodeType"
if(ip!
="
0.0.0.0"
&
ip!
node=="
1"
)
SubnetMask=reg->
IPMask"
if(SubnetMask!
SubnetMask!
break;
deleteent;
deletereg;
returnSubnetMask;
#include<
winsock.h>
AnsiStringGetLocalIP()
//StartupWinSock
WORDwVersionRequested=MAKEWORD(1,1);
WSADATAwsaData;
WSAStartup(wVersionRequested,&
wsaData);
hostent*p;
chars[128];
char*p2;
gethostname(s,128);
//获取指定计算机的名字
p=gethostbyname(s);
p2=inet_ntoa(*((in_addr*)p->
h_addr));
获取指定计算机的IP地址
WSACleanup();
returnp2;
//打开、关闭光驱
#include"
mmsystem.h"
voidCDRomOpen(BOOLbOpenDrive,TCHARcDrive)
MCI_OPEN_PARMSopen;
MCI_STATUS_PARMSstatus;
DWORDflags;
TCHARszDriveName[4];
strcpy(szDriveName,"
?
ZeroMemory(&
open,sizeof(MCI_OPEN_PARMS));
open.lpstrDeviceType=(LPCSTR)MCI_DEVTYPE_CD_AUDIO;
szDriveName[0]=cDrive;
open.lpstrElementName=szDriveName;
flags=MCI_OPEN_TYPE+MCI_OPEN_TYPE_ID+MCI_OPEN_ELEMENT+MCI_OPEN_SHAREABLE;
if(!
mciSendCommand(0,MCI_OPEN,flags,(unsignedlong)&
open))
status.dwItem=MCI_STATUS_READY;
if(bOpenDrive)
mciSendCommand(open.wDeviceID,MCI_SET,MCI_SET_DOOR_OPEN,0);
mciSendCommand(open.wDeviceID,MCI_SET,MCI_SET_DOOR_CLOSED,0);
mciSendCommand(open.wDeviceID,MCI_CLOSE,MCI_WAIT,0);
//得到鼠标指针的位置
POINTCurPos;
GetCursorPos(&
CurPos);
//获得端口
void__fastcallGetPort(TStrings*List)
HARDWARE\\DEVICEMAP\\SERIALCOMM"
true);
GetValueNames(List);
List->
BeginUpdate();
for(inti=0;
List->
Count;
Strings[i]=reg->
ReadString(List->
Strings[i]);
EndUpdate();
//判断操作系统
enumCWin32Type{wt3X,wtNT3,wt95,wt98,wtME,wtNT4,wt2000,wtXP,/*wtNS,*/wtUnknown};
CWin32TypegetWindowsVersion()
CWin32TypeResult;
OSVERSIONINFOinfo;
info.dwOSVersionInfoSize=sizeof(info);
GetVersionEx(&
info);
switch(info.dwPlatformId)
caseVER_PLATFORM_WIN32s:
Result=wt3X;
caseVER_PLATFORM_WIN32_WINDOWS:
if(info.dwMajorVersion==4)
if(info.dwMinorVersion==0)
Result=wt95;
elseif(info.dwMinorVersion==10)
Result=wt98;
elseif(info.dwMinorVersion==90)
Result=wtME;
caseVER_PLATFORM_WIN32_NT:
if(info.dwMajorVersion==3)//&
info.dwMinorVersion==51)
Result=wtNT3;
elseif(info.dwMajorVersion==4)//&
info.dwMinorVersion==0)
Result=wtNT4;
elseif(info.dwMajorVersion==5)
Result=wt2000;
elseif(info.dwMinorVersion==1)
Result=wtXP;
/*elseif(info.dwMinorVersion==)
Result=wtNS;
*/
returnResult;
//结束一个进程
void__fastcallProcessKill(intpPid)
HANDLEps=OpenProcess(1,false,pPid);
if(ps&
TerminateProcess(ps,-9))
MessageBox(Handle,"
中止成功!
"
信息"
MB_OK|MB_ICONINFORMATION);
中止失败!
信息
MB_OK|MB_ICONWARNING);
String__fastcallTfrmTest:
GetVersionInfo(StringFileName)
{
/**************************************************************
函数名:
GetVersionInfo
用途:
返回指定文件的版本信息
**************************************************************/
FileName=ExtractFilePath(Application->
ExeName)+FileName;
FileExists(FileName))
{
//将要更新的文
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- BCB 通用 函数库