Assembler. Количество LPT-портов

[AVS]

Здравствуйте!

Мне необходимо написать программу, которая должна вывести на экран количество LPT-портов на данном компьютере. Знания Assembler'a отсутствуют, но программа очень нужна. Пожалуйста, помогите с написанием.

[rpy3uH]

можно пробовать открывать порты LPTn (n - число) с нулевым атрибутом доступа, если порт открылся значит он существует

function GetLPTCount:integer;
var
  i:integer;
begin
  for i:=1 to 10 do
   if not CloseHandle(
                      CreateFile(PChar('LPT'+inttostr(i)),0,FILE_SHARE_READ,0,OPEN_EXISTING,0,0)
                      ) then
                         begin
                          Result:=i-1;
                          break;
                         end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(IntToStr(GetLPTCount));
end;