Системное программирование. Создание вкладки в свойствах. - VB
Формулировка задачи:
[bold]Системное программирование[/bold]
Доброго времени суток. У меня возникла сложность при [bold]создании новой вкладки в свойствах CD_ROM'а на VB[/bold]. Точнее сказать, я не нашел никакой информации на эту тему. Подскажите как решить эту проблему или где об этом можно прочесть.
Решение задачи: «Системное программирование. Создание вкладки в свойствах.»
textual
Листинг программы
'Module1 (проект ActiveX DLL с пустым Class1) Option Explicit Public TerminalID As Long 'cpl Public Type tagCPLINFO idIcon As Long idName As String idInfo As String lpData As Long End Type Public Enum CPL CPL_INIT = 1 CPL_GETCOUNT = 2 CPL_INQUIRE = 3 CPL_SELECT = 4 CPL_DBLCLK = 5 CPL_STOP = 6 CPL_EXIT = 7 CPL_NEWINQUIRE = 8 End Enum Public Type tagNEWCPLINFO dwSize As Integer dwFlags As Integer dwHelpContext As Integer lpData As Long hIcon As Long szName As String szInfo As String szHelpFile As String End Type ' Public Const DLL_PROCESS_DETACH = 0 Public Const DLL_PROCESS_ATTACH = 1 Public Const DLL_THREAD_ATTACH = 2 Public Const DLL_THREAD_DETACH = 3 Public Function DllMain(hInst As Long, fdwReason As Long, lpvReserved As Long) As Boolean Select Case fdwReason Case DLL_PROCESS_DETACH ' No per-process cleanup needed Case DLL_PROCESS_ATTACH DllMain = True Case DLL_THREAD_ATTACH ' No per-thread initialization needed Case DLL_THREAD_DETACH ' No per-thread cleanup needed End Select End Function 'CSEH: ErrLog Public Function CPlApplet(ByVal hwndCPl As Long, ByVal uMsg As Long, ByVal lParam1 As Long, ByVal lParam2 As Long) As Long '<EhHeader> On Error GoTo err_debug '</EhHeader> 100 CPlApplet = 0 110 Select Case uMsg Case CPL_INIT 120 mError.TraceMode = True 130 mError.StartLog 140 CPlApplet = 1 150 Case CPL_GETCOUNT 160 CPlApplet = 1 Case CPL_INQUIRE CPlApplet = 1 Case CPL_NEWINQUIRE CPlApplet = 1 170 Case CPL_DBLCLK 180 'MsgBox "MyCpl applet clicked", vbInformation + vbMsgBoxSetForeground Shell "notepad.exe", vbNormalFocus CPlApplet = 1 190 Case CPL_EXIT 200 mError.StopLog 210 mError.TraceMode = False End Select '<EhFooter> lb_out: Exit Function err_debug: LogError "mMain.CPlApplet" Resume lb_out '</EhFooter> End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д