>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，在它＆#111nClick事件中加入：

procedure TForm1.CheckBox10Click(Sender: TObject);

begin

Timer2.Enabled:=CheckBox10.Checked;

end;

　　编译运行程序。



　　点击“走马灯演示”，有没有看到“走马灯”的效果？通过修改Timer2的Interval可以调节速度，更多、更Cool的效果就看你的创意了。

　　注意：以上嵌入汇编访问并口的方法只能在Win9X下使用，若要在WinNT/2K下访问并口应该使用 Windows API 函数或专门读写并口的DLL、VXD。

　　以上程序在Win98+Delphi6.0下测试通过

上一页  [1] [2] 

【发表评论】【打印此文】【关闭窗口】【点击数： 】