Public Property Let DefaultPrinter(strPrinterName As String) Private mstrDefaultPrinter_User As String ' Please send any comments to I didn't figure out how to decipher the API calls, but the rest of code is mine.ĭeclare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal strReturnedString As String, ByVal nSize As Long) As Longĭeclare Function GetProfileSection Lib "kernel32" Alias "GetProfileSectionA" (ByVal lpAppName As String, ByVal strReturnedString As String, ByVal nSize As Long) As Longĭeclare Function WriteProfileSection Lib "kernel32" Alias "WriteProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String) As Longĭeclare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long ' You may use this code in any project so long as you retain this notice. ' Copyright : ©Custom Data Solutions Ltd, 2005.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |