WINDOWS编程技巧之DELPHI篇

本文由lanyus从《奇思异想编程之DELPHI篇》收集整理，转载请注明此处。

一、隐藏任务栏
在WINDOWS中，系统的任务栏本质上也是一个窗口，其窗口类名为“Shell_TrayWnd"。要实现对它的操作，可通过API函

数FindWindow和

ShowWindow来达到目的。

var
wndHandle:THandle;
wndClass:Array[0..50] of char;
begin
StrPCopy(@wndClass[0],''''Shell_TrayWnd'''');
wndHandle:=FindWindow(@wndClass[0],nil);
ShowWindow(wndHandle,SW_HIDE); //sw_restore
end;

二、隐藏桌面上的快捷方式
跟任务栏一样，桌面其实也是一个窗口，它的类名为“ProgMan”，同样用FindWindow找到窗口句柄，再邮ShowWindow

来决定是否显示。

三、获取任务栏尺寸及位置
用FindWindow找到句柄，再用GetWindowRect获取当前任务栏尺寸大小。
GetWindowRect(HWND hWnd,　　　　//所求窗口的句柄
LPRECT lpRect　　　//存储窗口坐标的结构体的地址
):Boolean;

四、获取CPU信息
CPU的相关信息是存储在一个结构体中的，这个结构体由DELPHI用TSYSTEMINFO进行了封装，定义如下：
typedef struct_SYSTEM_INFO{
union{
DWORD dwOemId; //已改用如下结构体分支来代替这个变量的使用了
struct{
WORD wProcessorArchitecture;　//表示处理器的架构
word wReserved;　　　　　　　　//保留字
};
};
DWORD swPageSiae;　　　　　　　　　　　　//分页大小
LPVOID lpMinimumApplicationAddress;　　　//应用程序和动态链接库可以访问的最小地址
LPVOID lpMaximumApplicationAddress;　　　//应用程序和动态链接库可以访问的最大地址
DWORD swActiveProcessorMask;　　　　　　//活动处理器的掩码
DWORD dwNumberOfProcessors;　　　　　　 //处理器的数目
DWORD dwProcessorType;　　　　　　　　　//处理器的类别
DWORD dwAllocationGranularity;　　　　　//虚拟内存地址分配的间隔
WORD wProcessorLevel;　　　　　　　　　//处理器的级别
WORD wProcessorRevision;　　　　　　　//处理器修改信息
}SYSTEM_INFO;
其中dwProcessorType由wProcessorArchitecture、wProcessorLevel和wProcessorRevision三个成员来确定，其值为：
　　PROCESSOR_INTEL_386:INTEL80386系列；
　　PROCESSOR_ITNEL_486:INTEL80486系列；
　　PROCESSOR_INTEL_PENTIUM:INTEL PENTIUM系列；
　　PROCESSOR_MIPS_R4000:MIPS的4000系列(仅适用于WINDOWS NT)；
　　PROCESSOR_ALPHA_21064:ALPHA的21064系列(仅适用于WINDOWS NT)；

另外，获得CPU信息调用API函数GetSystemInfo即可。

五、获取内存信息。
与获取CPU一样，系统依然采用了一个结构体来存储内存信息。这个存储内在状态信息的体定义下如：
typedef struct_MEMORYSTATUS{
DWORD dwLength; //SIZEOF(MEMORYSTATUS)即本结构体的大小
DWORD dwMemoryLoad; //当前使用内存与总内在的百分比
DWORD dwTotalPhys;　　　　　//总物理内存大小
DWORD dwAvailPhys;　　　　　//可用物理内存大小
DWORD dwTotalPageFile;　　　//总页面文件的大小
DWORD dwAvailPageFile;　　　//可用页面文件的大小
DWORD dwTotalVirtual;　　　　//总虚拟内存的大小
DWORD dwAvailVirtual;　　　　//可用虚拟内存的大小
}MEMORYSTATUS,*LPMEMORYSTATUS;

最后调用API函数GlobalMemoryStatus来获取内存信息。

六、获取磁盘空间大小。 （测试发现不准）
使用API函数GetDiskFreeSpace。
BOOL GetDiskFreeSpace(
LPCTSTR lpRootPathName, //根目录
LPDWORD lpSectorsPerCluster,　　　//每簇的扇区数
LPDWORD lpBytesPerSector,　　　　　//每个扇区的字节数
LPDWORD lpNumberOfFreeClusters,　　//可用的簇数
LPDWORD lpTotalNumberOfClusters　　//总簇数
);
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Secspclu,Bytespsec,Freeclu,Totalclu,Ts,Fs:DWORD;
begin
GetDiskFreeSpace(''''c:\'''',Secspclu,Bytespsec,Freeclu,Totalclu);
Fs:=Freeclu*Secspclu*Bytespsec;
Ts:=Totalclu*Secspclu*Bytespsec;
Edit1.text:=FormatFloat(''''###,###'''',Ts);　//总空间
Edit2.text:=FormatFloat(''''###,###'''',Fs); //可用空间
end;

七、限制鼠标移动范围。
WINDOWS里有一个现成的API函数ClipCursor可以限制光标移动区域。
BOOL ClipCursor(
CONST RECT *lpRect //指向一个存储矩形范围数据的结构体
);
有了这个函数就可以限制光标在屏幕的移动范围了。但是，如果想控制鼠标在某窗口的固定范围内移动，则需要调用咖

一个函数

MapWindowPoints，它可以将一个窗体的坐标转化为另一个相关的窗体坐标。
int MapWindowPoints(
HWND hWndFrom, //源窗口句柄
HWND hWndTo,　　　　　//目标窗体句柄
LPPOINT lpPoints,　　　//指向结构体数组，包含需要转化的坐标
UINT cPoints　　　　　//数组中结构体的数量
);
参数hWndForm或hWndTo为NULL或HWND_DESKTOP时，表明所源窗体或目标窗体为屏幕窗体。参数lpPoints可以指向一个

Rect结构体，此时cPoints

的值将设为2。

procedure TForm1.BitBtn1Click(Sender: TObject);
var
sc:TRect;
begin
sc:=BitBtn2.BoundsRect;
MapWindowPoints(handle,0,sc,2);
ClipCursor(@sc);

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
sc:TRect;
begin
sc:=RECT(0,0,screen.Width,screen.Height);
ClipCursor(@sc);
end;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有