Delphi 之小技巧

隐藏任务栏

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

函数FindWindow和ShowWindow来达到目的。

1
2
3
4
5
6
7
8
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获取当前任务栏尺寸大小。

1
2
3
GetWindowRect(HWND hWnd,    //所求窗口的句柄
LPRECT lpRect   //存储窗口坐标的结构体的地址
):Boolean;

获取CPU信息

CPU的相关信息是存储在一个结构体中的,这个结构体由DELPHI用TSYSTEMINFO进行了封装,定义如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;

其中dwProcessorTypewProcessorArchitecturewProcessorLevelwProcessorRevision三个成员来确定,其值为:

1
2
3
4
5
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一样,系统依然采用了一个结构体来存储内存信息。这个存储内在状态信息的体定义下如:

1
2
3
4
5
6
7
8
9
10
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。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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可以限制光标移动区域。

1
2
3
BOOL ClipCursor(
CONST RECT *lpRect //指向一个存储矩形范围数据的结构体
);

有了这个函数就可以限制光标在屏幕的移动范围了。但是,如果想控制鼠标在某窗口的固定范围内移动,则需要调用咖一个函数MapWindowPoints,它可以将一个窗体的坐标转化为另一个相关的窗体坐标。

1
2
3
4
5
6
int MapWindowPoints(
HWND hWndFrom, //源窗口句柄
HWND hWndTo,     //目标窗体句柄
LPPOINT lpPoints,   //指向结构体数组,包含需要转化的坐标
UINT cPoints     //数组中结构体的数量
);

参数hWndForm或hWndTo为NULL或HWND_DESKTOP时,表明所源窗体或目标窗体为屏幕窗体。参数lpPoints可以指向一个Rect结构体,此时cPoints的值将设为2。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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函数。

1
2
3
4
5
6
7
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,其它情况下则返回该磁盘或光盘的容量。

1
2
Function DiskSize(Drive:Byte):Int64;
参数为0时,表示指定当前驱动器;为1时表示A盘,2表示B盘,依此类推。

隐藏鼠标

利用ShowCursor函数。

1
2
3
int ShowCursor(
BOOL bShow //光标是否可见的标志
);

参数bShow为FALSE时表示光标不可见。注意,调用此函数仅仅隐藏了鼠标,程序还是可以检测到并激发鼠标的单击或移动等事件的。

串口操作

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

打开串口用API函数CreateFile,该函数可打开、新建文件或打开设备,其原形如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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向后列举。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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并没封装完整,使用前需对其作出声明与定义。
声明:

1
2
3
4
5
6
7
8
9
10
11
12
13
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;

定义:

1
function CreateProcessWithLogon; external advapi32 name 'CreateProcessWithLogonW';

获取当前登录用户名

使用API函数GetUserName.

1
2
3
4
5
6
7
8
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则可以读出

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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可以用来

向托盘发送消息。

1
2
3
4
WINSHELLAPI BOOL WINAPI Shell_NotifyIcon(
DWORD dwMessage, //发送的消息
PNOTIFYICONDATA pnid  //指向结构体NOTIFYICONDATA
);

它发送的消息参数如下:

  • NIM_ADD //向托盘中添加一个图标
  • NIM_DELETE   //删除托盘中的某个图标
  • NIM_MODIFY   //修改托盘中的某个图标

另一参数为指向结构体NOTIFYICONDATA的指针,结构体NOTIFYICONDATA则是用来存储系统任务状态栏信息的。

1
2
3
4
5
6
7
8
9
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的每一个成员赋值,而更改或删除时某些成员可不必赋值。

使程序不在系统任务条上出现

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin 
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end

热评文章