Возвращает (изменяет) в переданную тобой структуру 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, можеть меньше, может больше. Пробуй методом тыка.

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