如何检测“LPT1” 端口是否可以用！求高手！

Question

如何检测“LPT1” 端口是否可以用！求高手！

Answer 1

var
  H: THandle;
begin
  H := CreateFile('LPT1',0,0,nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);
  if H <> INVALID_HANDLE_VALUE then
   ShowMessage('可用');
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

form1.button1.onclick(sender:Object);
var
  filehandle:integer;
begin
  filehandle:=fileopen('LPT1',fmopenwrite);
  fileclose(filehandle);
  if filehandle<0 then
  begin
    showmessage('LPT1 可用');
  end else begin
    showmessage('LPT1 不可用');
  end;
end;