кто- нибудь знает, как можно 2 файла, открытие с помощью ShellExecute, программно расположить на экране определенным образом?(например, чтобы 1-й файл занимал левую треть экрана, а второй- всю остальную часть?)

По идее - это возможно. Функция возвращает указатель на экземпляр приложения.
Вот по нему можно получить указатель на окно. И екго уже разместить.
Но все это - по идее.

kb-nn
А может тебе Split нужен?

это как?
сплит вроде разбивает строки?
при чем он тут?

А еще, можно использовать FindWindow для получения окна.

а подробнее можно?

Ну тогда начнем с конца.
Чтобы задать размер/координаты окна, используется АПИ функция SetWindowPos:

Код

Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" ( _   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

Параметр, указывающий над каким окном производится действие - hwnd.

Значит нам нужно получить этот hwnd. А тут возможны варианты.

Напиши подробнее что и как ты запускаеш через ShellExecute.

Это сообщение отредактировал(а) Naghual - 24.1.2005, 17:20

о! спасибо!
на первый взгляд- понятно.

слушайте,
я открываю файл с помощью ShellExecute.
потом использую SetWindowPos с полученным дескриптором.
и от функции SetWindowPos никакого эффекта.
что обозначают параметры
hWndInsertAfter, wFlags у функции SetWindowPos ?

Цитата

потом использую SetWindowPos с полученным дескриптором

А дескриптор ты откуда получил?

из ShellExecute

А это не дескриптор hWnd!
Это "... instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application". А проще - это указатель на приложение (или сообщение об ошибке).

Вот основной вопрос:
Как из указателя приложения, получить дескриптор его окна.

ну хорошо
я пишу
id=SelleExecute (...)
myHWnd=FindWindow(0,id)
SetWindowPos(myHWnd,0,0,0,400,500,1)
и не работает

Не правильно. Потому и не работает.
FindWindow ищет по заголовку окна, соответствующего классу (первый параметр).

А вот как правильно - я пока не знаю. Буду думать.

Это сообщение отредактировал(а) Naghual - 27.1.2005, 16:22

Запустили шелэкзекут, да?
Потом:

Код

Dim hw as long hw = FindWindow ( vbNullString, "Заголовок окна" )

ну и сетвиндовпоз. Это если известен заголовок
Вот: купи Программирование в Win32 API на Visual Basic Дена Эпплмана. 500 руб, зато большинство винапи знаешь!

Это сообщение отредактировал(а) Run-time error - 2.2.2005, 15:20

но он неизвестен, вот в чем вопрос!
Добавлено @ 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.
она берет координаты, и что дальше?
а возвращает лишь успешен ли результат...
я не понимаю...




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

Возвращает (изменяет) в переданную тобой структуру POINT.

я делаю вот так

Код

Private Type POINTAPI    x As Long    y As Long End Type Dim pa1 As POINTAPI Dim pa2 As POINTAPI pa1.x = 0 pa1.y = 0 pa2.x = 2 * Screen.Width / 3 pa2.y = Screen.Height pa1 = ClientToScreen(hwnd, pa1) pa2 = ClientToScreen(hwnd, pa2) SetWindowPos hwnd, 0, pa1.x, pa1.y, pa2.x, pa2.y, 0

и при этом хочу, чтобы окно занимало две трети экрана

pa2.x = 2 * ((Screen.Width / Screen.TwipsPerPixelX) / 3)
И не нужно никаких ClientToScreen

Это сообщение отредактировал(а) Naghual - 15.2.2005, 14:37

не работает

Ну так и ЧТО не работает?

ну не в том месте окно открывается.

А ты проверь Pointapi. Может данные изменились. Функция берет твои коорд. а в той же переменной возвр screen

Когда я двигал оконца, то использовал вместо SetWindowPos,
MoveWindow. С ней получалось.

Цитата(Run @ 15.2.2005, 17:55)

А ты проверь Pointapi. Может данные изменились. Функция берет твои коорд. а в той же переменной возвр screen

Простите 3ю страницу не заметил
Добавлено @ 18:51

Цитата

использовал вместо SetWindowPos, MoveWindow. С ней получалось.

Вполне логично. В SetWPos есть парам. hwndInsertAfter а в moveWindow его нет. А нам он и не нужен

слушайте, простите, ну почему у меня не работает....

Option Explicit
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

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

Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint 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

Public Type POINTAPI
x As Long
y 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:\WINDOWS\EXPLORER.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
Dim pa1 As POINTAPI
Dim pa2 As POINTAPI
pa1.x = 0
pa1.y = 0
pa2.x = 2 * ((Screen.Width / Screen.TwipsPerPixelX) / 3)
pa2.y = Screen.Height '/ Screen.TwipsPerPixelY
MoveWindow hwnd, pa1.x, pa1.y, pa2.x, pa2.y, True
End Function
Добавлено @ 11:37
вот, лучше так. извиняюсь. для удобства чтения

Код

Option Explicit Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long 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 Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, _ ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint 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 Public Type POINTAPI     x As Long     y 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:\WINDOWS\EXPLORER.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 Dim pa1 As POINTAPI Dim pa2 As POINTAPI pa1.x = 0 pa1.y = 0 pa2.x = 2 * ((Screen.Width / Screen.TwipsPerPixelX) / 3) pa2.y = Screen.Height '/ Screen.TwipsPerPixelY MoveWindow hwnd, pa1.x, pa1.y, pa2.x, pa2.y, True End Function

хочу, чтобы окно занимало левые две трети экрана. (и левый верх был в левом верхнем углу)

Попробуй передать необходимые параметры окна
в STARTUPINFO, а потом CreateProcess.
И я так подозреваю, не

Код

AppName = "C:\WINDOWS\EXPLORER.EXE"

а

Код

AppName = "C:\WINDOWS\IEXPLORE.EXE"

Или так

Код

AppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"

но окно открывается!
только не в том месте.
и в ширину оно занимает не 2/3, а больше


так?

Код

Public pa1 As POINTAPI Public pa2 As POINTAPI 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:\WINDOWS\EXPLORER.EXE" pa1.x = 0 pa1.y = 0 pa2.x = 2 * ((Screen.Width / Screen.TwipsPerPixelX) / 3) pa2.y = Screen.Height '/ Screen.TwipsPerPixelY si.dwX = pa1.x si.dwY = pa1.y si.dwXSize = pa2.x si.dwYSize = pa2.y 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     MoveWindow hwnd, pa1.x, pa1.y, pa2.x, pa2.y, True End Function

увы, всё тоже самое....

Вставь до вызова EnumThreadWindows
Sleep 1000, можеть меньше, может больше. Пробуй методом тыка.

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

Можно воспользоваться универсальной функцией поиска окна. Она описана в MSDN
Выкладываю:

Код

Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function apiGetWindow Lib "user32" Alias _          "GetWindow" (ByVal hwnd As Long, ByVal wCmd As L Public Const GW_HWNDNEXT = 2 Public Const GW_CHILD = 5 Public Const GWW_ID = (-12)     Public Const GWL_STYLE = (-16) Public Const GWL_EXSTYLE = -20 Public Const GW_OWNER = 4 Function FindWindowLike(hWndArray() As Integer, ByVal hWndStart As _       Integer, WindowText As String, Classname As String, ID) As Integer    Dim hwnd As Integer    Dim sWindowText As String    Dim sClassname As String    Dim sID    Dim r As Integer    ' Hold the level of recursion:    Static level As Integer    ' Hold the number of matching windows:    Static iFound As Integer    ' Initialize if necessary:    If level = 0 Then       iFound = 0       ReDim hWndArray(0 To 0)       If hWndStart = 0 Then hWndStart = GetDesktopWindow()    End If    ' Increase recursion counter:    level = level + 1    ' Get first child window:    hwnd = apiGetWindow(hWndStart, GW_CHILD)    Do Until hwnd = 0       DoEvents ' Not necessary       ' Search children by recursion:       r = FindWindowLike(hWndArray(), hwnd, WindowText, Classname, ID)       ' Get the window text and class name:       sWindowText = Space(255)       r = apiGetWindowText(hwnd, sWindowText, 255)       sWindowText = Left(sWindowText, r)       sClassname = Space(255)       r = apiGetClassName(hwnd, sClassname, 255)       sClassname = Left(sClassname, r)       ' If window is a child get the ID:       If apiGetParent(hwnd) <> 0 Then          r = apiGetWindowWord(hwnd, GWW_ID)          sID = CLng("&H" & Hex(r))       Else          sID = Null       End If       ' Check that window matches the search parameters:       If sWindowText Like WindowText And sClassname Like Classname Then          If IsNull(ID) Then             ' If find a match, increment counter and add handle to array:             iFound = iFound + 1             ReDim Preserve hWndArray(0 To iFound)             hWndArray(iFound) = hwnd          ElseIf Not IsNull(sID) Then             If sID = CLng(ID) Then                ' If find a match increment counter and add handle to array:                iFound = iFound + 1                ReDim Preserve hWndArray(0 To iFound)                hWndArray(iFound) = hwnd             End If          End If       End If       ' Get next child window:       hwnd = apiGetWindow(hwnd, GW_HWNDNEXT)    Loop    ' Decrement recursion counter:    level = level - 1    ' Return the number of windows found:    FindWindowLike = iFound End Function

А искать окно можно так:

Код

Static hWnds() As Integer       r = FindWindowLike(hWnds(), 0, "Какой-то заголовок*", "*", Null)       If r > 0 Then             MsgBox "Нашел - " & CStr(hWnds(r))       end if

Таким образом, ты можешь найти hWND обоих окон. В качестве параметра поиска окна по заголовку передай *FileName1 и *FileName2, а затем воспользуйся API функции для изменения размеров.
Однако, для этого нужно знать размеры экрана. Расширение!

что- то я ничего не понимаю.
у меня вообще, как будто от функции MoveWindow толку не видно.
что бы я ей не давал, она ничего не меняет...

Ну ты попробуй с разными hwnd, эйчвинд вэбэ попробуй...
Может и правда

Цитата

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

что- то я не понял.
что значит с разными hwnd?

Ну может у тебя конкретно с этим окном не выходит
а с окном vb может выйти. тогда будешь знать, где ошибка

Ну ты и растянул эту бадягу
Я уже пробовал. Вставь Sleep, как я выше писал и расслабся.
Добавлено @ 16:01
Со Sleep все работает

со sleep у меня окно сворачивается через указанное время.

__Sergey__,
kb-nn,
просто сраыните друг с другом свой код и все

простите, я всё о своем, о наболевшем....
у меня начало работать, но SetWindowPos срабатывает не для всех файлов.
(вручную для них размеры меняются и перемещаются без проблем)

может у вас появится мысля- от чего это может зависеть?