Найти окно программы, запущенной из моей

[kirrun]

Господа, подскажите пожалуйста.

Дано:
Моя программа shell'ом запускает некий bat-ник.
Известно, что этот батник сам не закроется.
Заголовок окна не известен (точнее, он, конечно известен - "C:\WIndows\cmd.exe", но нет гарантии, что он будет один.)

Найти:
Собственно это самое окно cmd.exe которое получается.

Проблема в том, что известно только то, что cmd.exe запускается из моей программы, так что я понимаю тут нужна какая-то апи, но не FindWindow.

[kirrun]

гм.. задача немного изменилась...

Необходимо чуть больше "власти" над окном.

Тербуется:

Уметь прятать\показывать его
Уметь закрываться вместе с ним
Уметь закрывать его (корректно т.е. как Ctrl+C)

[BV]

CreateProcess?

[ANDLL]

Shell возвращает pID кажеться, так что искать все его окна.

[kirrun]

сори ступил. Думаю дальше =)

[kirrun]

гм...

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

' Form
' <...>
    Dim pclass As Long
    Dim sinfo As STARTUPINFO
    Dim pinfo As PROCESS_INFORMATION
    'Not used, but needed
    Dim sec1 As SECURITY_ATTRIBUTES
    Dim sec2 As SECURITY_ATTRIBUTES
    'Set the structure size
    sec1.nLength = Len(sec1)
    sec2.nLength = Len(sec2)
    sinfo.cb = Len(sinfo)
    'Set the flags
    sinfo.dwFlags = STARTF_USESHOWWINDOW
    'Set the window's startup position
    sinfo.wShowWindow = SW_NORMAL
    'Set the priority class
    pclass = HIGH_PRIORITY_CLASS
    'Start the program
   
    CreateProcess vbNullString, App.Path & "\123.bat", sec1, sec2, False, pclass, 0&, vbNullString, sinfo, pinfo
    EnumThreadWindows pinfo.dwThreadId, AddressOf EnumThreadWndProc, 0

'<...>

'Module
Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long

Public a As Long

Public Function EnumThreadWndProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
    MsgBox hWnd
    h = hWnd
    EnumThreadWndProc = 1
End Function


Почему-то не работает... Как-будто у thread'а нету окон... Где ошибка?

[Sebas]

пожет оно просто неуспело создаться?

[GSerg]

С одной стороны,

Before trying to communicate with the child process, the parent process can use WaitForInputIdle to determine when the child's initialization has been completed. For example, the parent process should use WaitForInputIdle before trying to find a window associated with the child process.

Но с другой стороны,

If this process is a console application or does not have a message queue, WaitForInputIdle returns immediately.

...

[kirrun]

пробовал и по 1-секундому таймеру. Нифига.

Буду думать с Shell'ом...

[kirrun]

так... Пока напишу для обычного процесса.. С консолью потом буду разбираться..

Имеется:
Спрятать окно
Показать окно
Закрыть при выгрузке форму (PostMessage WM_CLOSE)

Нужно:
Закрыться при завершении того процесса.

Собсно, внимание, вопрос: как отловить то самое завершение процесса (вроде видел где-то функцию, но не могу найти)?

[GSerg]

В Кирпичи.

[kirrun]

В Кирпичи.

Решпект.

Так.. щас я убегаю. ПРиду вечерком буду думтаь над консолью. Ни у кого идей не появилось?

[kirrun]

так.. а вот и встреченная проблема...

вот нарезки кода:

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

    Dim pclass As Long
    Dim sinfo As STARTUPINFO
    'Not used, but needed
    Dim sec1 As SECURITY_ATTRIBUTES
    Dim sec2 As SECURITY_ATTRIBUTES
    'Set the structure size
    sec1.nLength = Len(sec1)
    sec2.nLength = Len(sec2)
    sinfo.cb = Len(sinfo)
    'Set the flags
    sinfo.dwFlags = STARTF_USESHOWWINDOW
    'Set the window's startup position
    sinfo.wShowWindow = SW_NORMAL
    'Set the priority class
    pclass = HIGH_PRIORITY_CLASS
   
    'Start the program
    CreateProcess "C:\p.exe", vbNullString, sec1, sec2, False, pclass, 0&, vbNullString, sinfo, pinfo
    WaitForInputIdle pinfo.hProcess, INFINITE
    EnumThreadWindows pinfo.dwThreadId, AddressOf EnumThreadWndProc, 0
   
    wtr.Wait pinfo.hProcess


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

Public wnd() As Long

Public Function EnumThreadWndProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Static col As Integer
    If IsEmpty(col) Then col = 0
    ReDim Preserve wnd(col)
    wnd(col) = hwnd
    col = col + 1
   
    EnumThreadWndProc = 1
End Function


Проблема в том, что если таким образом запустить скомпиленную прогу вида

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

Private Sub Form_Load()
Form2.Show
End Sub


То преечисляется туева куча окон (если быть точным - 5).
При этом если сделать For each...блаблабла...ShowWindow... то, на панели задач помимо двух нормлаьных окон появляется еще одно без заголовка, неравзорачиваемое и т.п.

Так. Тепреь что я думаю по этому поводу. Видимо, перечисляя окна нужно записывать только окна определенного класса. Но этих классов же сотни! Как отделить мух от котлет - т.е. нормальные окна от всяких системных...?

added: блин, чувствую себя полным идиотом... тепреь waiter даже на обычный хэндл не встает... С утра работал ведь!!!
Пойду перезагружусь...

added&edited: перезагрузка помогла. Пока копм ребутился я выпил вишневого сока, понял что я идиот и исправил тупейшую ошибку.
Остается проблема с отсутствующим окном.