Windows, Captions and Getting Control

[WideAwake]

Can someone help me out with this please, TIA.

Let's say I have 2 windows programs, Prog1 and Prog2. Prog1 runs Prog2, everything's OK so far, Prog2 is ran so it's hidden, intentional, Prog2 pop's up a window with some information on it, again, that's fine. I've ended up with, I can see Prog1 and the Window generated from Prog2.

I would like to manipulate the Prog2 Window slightly, I want it to attached itself to the side of my Prog1 and this Prog2 Window I also want to get focus when my Prog1 does and the Prog2 window has no taskbar icon, I also want it to stick to my form so it moves with it.

I hope I've made it easy to understand my point.

I know I'll have to use things like FindWindow e.t.c. but get a bit stuff after that. The Window does always have the same text (form caption) displayed.

One last thing, I can't put anything into the code of Prog2, it's not a VB app.

Thanks

[WideAwake]

I can get the handle of the window, works fine, using:

mWnd = FindWindow(vbNullString, "Prog2 Window")

And to test it:

BringWindowToTop mWnd

All works fine, it just the part concerning posistioning it. Basically I want the left of the Window to = Prog1 Form left+offset and top of the window to = top of Prog1 form.

I've been messing with the 'SetTopMostWindow' but just can't get it to posistion the window.

[DerFarm]

I think you want an API called GetClientRect.

Private Declare Function GetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As RECT) As Long

will give you the rectangle with the coordinates of the target
window.

If you add an offset to the child window, then you can then call

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

goto http://www.allapi.net/

They've got a downloadable API view that has examples, notes, parameters, etc.....

HTH