58faf91453
* *
% remove brandings and homepage [1] from copyright header. Pass 1 - using script.
[1] nobody has access to it anymore AFAIK - and it's also just
a redirect since long
! update url in copyright header
; this should make the diff between 3.4 and 3.2 easier to manage
45 lines
906 B
Plaintext
45 lines
906 B
Plaintext
/*
|
|
*
|
|
* Copyright 2009 Viktor Szakats (vszakats.net/harbour)
|
|
*
|
|
*/
|
|
|
|
#require "hbwin"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
Dump( win_printerList( .F., .F. ) )
|
|
Dump( win_printerList( .F., .T. ) )
|
|
Dump( win_printerList( .T., .F. ) )
|
|
Dump( win_printerList( .T., .T. ) )
|
|
|
|
? "WIN_PRINTERGETDEFAULT:", ">" + win_printerGetDefault() + "<"
|
|
? "WIN_PRINTERSTATUS:", win_printerStatus()
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE Dump( a )
|
|
|
|
LOCAL b, c
|
|
|
|
? "=================="
|
|
FOR EACH b IN a
|
|
?
|
|
IF HB_ISARRAY( b )
|
|
FOR EACH c IN b
|
|
?? c:__enumIndex(), c
|
|
IF c:__enumIndex() == 2
|
|
?? ">>" + win_printerPortToName( c ) + "<<", "|>>" + win_printerPortToName( c, .T. ) + "<<|"
|
|
ENDIF
|
|
?
|
|
NEXT
|
|
? "-----"
|
|
ELSE
|
|
? b, win_printerExists( b ), win_printerStatus( b )
|
|
ENDIF
|
|
NEXT
|
|
|
|
RETURN
|