Resize the window of another running program

[Lunatic3]

Is there a way that I can check for existence of a special window outside of my program and if it exists resize it ? you know, I am talking about a window, not a process; in my case the main process may have multiple open windows each having a title, the only property of the window that I know.

[Pirate]

it's VB6 version .I didn't convert it to .NET thought.

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B
 
'in a form 
' 77 is the character code for the letter 'M'
    Call keybd_event(VK_LWIN, 0, 0, 0)
    Call keybd_event(77, 0, 0, 0)
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)

hope it works !

[Lunatic3]

Sorry, but i cant understand how to pass the window name and its new size to this API.

[RealNickyDude]

<removed, wrong post!)

[Pirate]

just look at this , it might solve your problem.

[Lunatic3]

I dont want to minimize or maximize the window, i want to resize it for example have it 400x400.

[Pirate]

Originally posted by Lunatic3
I dont want to minimize or maximize the window, i want to resize it for example have it 400x400.

Is it working ? I mean mimizing and maxi.??

[anx992]

I'm stuck with the same problem!! did you ever figure out how to do it?

[Lunatic3]

No, I have not find a way yet, ofcourse I didnt have time to search for it in the past days and havent tried the method presented by Pirate yet, If i find a way i will post it here.

[anx992]

Sorted it Man!..

Try this fella.. it works.

'MODULE CODE
'***********************************************
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

Public Function SetWP(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)
SetWindowPos hwnd, hWndInsertAfter, x, y, cx, cy, wFlags
End Function

'FORM CODE
'***********************************************
Public Sub Command1_Click()
'hwnd you need to find the handle of the application your wanting to resize.

Module1.SetWP hwnd, 0, txtLeft, txtTop, txtWidthX, txtHeightY, 0
End Sub

[Lunatic3]

Thanks man!
Just you have to replace 'Long' with 'Integer' in your declarations and it works great