windows编程技巧之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;


八、如何启动屏幕保护程序。
使用sendmessage或postmessage函数。
procedure tform1.bitbtn3click(sender: tobject);
begin
sendmessage(hwnd_broadcast,wm_syscommand,sc_screensave,0);
end;
启动屏幕保护程序还有一个方法，调用函数systemparametersinfo,能过其参数设置可以启动或关闭屏幕保护程序。
  systemparametersinfo(spi_setscreensaveactive,1,nil,0);  //启动屏保
　systemparametersinfo(spi_setscreensaveactive,0,nil,0); 　//关闭屏保



九、检测驱动器是否准备就绪。
在delphi中没有提供专门的函数检测驱动器是否准备就绪，也不能直接调用一人api函数来实现这一操作。但是，我们


可以利用disksize来检测磁盘容量，如果驱动器不存在或没有准备好，它会返回-1，其它情况下则返回该磁盘或光盘的


容量。


function disksize(drive:byte):int64;
参数为0时，表示指定当前驱动器;为1时表示a盘，2表示b盘，依此类推。