Delphi中的Win32 API应用六例

关注

原创最新推荐文章于 2025-07-21 13:05:49 发布 1.1k 阅读 AI 写同款· GEO 优化 ›

Delphi 串口通讯本文介绍了在Win32系统中使用Delphi实现串口通信的方法。由于Win32禁止直接访问硬件，作者采用API函数实现串口通讯，详细说明了关键API函数如CreateFile、ReadFile、WriteFile等的用途。文章重点阐述了多线程环境下串口通信的实现，包括自定义WM_COMMNOTIFY消息、同步事件处理等关键技术。作者还提供了完整的Delphi 5.0程序代码，展示了串口初始化、数据读写等具体实现过程。该程序在Windows 98环境下测试通过，可稳定运行于两台PC之间的串口通信。文中特别强调阅读详情

1、刷新桌面

在使用计算机的过程中，经常会碰到在Windows桌面上残留有程序运行后的留下一些痕迹，这时我们往往在Windows桌面上单击鼠标右键，然后选择刷新，使桌面变得干净、整洁。其实自己编代码来实现这个功能也很简单，调用一个函数SHChangeNotify即可。首先，在Delphi的单元文件的Uses部分手动添加上ShlObj，然后在按钮点击事件中加上代码如下：

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NiL, NiL);

end;

这行代码将刷新桌面，就象你在 Windows桌面上单击鼠标右键，然后选择刷新一样。

2、向一个WinControl发送按键或字符

有好几种方法可以向一个 WinControl 发送按键或字符。SetKeyboardState 函数需要对应的 control 具有焦点，它可以发送较多的（尤其是特殊的）按键。使用 WM_CHAR 消息，则只要我们获得这个 control 的句柄，就可以向它发送字符，即使它是隐藏的。

procedure SendText(const h: HWND; const s: string);

var

i: integer;

begin

if h = 0 then

Exit;

if Length(s) = 0 then

Exit;

for i:= 1 to Length(s) do

begin

if Ord(s[i]) in [9, 13, 32..254] then

SendMessage(h, WM_CHAR, Ord(s[i]), 0);

end;

3、检查功能键状态

在很多软件中都有功能键的状态显示。如小键盘数字锁定，大小写锁定等等，可以调用函数 GetKeyState() 取得功能键状态信息。

function IsTheKeyOn(i:integer) : Boolean;

begin

Result := 0 <> (GetKeyState(i) and $01);

end;

调用自定义函数 IsTheKeyOn() 的例程如下：

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

//检查NumLock

if IsTheKeyOn(vk_numlock) then

showmessage('NumLock ON')

else

showmessage('NumLock OFF');

//检查CapsLock

if IsTheKeyOn(vk_capital) then

showmessage('CapsLock ON')

else

showmessage('CapsLock OFF');

//检查ScrollLock

if IsTheKeyOn(vk_scroll) then

showmessage('ScrollLock ON')

else

showmessage('ScrollLock OFF')；

end;

4、改变计算机屏幕分辨率

函数 ChangeDisplaySettings 可以用来改变计算机屏幕分辨率。

function SetScreenResolution(width, height: integer): Longint;

var

DeviceMode: TDeviceMode;

begin

with DeviceMode do begin

dmSize := SizeOf(TDeviceMode);

dmPelsWidth :=width;

dmPelsHeight := height;

dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;

end;

Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);

end;

上面这个自定义函数的调用例程如下：

var

OldWidth, OldHeight: integer;

//先得到当前屏幕的分辨率，以备恢复使用，然后将分辨率设置为 800*600

procedure TForm1.Button1Click(Sender: TObject);

begin

OldWidth := GetSystemMetrics(SM_CXSCREEN);

OldHeight := GetSystemMetrics(SM_CYSCREEN);

SetScreenResolution(800, 600);

end;

//恢复到原来的分辨率。

procedure TForm1.Button2Click(Sender: TObject);

begin

SetScreenResolution(OldWidth, OldHeight);

end;

还可以利用 ChangeDisplaySettings 函数来改变系统的色彩深度和刷新频率，在 Win32 SDK中有详细的说明，不妨自己试试吧。

5、简单、有效的延时

在程序代码中有时要用到延时，在要求不高的情况下，有一个简单的API函数 Sleep() 可供使用，但问题是如果使用 Sleep()，则不仅你的程序，就连系统也被挂起了。所以我们要另想办法，这时想到了函数 GetTickCount() ，这个函数用于获取自 windows 启动以来经历的时间长度（毫秒），在这里我们变通一下就可以用了：

Procedure Delay (Msecs : Integer);

var

FirstTickCount : real;

begin

FirstTickCount := GetTickCount;

Repeat

Application.ProcessMessages;

Until ((GetTickCount - FirstTickCount) >= LongInt (Msecs));

end;

在你的程序中调用上面这个自定义过程，和 Sleep() 比较一下，那个更好呢？

6、隐藏或者显示系统托盘区

我们知道通过函数 ShowWindow() 可以隐藏或显示任务栏，代码如下：