if CheckBox8.Checked then
b:=b or $80;
WritePort($378,b); //写数据端口
end;
输入完成后，把CheckBox2到CheckBox8这7个CheckBox组件的OnClick事件设置为CheckBox1的OnClick事件：CheckBox1Click。
此时编译运行程序，已经可以通过点击这8个CheckBox来控制LPT1的数据端口的各个位的电位高低了。
下面再加入监控并口的数据端口状态的功能。
在Form1中加入一个Timer组件：Timer1，修改它的Enabled属性为False，Interval属性为1。
在Timer1的OnTimer事件中加入：
procedure TForm1.Timer1Timer(Sender: TObject);
var
B:BYTE;
begin
B:=ReadPort($378); //读数据端口
CheckBox1.Checked:=((B or $FE)=$FF);
CheckBox2.Checked:=((B or $FD)=$FF);
CheckBox3.Checked:=((B or $FB)=$FF);
CheckBox4.Checked:=((B or $F7)=$FF);
CheckBox5.Checked:=((B or $EF)=$FF);
CheckBox6.Checked:=((B or $DF)=$FF);
CheckBox7.Checked:=((B or $BF)=$FF);
CheckBox8.Checked:=((B or $7F)=$FF);
end;
再加入一个CheckBox组件，修改的Caption属性为“监控并口”，并在它的OnClick事件中加入：
procedure TForm1.CheckBox9Click(Sender: TObject);
begin
Timer1.Enabled:=CheckBox9.Checked;
end;
编译运行程序，点击“监控并口”，就可以监控并口LPT1数据端口378H的状态，并可以实时地修改它的状态。
为了方便查看、验证数据端口378H的状态，我做了一个小小的并口测试电路，该电路使用了一个打印接口、8个LED（发光二极管）和8个1K的电阻，连接线路如图所示：
按照电路图制作完成后，安装到电脑的并口上，运行编写好的程序就可以方便地查看数据端口378H的各个位的电位高低了。
最后，我们再来做一个走马灯实验。
先声明一个全局变量 tb：在“Form1:TForm1”的下面加上“tb:BYTE”：
var
Form1: TForm1;
tb:BYTE;
再在Form1中加入一个Timer和一个CheckBox，修改Timer2的Enabled属性为False，修改Interval属性为300，双击Timer2，在它的OnTimer事件中加入：
procedure TForm1.Timer2Timer(Sender: TObject);
var
B:BYTE;
begin
if tb=0 then
tb:=1
else
tb:=tb * 2;
WritePort($378,tb);
B:=ReadPort($378);
CheckBox1.Checked:=((B or $FE)=$FF);
CheckBox2.Checked:=((B or $FD)=$FF);
CheckBox3.Checked:=((B or $FB)=$FF);
CheckBox4.Checked:=((B or $F7)=$FF);
CheckBox5.Checked:=((B or $EF)=$FF);
CheckBox6.Checked:=((B or $DF)=$FF);
CheckBox7.Checked:=((B or $BF)=$FF);
CheckBox8.Checked:=((B or $7F)=$FF);
end;
修改CheckBox10的Caption属性为“走马灯演示”，再双击CheckBox10，在它OnClick事件中加入：
procedure TForm1.CheckBox10Click(Sender: TObject);
begin
Timer2.Enabled:=CheckBox10.Checked;
end;
编译运行程序。
点击“走马灯演示”，有没有看到“走马灯”的效果？通过修改Timer2的Interval可以调节速度，更多、更Cool的效果就看你的创意了。
注意：以上嵌入汇编访问并口的方法只能在Win9X下使用，若要在WinNT/2K下访问并口应该使用 Windows API 函数或专门读写并口的DLL、VXD。
以上程序在Win98 Delphi6.0下测试通过
上一篇： 怎样隐藏应用程序的任务条图标
下一篇： Delphi编写后台监控软件
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
