подскажите, пожалуйста, как работает функция SetWindowPos.
какие бы я ей координаты не давал, окно растягивается на весь экран.
почему?

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

не помогло....

слушайте, я вот что обнаружил.
перед SetWindowPos у меня стоял msgbox с дескриптором окна.
он оказывается портил все дело.
если его выкинуть, у меня вырезается кусок в окне, (меняющемся в зависимости от параметра hWndInsertAfter в SetWindowPos), как раз по размеру и положению равный параметрам SetWindowPos и в нем виден рабочий стол.

такое чувство, что это дескриптор совершенно другого окна

Option Explicit

Public 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 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 GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDNEXT = 2
Public Const GW_CHILD = 5

Public Function fnGetWindowHwndByProcessID(lngProcessID As Long) As Long
Dim lngCurProcessID As Long
Dim lngRetVal As Long
Dim hwndTemp As Long

On Error GoTo HandleErr

hwndTemp = GetDesktopWindow()
hwndTemp = GetWindow(hwndTemp, GW_CHILD)

Do While hwndTemp <> 0
lngRetVal = GetWindowThreadProcessId(hwndTemp, lngCurProcessID)
If lngCurProcessID = lngProcessID Then
fnGetWindowHwndByProcessID = hwndTemp
Exit Do
End If
hwndTemp = GetWindow(hwndTemp, GW_HWNDNEXT)
Loop

Exit Function

HandleErr:
fnGetWindowHwndByProcessID = 0
End Function

Sub Main()

Dim lngProcessID As Long
Dim AppName As String
Dim hwnd As Long


Const SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE
Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Const SWP_HIDEWINDOW = &H80
Const SWP_NOACTIVATE = &H10
Const SWP_NOCOPYBITS = &H100
Const SWP_NOMOVE = &H2
Const SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering
Const SWP_NOREDRAW = &H8
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_SHOWWINDOW = &H40


Const HWND_BOTTOM = 1
Const HWND_BROADCAST = &HFFFF&
Const HWND_DESKTOP = 0
Const HWND_NOTOPMOST = -2
Const HWND_TOP = 0
Const HWND_TOPMOST = -1

AppName = "C:\WINDOWS\explorer.exe"
lngProcessID = Shell(AppName, vbNormalFocus)

hwnd = fnGetWindowHwndByProcessID(lngProcessID)

SetWindowPos hwnd, HWND_TOP, 0, 0, 500, 380, SWP_SHOWWINDOW 'Or SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE

End Sub

пс, простите, не нашел как выделить код.

нет, у меня не 0. а нормальное 6-7 значное число.
0 у меня вылазит в том случае, если это окно уже открыто, а я его хочу открыть второй раз.

такое чувство, что это дескриптор совершенно другого окна

Option Explicit

Public 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 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 GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long

Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDNEXT = 2
Public Const GW_CHILD = 5

Public Function fnGetWindowHwndByProcessID(lngProcessID As Long) As Long
Dim lngCurProcessID As Long
Dim lngRetVal As Long
Dim hwndTemp As Long

On Error GoTo HandleErr

hwndTemp = GetDesktopWindow()
hwndTemp = GetWindow(hwndTemp, GW_CHILD)

Do While hwndTemp <> 0
lngRetVal = GetWindowThreadProcessId(hwndTemp, lngCurProcessID)
If lngCurProcessID = lngProcessID Then
fnGetWindowHwndByProcessID = hwndTemp
Exit Do
End If
hwndTemp = GetWindow(hwndTemp, GW_HWNDNEXT)
Loop

Exit Function

HandleErr:
fnGetWindowHwndByProcessID = 0
End Function

Sub Main()

Dim lngProcessID As Long
Dim AppName As String
Dim hwnd As Long


Const SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE
Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Const SWP_HIDEWINDOW = &H80
Const SWP_NOACTIVATE = &H10
Const SWP_NOCOPYBITS = &H100
Const SWP_NOMOVE = &H2
Const SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering
Const SWP_NOREDRAW = &H8
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_SHOWWINDOW = &H40


Const HWND_BOTTOM = 1
Const HWND_BROADCAST = &HFFFF&
Const HWND_DESKTOP = 0
Const HWND_NOTOPMOST = -2
Const HWND_TOP = 0
Const HWND_TOPMOST = -1

AppName = "C:\WINDOWS\explorer.exe"
lngProcessID = Shell(AppName, vbNormalFocus)

hwnd = fnGetWindowHwndByProcessID(lngProcessID)

SetWindowPos hwnd, HWND_TOP, 0, 0, 500, 380, SWP_SHOWWINDOW 'Or SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE

End Sub

пс, простите, не нашел как выделить код.

Findwindow - это же надо знать заголовок окна. как мне его узнать?
я уже с ней изрядно помучился.

кстати, что касается NOTEPAD, то единственное, в чем разница - при повторном открытии дескриптор ненулевой.

мне известен только путь к файлу.

у меня заработало, большое вам спасибо!

Option Explicit

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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

Const GW_HWNDNEXT = 2
Dim hWnd As Long

Function InstanceToWnd(ByVal target_pid As Long) As Long
Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
'Find the first window
test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
Do While test_hwnd <> 0
'Check if the window isn't a child
If GetParent(test_hwnd) = 0 Then
'Get the window's thread
test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
If test_pid = target_pid Then
InstanceToWnd = test_hwnd
Exit Do
End If
End If
'retrieve the next window
test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
Loop
End Function

Private Sub Main()
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Dim Pid As Long
Dim i As Integer
LockWindowUpdate GetDesktopWindow
Pid = Shell("c:\windows\notepad.exe", vbNormalFocus)
If Pid = 0 Then MsgBox "Error starting the app"

hWnd = InstanceToWnd(Pid)
SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 512, 384, SWP_SHOWWINDOW
Putfocus hWnd
LockWindowUpdate False
End Sub

слушайте. у меня опять проблемы.
функция Shell что, работает только с exe- шниками?
что-то для некоторых (например txt,doc) у меня возникает ошибка
Invalid procedure Call or Argument

и SetWindowPos работает не для всех запущенных приложений.

от чего это может зависеть?

насчет Shell спасибо, буду пробовать.

а насчет ресайза - ну вручную-то я могу его изменить, отсюда следует, что это может сделать SetWindowPos ?

что касается хендлов, то для некоторых файлов это работает прекрасно.
а для каких-то нет.

авторПричем здесь процесс?
AllApi

The GetExitCodeProcess function retrieves the termination status of the specified process.
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero.



kb_nn

например notepad.exe она мне открыла в текстовом виде, а explorer.exe предложила сохранить из с:\windows.


Скорее всего это связано с политиками безопаности Windows. Когда вы а командной строке выполняете "explorer.exe", что происходит?

Не стоило ради этого старый топик поднимать, у вас уже есть один такой же.

нет, если я запускаю их через командную строку, то все нормально.

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

explorer.exe был примером открываемого окна.

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

но вот SetWindowPos на получаемый дескриптор не реагирует...

всё таки проблема изменения размеров функцией SetWindowPos остается.

дескриптор получается ненулевой.
в каких-то случаях все работает нормально., в каких-то нет

вручную размеры я могу задать

не могу понять от чего это может зависеть.

я обнаружил такую вещь- SetWindowPos у меня работает только для Вордовских файлов.

для всех остальных, какие я пробовал

html, txt,xls, exe

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



Option Explicit
Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
Private 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
Private 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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessID As Long
dwThreadID As Long
End Type

Private 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

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Const NORMAL_PRIORITY_CLASS = &H20&
Const INFINITE = -1&
Const SW_SHOWNORMAL = 1
Const GW_HWNDNEXT = 2

Dim workArea As RECT

Function InstanceToWnd(ByVal target_pid As Long) As Long
Dim test_hwnd As Long, test_pid As Long, test_thread_id As Long
'Find the first window
test_hwnd = FindWindow(ByVal 0&, ByVal 0&)
Do While test_hwnd <> 0
'Check if the window isn't a child
If GetParent(test_hwnd) = 0 Then
'Get the window's thread
test_thread_id = GetWindowThreadProcessId(test_hwnd, test_pid)
If test_pid = target_pid Then
InstanceToWnd = test_hwnd
Exit Do
End If
End If
'retrieve the next window
test_hwnd = GetWindow(test_hwnd, GW_HWNDNEXT)
Loop
End Function

Private Sub Main()


' константы для wFlags
Const SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE
Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Const SWP_HIDEWINDOW = &H80
Const SWP_NOACTIVATE = &H10
Const SWP_NOCOPYBITS = &H100
Const SWP_NOMOVE = &H2
Const SWP_NOOWNERZORDER = &H200 ' Don't do owner Z ordering
Const SWP_NOREDRAW = &H8
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Const SWP_NOSIZE = &H1
Const SWP_NOZORDER = &H4
Const SWP_SHOWWINDOW = &H40

' константы для hWndInsertAfter
Const HWND_BOTTOM = 1
Const HWND_BROADCAST = &HFFFF&
Const HWND_DESKTOP = 0
Const HWND_NOTOPMOST = -2
Const HWND_TOP = 0
Const HWND_TOPMOST = -1

Const SPI_GETWORKAREA = 48

Dim Pid1 As Long, Pid2 As Long
Dim wr As Long, wb As Long
Dim hWnd1 As Long, hwnd2 As Long
Dim AppName As String
Dim sFinal As String
Dim s As String

Call SystemParametersInfo(SPI_GETWORKAREA, vbNull, workArea, 0)

wr = workArea.Right
wb = workArea.Bottom

AppName = "D:\1.xls"
sFinal = AppName
'If (Right(AppName, 4) <> ".exe") Then
s = String$(255, 0)
FindExecutable sFinal, "", s
sFinal = Mid$(s, 1, InStr(1, s, Chr$(0)) - 1) & " """ & sFinal & """"
'End If

Pid1 = Shell(sFinal, vbNormalFocus)
hWnd1 = InstanceToWnd(Pid1)

'MsgBox "Идентификатор процесса: " & Pid1 & vbCrLf _
& "Дескриптор окна:" & hWnd1 & vbCrLf

SetWindowPos hWnd1, HWND_TOPMOST, 0, 0, 2 * wr / 3, wb, SWP_SHOWWINDOW
'MoveWindow hWnd1, 0, 0, 2 * wr / 3, wb, 1

End Sub

да вы что.

нет. и на других машинах не получается.
какие-то, работают,
для каких-то в запускаемом приложении образуется вырезка, в которую виден рабочий стол(занимающая как раз 2/3)
для каких-то , если при открытии приложения запускается какое-то вспомогательное. окно, то принимает нужную форму именно оно.
какие-то просто виснут при таком запуске.

какие-то просто открываются на весь экран, и всё.

и админом, и не нет, на разных машинах.
но ведь от этого не должно зависеть....

тогда можно ответы на два вопроса

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

2)можно ли как-либо узнать, поддерживается ли ресайз у данного приложения, через дескриптор?

нет, у меня упорно не хочет работать SetWindowPos.

всё- таки от чего это может еще зависеть?

вот например такой нюанс- при открытии, например Автокада в плюс к нему появляется окно с заголовком "GDI+ Window" (попасть туда мне не удалось, об этом я сужу только по панели задач) и от SetWindowPos расположение его не меняется...
(при ручном открытии все нормально)

html- файлы все без исключения открываются на весь экран, и все.

всё- таки от чего это может еще зависеть?

а что тогда там должно быть?

и еще такой вопрос- если у меня идут несколько подряд SetWindowPos, то почему-то они загружаются не в порядке очередности, а в порядке быстроты звгрузки. это почему может быть?

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


и все таки что мне делать c SetWindowPos?
ведь в каких-то случаях она работает нормально....
пожалуйста...