Другие полезные примеры

Здесь приводятся несколько полезных примеров применения функций Win32 АРI.

Завершение работы Windows:

Модуль 1:

Declare Function ExitWindows Lib "user32" Alias "ExitWindowsEx" _ (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long

Const EWX_LOGOFF=0Const EWX_SHUTDOWN=1Const EWX_REBOOT=2Const EWX_FORCE=4Const EWX_POWEROFF=8UserForm1:Private Sub CommandButton1_Click()Dim flag As LongDim Result As LongIf Me.OptionButton1.Value = True Then flag = 0Else If Me.OptionButton2.Value = True Then flag = 8Else If Me.OptionButton3.Value = True Then flag = 2End IfResult = ExitWindows(flag, 0)Unload MeEnd SubПереключение на русскую кодировку:Модуль 1:Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal _ HKL As Long, ByVal flags As Long) As LongPublic Declare Function GetKeyboardLayout Lib "user32" (ByVal _ dwLayout As Long) As LongUserForm1:Private Sub UserForm_Initialize()Dim lang As Longlang = GetKeyboardLayout(0)If lang <> 68748313 Then i = ActivateKeyboardLayout(68748313, 0)End SubЗакрытие окна:Модуль 1:Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As LongDeclare Function DestroyWindow Lib "user32.dll" (ByVal hwnd As Long) As LongUserForm1:Private Sub CommandButton3_Click()Dim hwnd As Long, retval As LongDim temp As Stringtemp = "Games"hwnd = FindWindow(CLng(0), temp) ' look for the windowretval = DestroyWindow(hwnd)End Sub