подскажите, пожалуйста, как работает функция 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 у меня работает только для Вордовских файлов.