но он неизвестен, вот в чем вопрос!
Добавлено @ 15:33
известно только имя файла.
Добавлено @ 15:34
кстати. спасибо за книжку.

По моему была какаято апи функция для получения hwnd по process handle. Завтра напишу сегодня нет времени

спасибо тебе

Для запуска процесса используй CreateProcess.
В возвращяемой структуре PROCESS_INFORMATION есть параметры,
для ф-ции EnumThreadWindows.

Точно!

Код

Public Type PROCESS_INFORMATION        hProcess As Long        hThread As Long        dwProcessId As Long        dwThreadId As Long End Type

dwThreadId - идентификатор нити. Потом с помощью EnumThreadWindows получаем список окон этой проги(их hwnd) и setwinpos
Описание EnumThreadWindows:

Код

Public Declare Function EnumThreadWindows Lib "user32" Alias "EnumThreadWindows" (ByVal dwThreadId As Long, ByVal lpfn As Long, ByVal lParam As Long) As Long

lpfn - callback определенный через AddressOf
Ну вощем дальше поймёшь.
ЗЫ Книжка зовётся "Win32 API и Visual Basic" Дена Эпплмана.

Это сообщение отредактировал(а) Run-time error - 3.2.2005, 18:40

что- то я ничего не понял.

Ты когда-нить AddressOf использовал?
Смотри! Объявляешь структуру PROCESS_INFORMATION, таскаешь из нее dwThreadId (идентификатор нити). То есть процесс запускаешь не через ShellExecute а чрез CreateProcess(описание в win32api.txt) ну и все структуры там же. Поищи в MSDN CreateProcess. Так вот потом создаёшь модуль с функцией типа EnumThreadWindowsProc. Параметры не помню, порою. Потом из кода вызываешь EnumThreadWindows с парам.:
dwThreadId - ид. нити
lpfn - пишешь прямо в вызове AddressOf EnumThreadWindowsProc
lparam оставляй 0.
Например:

Код

EnumThreadWindows OurThreadId, AddressOf EnumThreadWindowsProc, 0

Для каждого окна этой нити( а у нас оно одно) Винды вызовут фнкцию EnumThreadWindowsProc написанною тобой.
В вызове тебе и передадут hwnd.
Вроде так:
Public Function EnumThreadWindowsProc(ByVal hwnd as long, Byval lparam as long) As Long
SetWindowPos(hwnd, и т.д....)
'Чтоб прервать перечисление возврати ноль.
EnumThreadWindowsProc = 0
end Function
Насчет описания ф-ции не уверен смотри MSDN.
Добавлено @ 21:09
Короче завтра покопаюсь напишу код

Странно, но у меня не работает CreateProcess!
Т.е. функция завершается успешно и даже имеется коекакая информация о процессе. Но вот запущенного приложения нет. Ни в исполняемых программах ни в процессах. Как-бы и не запустилось вовсе оно.
Возможно я делаю что-то не так...

Не знаю что у тебя не так, смотри мои параметры.
Приведенный ниже код почти работает.ПОЧТИ.
Трабл: при запуске управление передается другому процессу => не вызывается EnumThreadWindows. КСТАТИ:
заметь, в объявлении КрэйтПроцесс я lpProcessAttributtes и lpThreadAttributes
заменил типом Long и передаю 0.
Код:

Код

Public Declare Function EnumThreadWindows Lib "user32" (ByVal dwThreadId As Long, ByVal lpfn As Long, ByVal lParam As _ Long) As Long Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _ ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal _ lpCommandLine As String, lpProcessAttributes As Long, lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal _ dwCreationFlags As Long, lpEnvironment As Long, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, _ lpProcessInformation As PROCESS_INFORMATION) As Long Public Type PROCESS_INFORMATION        hProcess As Long        hThread As Long        dwProcessId As Long        dwThreadId As Long End Type Public Type STARTUPINFO        cb As Long        lpReserved As String        lpDesktop As String        lpTitle As String        dwX As Long        dwY As Long        dwXSize As Long        dwYSize As Long        dwXCountChars As Long        dwYCountChars As Long        dwFillAttribute As Long        dwFlags As Long        wShowWindow As Integer        cbReserved2 As Integer        lpReserved2 As Long        hStdInput As Long        hStdOutput As Long        hStdError As Long End Type Sub Main() Dim OurThread As Long 'Нить запущенного процесса Dim retval As Long 'Возвращаемое значение Dim si As STARTUPINFO, pi As PROCESS_INFORMATION 'Структуры si.cb = Len(si) Dim AppName As String 'Имя приложения AppName = "C:\CALC.EXE" retval = CreateProcess(AppName, vbNullString, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&, ByVal 0&, vbNullString, si, pi) 'Запускаем приложение If retval = 0 Then Exit Sub 'Если произошла ошибка, выходим EnumThreadWindows pi.dwThreadId, AddressOf EnumFunc, ByVal 0& 'Передаём указатель на EnumFunc Виндам End Sub Public Function EnumFunc(ByVal hwnd As Long, ByVal lParam As Long) As Long SetWindowPos hwnd, 0, 0, 0, 1000, 1000, 0 End Function

Подскажите, кто-нить, КАК ЗАПУСТИТЬ ПРОЦЕСС БЕЗ ПЕРЕДАЧИ УПРАВЛЕНИЯ.

Это сообщение отредактировал(а) Run-time error - 5.2.2005, 22:26

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

Используй ф-ции преобразования координат, сейчас точно нескажу,
но примерно ClientToScreen and ScreenToClient

ничего не получается.

Пересчитывай новое положение учитывая положение родительского окна

Короче если выйдет перешли исходники мне на мыло pls. Всё равно считай отчасти это мои исходники

дело в том, что я не очекнь понял функцию ClientToScreen.
она берет координаты, и что дальше?
а возвращает лишь успешен ли результат...
я не понимаю...




вы меня простите....