Мои примеры - VB
Формулировка задачи:
Здесь я буду, время от времени размещать свои решения
если у кого будут пожелания, просьба высказываться конструктивно
соблюдать правила, и не переходить на личности
Итак:
"регистрация компонента"
Зарегить компонент можно несколькими способами один из них хочу предоставить здесь
Добавлю в той библиотеке Dialogs, существует еще несколько классов
но это можно узнать если подключить компонент через References
Решение задачи: «Мои примеры»
textual
Листинг программы
Option Explicit Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As Long lpFile As Long lpParameters As Long lpDirectory As Long nShow As Long hInstApp As Long lpIDList As Long lpClass As Long hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExW" (lpExecInfo As SHELLEXECUTEINFO) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Const SEE_MASK_NOCLOSEPROCESS As Long = &H40 Private Const SW_SHOWDEFAULT As Long = 10 Private Const INFINITE As Long = -1& Private Sub Form_Load() Dim sh As SHELLEXECUTEINFO Dim ret As Long sh.cbSize = Len(sh) sh.fMask = SEE_MASK_NOCLOSEPROCESS sh.lpFile = StrPtr("regsvr32.exe") sh.lpParameters = StrPtr("/s C:\TheTrick.DLL") sh.nShow = SW_SHOWDEFAULT If ShellExecuteEx(sh) Then WaitForSingleObject sh.hProcess, INFINITE GetExitCodeProcess sh.hProcess, ret CloseHandle sh.hProcess If ret Then MsgBox "ГђГҐГЈГЁГ±ГІГ°Г*öèÿ Г*ГҐГіГ±ГЇГҐГёГ*Г*" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д