how to provide an hWnd handle of my application when I have no window?

Karl Blessing · Jun 16, 2000

I am trying to use the GetWindow API , which takes 2 parameters, a window handel, and a option, I got the code for seeing all the Tasks that are runing from vb-world.net, modified it so I could use it in my ActiveX dll, but the problem is I dont have a form1.hwnd, therefore I cant figure out how to provide a Hwnd, and it wont take a NULL, 0 or anything else. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Karl Blessing · Jun 16, 2000

I tried App.hInstance, but I still get back zero as a result here is the function as it have it set to return a string seperated by VBNullchar Public Function TaskRunning(ByRef Result As Variant) As Boolean Dim CurrWnd As Long Dim Length As Long Dim TaskName As String Dim Parent As Long Dim first As Boolean first = True CurrWnd = GetWindow(App.hInstance, GW_HWNDFIRST) While CurrWnd <> 0 Parent = GetParent(CurrWnd) Length = GetWindowTextLength(CurrWnd) TaskName = Space$(Length + 1) Length = GetWindowText(CurrWnd, TaskName, Length + 1) TaskName = Left$(TaskName, Len(TaskName) - 1) If Length > 0 Then    If first = True Then       Result = TaskName       first = False    Else       Result = vbNullChar & TaskName    End If End If CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT) DoEvents Wend TaskRunning = True End Function Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Karl Blessing · Jun 16, 2000

when I said gets back zero as a result, I mean GetWindow returns zero, app.hInstance, is a non-zero Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Karl Blessing · Jun 16, 2000

I am using an invisible form in the ActiveX dll in the meantime, hopefully it'll work ok on a NT until I find a different method. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

NickBulka · Jun 16, 2000

Karl,    I'm confused.  If you don't have a window, why would you expect to be able to get a window handle??? nick bulka <a href=mailto: > </a> <a href= > </a>

Karl Blessing · Jun 16, 2000

the example uses Getwindow to show all the tasks, and GetWindow requires a Window Hwnd, I dont know how else to get all the tasks running. Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

MikeLacey · Jun 16, 2000

Karl, Interesting problem - as far as I know even processes without a UI have an hWnd - but I've never had to know it myself. I found this, rather old, code that might be of use to you. It finds an hWnd based on a hInstance -- but for old versions of windows which is a bit annoying.    ' Constants used    Global Const GW_HWNDNEXT = 2    Global Const GWW_HINSTANCE = (-6)    ' Enter each of the following declarations as one, single line:    Declare Function GetParent Lib "User" (ByVal hWnd As Integer) As Integer    Declare Function GetWindow Lib "User" (ByVal hWnd As Integer,       ByVal wCmd As Integer) As Integer    Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer,       ByVal nIndex As Integer) As Integer    Declare Function FindWindow Lib "User" (ByVal lpClassName As Any,       ByVal lpWindowName As Any) As Integer    Declare Function GetWindowText Lib "User" (ByVal hWnd As Integer,       ByVal lpString As String, ByVal aint As Integer) As Integer    Function GetWinHandle (hInstance%) As Integer       ' Function receives an instance handle as a parameter and returns       ' the windows handle of the window with a matching instance handle.       Dim tempHwnd%       ' Grab the first window handle that Window's finds:       tempHwnd% = FindWindow(0&, 0&)       ' Loop until there are no more window handles:       Do Until tempHwnd% = 0         ' Check if you have the applications Parent window:         If GetParent(tempHwnd%) = 0 Then              ' Check the instance handle for the app:              If hInstance% = GetWindowWord(tempHwnd%, GWW_HINSTANCE) Then                ' Found a match:                GetWinHandle = tempHwnd%                Exit Do              End If          End If          tempHwnd% = GetWindow(tempHwnd%, GW_HWNDNEXT)       Loop    End Function    Sub Command1_Click ()       Dim hInst As Integer         ' Instance handle from Shell function.       Dim hWndApp As Integer       ' Window handle from GetWinHandle.       Dim buffer As String         ' Holds caption of Window.       Dim numChars As Integer      ' Count of bytes returned.       ' Shell to an application and get its window handle:       hInst = Shell("calc.exe&quot

hWndApp = GetWinHandle(hInst)       ' Verify that you have the correct handle by displaying       ' its window caption in a message box:       buffer = Space$(128)       numChars = GetWindowText(hWndApp, buffer, Len(buffer))       MsgBox "You shelled to the Application: " & Left$(buffer, numChars)    End Sub Mike <a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a> <a href=

http://www.cargill.com/>

Cargill's Corporate Web Site</a>

Alt255 · Jun 16, 2000

Karl, did you check the VB FAQ "List all applications / processes currently running"? There is some code there that doesn't use GetWindow or expect an hWnd. Maybe you can use it. <a href=mailto: > </a> <a href=

http://www.vorpalcom.com>A

plain black box</a>

Karl Blessing · Jun 16, 2000

actually, the one in the FAQ is the exact example I seen (from VB-World.net) the second solution just shows the exe and path of any running process Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Alt255 · Jun 17, 2000

An ActiveX .EXE may return a window handle but an ActiveX component probably won't. Assuming, from your previous posts, that you you are trying to prevent a "multiple instance" scenario, you might try a different approach: Leave a marker in the registry, the environment or the file system. Something that says "Kilroy is already here, End Program." <a href=mailto: > </a> <a href=

http://www.vorpalcom.com>A

plain black box</a>

Karl Blessing · Jun 17, 2000

no I just want something where I Can report alot of information about the system, NT, IIS version, ODBC listings, all their DSN they've registered, so on. this is just part of the thing I'm  trying to get, trying to write a Dianostic ASP page(with some help from ActiveX dll on serverside) this will make life much easier on the customer when they have a prob we can check their dianostic page, I've already made an ASP that allows viewing of all their exe/ocx/dll versions, if any of our componets happened to be out of date, or wrong. (already wrote the instalation software as well, Didnt write the web application, just the stuff to help it manage) think that was too much info? naw Karl <a href=mailto:kb244@kb244.8m.com>kb244@kb244.8m.com</a> <a href=

http://kb244.8m.com>

</a> Experienced in , or have messed with : VC++, Borland C++ Builder, VJ++6(starting),VB-Dos, VB1 thru VB6, Delphi 3 pro, Borland C++ 3(DOS), Borland C++ 4.5, HTML,Visual InterDev 6, ASP(WebProgramming), QBasic(least i didnt start with COBOL)

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

how to provide an hWnd handle of my application when I have no window?

Karl Blessing

Programmer

Karl Blessing

Programmer

Karl Blessing

Programmer

Karl Blessing

Programmer

NickBulka

Programmer

Karl Blessing

Programmer

MikeLacey

MIS

Alt255

Programmer

Karl Blessing

Programmer

Alt255

Programmer

Karl Blessing

Programmer

Similar threads

Part and Inventory Search

Sponsor