本文由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;
陆续增加中......