Kako dobiti hwnd aktivnog prozora

[ dava @ 08.05.2008. 10:05 ] @

Evo jedno pitanje za Ruzicica posto je on ljubitelj subclass-iranja. :)

Probao sam sa API funkcijom GetActiveWindow, ali mi vraca hwnd samo aktivnih prozora u trenutnom prijektu.

Probao sam ovako:

Code:

Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Sub Form_Load()
t.Interval = 1000
End Sub

Private Sub t_Timer()
Debug.Print GetActiveWindow
End Sub

Kada prebacim fokus na neki drugi aktivni prozor/program GetActiveWindow mi vrati 0.

[ Aleksandar Ružičić @ 08.05.2008. 15:37 ] @

e konacno jedno pitanje i za mene :)

elem, GetActiveWindow ti vraca hwnd aktivnog prozora koji je vezan za message queue thread-a koji poziva fju. a tebi treba GetForegroundWindow:

Code:

Declare Function GetForegroundWindow Lib "user32.dll" () As Long

[ Eurora3D Team @ 08.05.2008. 17:38 ] @

Evo ti i kod da mozes da proveris da je to to

Code:

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Timer1_Timer()
Dim Str As String
Str = Space(256)
GetWindowText GetForegroundWindow, Str, 256
Debug.Print Str
End Sub

[ dava @ 08.05.2008. 19:17 ] @

E hvala vam na pomoci.

[ rgdrajko @ 08.05.2008. 23:51 ] @

Na sajtu http://allapi.mentalis.org/apilist/apilist.php, koji sam vec jednom dao pise:

GetForegroundWindow

The GetForegroundWindow function returns the handle of the foreground window (the window with which the user is currently working). The system assigns a slightly higher priority to the thread that creates the foreground window than it does to other threads.VB4-32,5,6
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long

VB.NET
System.Windows.Forms.Form.ActiveForm

Operating Systems Supported
Requires Windows NT 3.1 or later; Requires Windows 95 or later

Library
User32

Return Values
The return value is the handle of the foreground window.

Examples
- Window Draw

Related Functions
- GetActiveWindow

Code:
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Activate()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim Ret As Long
    Do
        'Get the handle of the foreground window
        Ret = GetForegroundWindow()
        'Get the foreground window's device context
        Ret = GetDC(Ret)
        'draw an ellipse
        Ellipse Ret, 0, 0, 200, 200
        DoEvents
    Loop
End Sub

[ Aleksandar Ružičić @ 09.05.2008. 01:36 ] @

rajko opet pocinjes...

ne vidim razlog zasto se javljas kada je problem vec resen... da dajes drugacije resenje pa uredu ali ponavljas ono sto je vec receno i prihvaceno...
ovo sto ti radis na neki nacin krsi 4. clan Pravilnika (procitaj prvu recenicu tog clana)

a i link do API-Guide-a se nalazi u TOP temi, tako da je neko (zeljko) pre tebe vec dao pomenuti link... (ja sam siguran da dava ima instaliran API-Guide samo sto nije znao koju fju da koristi, sada je dobio odgovor i gotova prica)