如何在XP系统中用Delphi控制并口?

Question

我在网上找到一段用汇编写的控制并口的程序,说是嵌到Delphi里就行,但是说是只能在98系统里用,请问谁知道怎么在XP系统里实现用Delphi控制并口,要能够向并口读写信息,还要能判断并口某位的高低电平,有谁知道请帮帮我,万分感谢!

Answer 1

procedure TForm1.btnTestClick(Sender: TObject);
var
  lpt: TextFile;
  i: Integer;
begin
  AssignFile(lpt,'LPT1');
  Rewrite(lpt);
  for i:=1 to 21 do
    Writeln(lpt, '');
  CloseFile(lpt);
end;