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