WINDOWS编程技巧之DELPHI篇

本文由lanyus收集整理，文中技术来源网络，部分摘自《奇思异想编程之DELPHI篇》，转载请注明此处。

       ///* lanyus QQ:231221 greathjw@163.com *///

一、隐藏任务栏
在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盘，依此类推。

十、隐藏鼠标。
利用ShowCursor函数。
int ShowCursor(
    BOOL bShow     //光标是否可见的标志
    );
参数bShow为FALSE时表示光标不可见。注意，调用此函数仅仅隐藏了鼠标，程序还是可以检测到并激发鼠标的单击或

移动等事件的。

十一、串口操作。
在DELPHI中没有提供专门的串口操作控件，帮助文件里介绍串口的资料也是廖廖无几的。但是，我们可以通过调用一

系列的API来操作串口，spcomm串口操作控件也是通过调用一系列API工作的。
打开串口用API函数CreateFile，该函数可打开、新建文件或打开设备，其原形如下：
CreateFile(
  lpFileName:PChar;   //为文件名或设备名，串口用COM1,COM2表示。
  dwDesiredAccess:DWORD;   //访问类型，Generic_Read为只读访问，Generic_Write为写访问。Generic_Read or

Generic_Write为读写访问。
  dwShareMode:DWORD; //指定该文件的共享属性，该参数是为有许多应用程序共享的文件提供的，串口不能共享，

必须设置为0。
  lpSecurityAttributes:PSecurityAttributes; //引用安全性属性SECURITY_ATTRIBUTES结构，该结构定义了一些

属性，例如通信句柄如何被 打开端口的应用程序的子程序所继承。设置为NULL将为该端口分配缺省的安全性属性。
  dwCreationDisposition:DWORD; //指定如果CreateFile正在被已有的文件调用时应做些什么，串口是实物，必须

设置成OPEN_Existing，该标志告诉WINDOWS不要创建新端口，而是打开已存在的端口。
  dwFlagsAndAttributes:DWORD; //描述了该端口的各种属性。对串口来说，唯一有意义的设置是

File_Flag_Overlapped。
  hTemplateFile:THandle  //是指向文件的句柄。串口没有模板文件，因而设置该参数为0。
  ):THANDLE;stdcall;

关闭串口使用API函数CloseHandle：CloseHandle(hObject:THandle):BOOL;stdccall; 句柄是CREATEFILE打开串口时

返回的句柄。
初始化串口使用API函数SetupComm：SetupComm(hFile:Thandle; dwInQueue,dwOutQueue:DWORD):BOOL;stdcall;
 dwInQueue,dwOutQueue分别定义接收缓冲区和发送缓冲区的大小（只是推荐的，实际大小由WINDOWS分配）;
获取串口当前配置：GetCommState(hFile:Thandle; varlpDCB:TDCB):BOOL;Stdcall; 调用成功返回非0值，

GetLastError函数可获取错误信息
。
配置串口：SetCommState(hFile:Thandle; const lpDCB:TDCB):BOOL;Stdcall;
获取串口性能：GetCommProperties(hFile:Thandle; var lpCommProp:TCommProp):bool;stdcall;
通信设备配置：CommConfigDialog(lpszName:PChar;hWnd:HWND; var lpCC:TCommConfig);调用该函数将弹出一个配

置窗口
读串口操作：ReadFile(hFile:THandle; var Buffer; nNumberOfBytesToRead:DWORD; var

lpNumberOfBytesRead:DWORD; lpOverlapped:POverlapped):BOOL;Stdcall;支持同步或异步操作。

十二、列举进程。
引用Tlhelp32单元。
利用API函数CreateToolhelp32Snapshot创建一个系统进程快照，用Process32First得到第一个系统进程，再用

Process32Next向后列举。

procedure TForm1.BitBtn13Click(Sender: TObject);      //进程操作
var
ProName:string;  //进程名
ProID:integer;     //进程ID号
ProTheard:integer; //进程线程数
goloop:boolean;
FSnapshothandle:Thandle;   //系统进程快照句柄
FProcessEntry32:TProcessEntry32;//进程入口的结构信息
begin
  FSnapshothandle:=CreateToolHelp32Snapshot(TH32CS_SnapProcess,0); //创建一个系统进程快照
  FProcessEntry32.dwSize:=sizeof(FProcessEntry32);
  goloop:=Process32First(FSnapshothandle,FProcessEntry32); //得到第一个进程
  while goloop do
  begin
    ProName:=FProcessEntry32.szExeFile;
    ProID:=FProcessEntry32.th32ProcessID;
    ProTheard:=FProcessEntry32.cntThreads;
    ListBox1.Items.Add(ProName+'  '+Inttostr(ProID)+'  '+inttostr(ProTheard)); //进程全显示在LISTBOX组

件里
    goloop:=Process32Next(FSnapshothandle,FProcessEntry32);
end;

十三、以其它身份运行程序(RUNAS)。
使用API函数CreateProcessWithLogonW。该函数在DELPHI并没封装完整，使用前需对其作出声明与定义。
声明：
function CreateProcessWithLogon(
                         lpUsername: PWChar;  // 用户乙的账号(Account)
                         lpDomain: PWChar;  //用户乙的域(Domain)
                         lpPassword: PWChar;  // 用户乙的密码(Password)
                         dwLogonFlags: DWORD;  // logon option
                         lpApplicationName: PWChar;  // 需要运行的程序
                         lpCommandLine: PWChar;  // command-line string
                         dwCreationFlags: DWORD;  // creation flags
                         lpEnvironment: Pointer;   // new environment block
                         lpCurrentDirectory: PWChar;  // current directory name
                         const lpStartupInfo: TStartupInfo;  // startup information
                         var lpProcessInfo: TProcessInformation   // process information
                               ): BOOL; stdcall;             

定义：
function CreateProcessWithLogon; external advapi32 name 'CreateProcessWithLogonW';

十四、获取当前登录用户名。
使用API函数GetUserName.
procedure TForm1.XP_Button2Click(Sender: TObject);  //获取当前登录用户名
var
users:array[0..255] of char;//用户名
i:Dword; //缓冲区大小
begin
   if GetUserName(users,i) then
   Edit6.Text:=users;
end;

十五、修改文件创建时间、修改时间和最后访问时间。
利用API函数SetFileTime可直接修改文件的创建时间、修改时间及最后访问时间。而API函数GetFileTime则可以读出

文件的创建时间、修改时间及最后访问时间。
这两个函数原形如下：

function SetFileTime(
  hFile: THandle;   //文件句柄，可由createFile函数打开文件获得
  lpCreationTime,　　//文件创建时间
  lpLastAccessTime, 　//最后访问时间
  lpLastWriteTime: PFileTime　//最后修改时间
  ): BOOL;

function GetFileTime(
  hFile: THandle;　　//文件句柄，可由createFile函数打开文件获得
  lpCreationTime, 　　//文件创建时间
  lpLastAccessTime,  　//最后访问时间
  lpLastWriteTime: PFileTime　//最后修改时间
  ): BOOL;
//
　hFileOld :=createFile(srcFile,generic_read,file_share_read,nil,
                open_existing,FILE_ATTRIBUTE_NORMAL,Cardinal(nil));
  hFileNew :=createFile(destFile,generic_write,file_share_write,nil,
                open_existing,FILE_ATTRIBUTE_NORMAL,Cardinal(nil));
  GetMem(CreationTime,SizeOf(TFileTime));
  GetMem(LastAccessTime,SizeOf(TFileTime));
  GetMem(LastWriteTime,SizeOf(TFileTime));
  GetFileTime(hFileOld,CreationTime,LastAccessTime,LastWriteTime);
  SetFileTime(hFileNew,CreationTime,LastAccessTime,LastWriteTime);

十六、在系统托盘添加图标。
在系统托盘区添加一个图标可以通过发消息的发送来实现。WINDOWS中有这样一个API函数Shell_NotifyIcon可以用来

向托盘发送消息。
WINSHELLAPI BOOL WINAPI Shell_NotifyIcon(
   DWORD dwMessage,       //发送的消息
   PNOTIFYICONDATA pnid　　//指向结构体NOTIFYICONDATA
   );
它发送的消息参数如下：
　　NIM_ADD        //向托盘中添加一个图标
    NIM_DELETE　　　//删除托盘中的某个图标
    NIM_MODIFY　　　//修改托盘中的某个图标
另一参数为指向结构体NOTIFYICONDATA的指针，结构体NOTIFYICONDATA则是用来存储系统任务状态栏信息的。
typedef struct_NOTIFYICONDATA{
   DWORD cbSize;                //结构体NOTIFYICONDATA的大小
   HWND hWnd;　　　　　　　　　 //接收托盘鼠标事件的窗口句柄
   UINT uID;　　　　　　　　　　//图标的ID(托盘鼠标事件的wParam参数)
   UINT uFlags;　　　　　　　　 //消息的有效范围
   UINT uCallbackMessage;　　　 //系统回送消息的ID
   HICON HIcon;　　　　　　　　 //显示在托盘中的图标的句柄
   char szTip[64];　　　　　　　//鼠标移动到图标上时的提示信息
  }NOTIFYICONDATA,*PNOTIFYICONDATA;
注意：在安装图标时需要对结构体NOTIFYICONDATA的每一个成员赋值，而更改或删除时某些成员可不必赋值。

十七、使程序不在系统任务条上出现
procedure TForm1.FormCreate(Sender: TObject);
begin　
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

陆续增加中......