Функция SendMessage работать не хочет

[XairOn]

Возникла проблема с отправкой API функции окну, мне нужно свернуть окно, Я пишу:

Private Sub Command1_Click()
RetVal = SendMessage(Form1.hwnd, SC_MINIMIZE, 0, 1)
End Sub

Выдаётся "Ошибка типа" (Type mismatch), последнии параметр (1) не нарвится почему-то, что там указать нужно?

[Rainbow]

А не так должно быть?

Код: Выделить всё

Private Const WM_SYSCOMMAND = &H112
RetVal = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0)

[alibek]

И кроме того, приведи текст Declare. А то ведь объявлять по всякому можно.

[XairOn]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

И константы:
Const SC_MINIMIZE = &HF020

[Юстас]

Замени ByVal lParam As Any на ByVal lParam As Long.

Ну и кроме того, делай так, как сказала Rainbow.

[XairOn]

Раз уж разговор зашел о WinAPI, то не подскажите как правильно функцию ExitWindowsEx использовать, т.к. у меня почему-то она не выключает комп (и не перезагружает), а только завершает текущий сеанс. В чём дело?

Декларирую вот так: Private Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

а вызов функции вот так выглядит: r = ExitWindowsEx(EWX_SHUTDOWN Or EWX_FORCE, 0&)

[kazah_]

В том что он СS_... не задал

[tyomitch]

Раз уж разговор зашел о WinAPI, то не подскажите как правильно функцию ExitWindowsEx использовать, т.к. у меня почему-то она не выключает комп (и не перезагружает), а только завершает текущий сеанс. В чём дело?

Декларирую вот так: Private Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

а вызов функции вот так выглядит: r = ExitWindowsEx(EWX_SHUTDOWN Or EWX_FORCE, 0&)

http://vbrussian.com/Trick.asp?ID=1#trc30

[XairOn]

Ещё одни вопрос появился: функция SendMessage заработала, используя её я отправляю окну сомнанду Close, но функция почему-то

закрывает только окна каталогов и некоторые окошки (например IE), а вот тот же Notepad е закрывает, программы тоже не

закрывает, я уже пробовал через DestroyWindow, но эффект тот же. Пожскажите пожалуйста, как сделать так, что бы моя

программа закрывала любое указанное ей окно.
Вся программа выглядит вот так:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam

As Integer, ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060

Private Sub Command1_Click()
RetVal = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_CLOSE, 0)
End Sub

[ahill]

Используй FindWindow

Код: Выделить всё

Dim hWnd as Long
hWnd=FindWindow(0,"Имя окна")

[XairOn]

Используй FindWindow

Код: Выделить всё

Dim hWnd as Long
hWnd=FindWindow(0,"Имя окна")

Так я пробовал, говорю же, функция работает, но закрывает не любое окно, некоторые окна на неё вообще не реагируют!

[ahill]

А какие конкретно окна не закрываются?

[XairOn]

А какие конкретно окна не закрываются?

Конкретно - это Notepad, Visual Basic, Rar, Zip и т.д список можно долго продолжать.

[ahill]

У меня всё закрывает. Ты в FindWindow полностью имя окна пишешь? Или просто Rar, Notepad, Zip? Кстати в какой винде это происходит?

[ahill]

Функция FindWindow имеет два параметра, первый - имя класса, здесь можно написать Notepad к примеру, а второй - имя окна, точнее его заголовок - "Безымянный - Блокнот".

[XairOn]

Я знаю как FindWindow работает, там всё правильно указываю, а происходит это всё в Windows XP Pro. Хотя если ты говоришь, что всё работает, то приведи полный код пожалуйста, может Я всё-таки что не так делаю.

[ahill]

Вариант 1:

Код: Выделить всё

Dim hWnd As Long
       
        hWnd = FindWindow("Notepad", vbNullString)
        SendMessage hWnd, WM_SYSCOMMAND, SC_CLOSE, 0

Вариант 2:

Код: Выделить всё

Dim hWnd As Long
       
        hWnd = FindWindow("Notepad", vbNullString)
        PostMessage hWnd, WM_SYSCOMMAND, SC_CLOSE, 0

Но под XP не знаю, возможно надо передавать дополнительный параметр в SendMessage

[tyomitch]

Но под XP не знаю, возможно надо передавать дополнительный параметр в SendMessage

Вряд ли - все параметры уже задействованы.

[A.A.Z.]

А я раньше делал FindWindow vbNullString, "NOTEPAD", и прокатывало...