Мои примеры - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.636 из 5