Как найти окно у которого нет заголовка?

[AntonGV]

Необходимо найти и закрыть окно, котороее не имеет заголовка (см. аттач). По классу окна, найти не получается т.к. в системе несколько окон с таким же классом, и все без заголовка.

[keks-n]

Она ВСЕГДА на по центру десктопа?

[VB-constructor]

Попробуй WinSpyэем его пощупать, может есть слабые места

[keks-n]

VB-constructor
Тут только если по расположению. + Можно глянуть на предмет того, что есть дочернее окно(читай - контрол), которого в других таких-же нету.

[AntonGV]

keks-n
Спасибо, разобрался. Вот такой код получился (этих окошек обычно бывает 3)

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

Option Explicit
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Const WM_CLOSE = &H10

Sub Main()
  Dim hwnd As Long, slength As Long
  slength = 0
  Do While slength = 0
    hwnd = WindowFromPoint(500, 350)
    slength = GetWindowTextLength(hwnd)
    If slength = 0 Then SendMessage hwnd, WM_CLOSE, 0, 0
  Loop
End Sub

Еще один вопросик. Если я пропишу свою программу в реестре в список автозагрузки последней, то она будет загружаться последней или нет?

[tyomitch]

Нет.