home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MSI_Printers.int < prev    next >
Text File  |  2003-08-26  |  1KB  |  44 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       MiTeC System Information Component              }
  4. {               Printer Detection Part                  }
  5. {           version 8.3 for Delphi 5,6,7                }
  6. {                                                       }
  7. {       Copyright ⌐ 1997,2003 Michal Mutl               }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. {$INCLUDE MITEC_DEF.INC}
  12.  
  13. unit MSI_Printers;
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, Windows, Classes;
  19.  
  20. type
  21.   TPrinters = class(TPersistent)
  22.   private
  23.     FPrinter, FPort: TStringlist;
  24.     FDI: integer;
  25.     function GetPorts: TStrings;
  26.     function GetPrinters: TStrings;
  27.     {$IFNDEF D6PLUS}
  28.     procedure SetPorts(const Value: TStrings);
  29.     procedure SetPrinters(const Value: TStrings);
  30.     {$ENDIF}
  31.   public
  32.     constructor Create;
  33.     destructor Destroy; override;
  34.     procedure GetInfo;
  35.     procedure Report(var sl :TStringList; Standalone: Boolean = True); virtual;
  36.   published
  37.     property DefaultIndex: integer read FDI {$IFNDEF D6PLUS} write FDI {$ENDIF} stored False;
  38.     property Names :TStrings read GetPrinters {$IFNDEF D6PLUS} write SetPrinters {$ENDIF} stored false;
  39.     property Ports: TStrings read GetPorts {$IFNDEF D6PLUS} write SetPorts {$ENDIF} stored False;
  40.   end;
  41.  
  42. implementation
  43.  
  44.