Получить статус принтера, под NT Опции

[Jill]

Нашла неплохой код:

function TestPrinterStatus(LPTPort: Word): Byte;  
var  
  Status: byte;  
  CheckLPT: word;  
begin  
  Status := 0;  
  if (LPTPort >= 1) and (LPTPort <= 3) then  
  begin  
    CheckLPT := LPTPort - 1;  
    asm  
      mov dx, CheckLPT;  
      mov al, 0;  
      mov ah, 2;  
      int 17h;  
      mov &Status, ah;  
    end;  
  end;  
  Result := Status;  
end;

Но под NT он не работает!!! Просто из паскаля - все ок, а вот из делфи - ни в какую!!! Кто сталкивался с подобной проблемой? Что делать?

[hiv]

Этот код неписан специально для DOS, а под win32 нужно использовать WIN32 API. Открыть файл или порт для винды все равно функция OPEN. Если какая-то программа этот порт открыла, то другая не сможет получить туда доступ. Посмотри в Delphi есть компонент TPrinter - может там найдешь то, что тебе нужно.

[Jill]

С помощью TPrinter можно получить свойства, имя принтера, сервера, вывести очередь печати est. Но я не нашла статуса (готов/не готов). Это задача из разряда невыполнимых?

[volvo]

Это задача из разряда невыполнимых?

Почему же сразу "невыполнимых?" Просто не совсем с помощью TPrinter...

Смотри в сторону EnumPrinters, получай с его помощью список всех принтеров в системе (информация будет записываться в массив переменных типа TPrinterInfo2), и для принтера, у которого pPrinterName совпадает с нужным тебе смотри, чему равно поле Status этой самой структуры TPrinterInfo2 ...

Чуть позже, если будет время, приведу пример кода, как это можно сделать...