title image


Smiley Re: Welches Fenster hat den 'Topmost-Status' ?


Const ABS_AUTOHIDE = &H1

Const ABS_ONTOP = &H2

Const ABM_GETSTATE = &H4

Const ABM_GETTASKBARPOS = &H5

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Type APPBARDATA

cbSize As Long

hwnd As Long

uCallbackMessage As Long

uEdge As Long

rc As RECT

lParam As Long ' message specific

End Type

Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

Private Sub Form_Paint()

'KPD-Team 1999

'URL: http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net

Dim ABD As APPBARDATA, Ret As Long

'Get the taskbar's position

SHAppBarMessage ABM_GETTASKBARPOS, ABD

'Get the taskbar's state

Ret = SHAppBarMessage(ABM_GETSTATE, ABD)

If (Ret And ABS_AUTOHIDE) Then Me.Print "Autohide option is on"

If (Ret And ABS_ONTOP) Then Me.Print "Always on top option is on"

Me.Print "Taskbar coordinates: (" + Trim(Str(ABD.rc.Left)) + "," + Trim(Str(ABD.rc.Top)) + ")-(" + Trim(Str(ABD.rc.Right)) + "," + Trim(Str(ABD.rc.Bottom)) + ")"

End Sub


Gruss Uwe
Wenn weise Maenner nicht irrten, müssten die Narren verzweifeln. (Goethe)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: