home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
n
/
netprn.zip
/
NETPRNQU.INC
< prev
next >
Wrap
Text File
|
1992-10-05
|
671b
|
36 lines
{
NETPRNQU.INC 1.0
}
function GetPrinterQueue(LPTDevice : Byte; var printQueueID : LongInt) : Byte;
var
Request :
record
Size : Word;
SubF : Byte;
LPTD : Byte;
end;
Reply :
record
Size : Word;
ID : LongInt;
end;
NovRegs : Registers;
begin
Reply.Size := 4;
with Request do begin
Size := 2;
SubF := $0A;
LPTD := LPTDevice;
end;
with NovRegs do begin
AH := $E0;
DS := Seg(Request);
SI := Ofs(Request);
ES := Seg(Reply);
DI := Ofs(Reply);
MsDos(NovRegs);
GetPrinterQueue := AL;
end;
printQueueID := NetWareSwapLong(Reply.ID);
end;