home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / p_setup / prsel.bas < prev    next >
BASIC Source File  |  1992-11-12  |  883b  |  23 lines
  1. ' A handy place to put printer driver information.
  2.  
  3. Type PrDev
  4.     Device As String * 50
  5.     Driver As String * 20
  6.     Port As String * 10
  7. End Type
  8.  
  9. ' This is the VisualBASIC interface to the routine ExtDeviceMode(),
  10. ' that resides in all Windows 3.0 printer drivers.
  11.  
  12. Declare Function CallPSetup Lib "PSETUP.DLL" (ByVal hWnd%, ByVal Driv$, ByVal Dev$, ByVal Port$, ByVal INI$) As Integer
  13. Declare Function GetPrivateProfileString Lib "KERNEL" (ByVal App$, Key As Any, ByVal Default$, ByVal Ret$, ByVal Size%, ByVal filename$) As Integer
  14. Declare Function WritePrivateProfileString Lib "KERNEL" (ByVal App$, Key As Any, NewKey As Any, ByVal filename$) As Integer
  15.  
  16. ' This is the filename of the .INI file to be checked & modified.
  17.  
  18. Global Const WinIni$ = "WIN.INI"
  19. Global Const DevApp$ = "Devices"
  20. Global Const DefApp$ = "Windows"
  21. Global Const DefKey$ = "device"
  22.  
  23.