[vb] Klik op 'Show Desktop' detecteren

[Verwijderd]

Voor een progje dat ik aan het maken ben is het nuttig om te weten wanneer er op 'Show Desktop' is geklikt (dat ding naast Start ). Ik heb een hoop gezocht, maar heb geen idee hoe ik dit zou kunnen doen

Iemand suggesties?

Bedankt!

[koffercomputer]

Show Desktop doet niets anders dan alle openstaande windows minimaliseren. Je zou dus op minimize kunnen controleren.

[Verwijderd]

Bij MS Developer Studio 4 zat een programma Spy++. Daarmee kon je zien wat er allemaal heen en weer werd gestuurd tussen vensters en het OS enz...
Zoek een zo'n programma en kijk wat er gebeurd als je op die knop drukt
Verder weet ik neits, overigens

[jelmervos]

Op woensdag 12 december 2001 20:13 schreef koffercomputer het volgende:
Show Desktop doet niets anders dan alle openstaande windows minimaliseren. Je zou dus op minimize kunnen controleren.

Da's niet helemaal waar hoor. Show desktop haalt je desktop on-top. Alle vensters worden verborgen. Dus ook vensters die normaal gesproken niet eens kunt minimaliseren (neem bijvoorbeeld LAN-Status van Windows 2000).

[jelmervos]

Op woensdag 12 december 2001 20:14 schreef sir5 het volgende:
Verder weet ik neits, overigens

Hehe, jij weet dan ook weinig.

[Verwijderd]

Op woensdag 12 december 2001 20:14 schreef sir5 het volgende:
Bij MS Developer Studio 4 zat een programma Spy++. Daarmee kon je zien wat er allemaal heen en weer werd gestuurd tussen vensters en het OS enz...
Zoek een zo'n programma en kijk wat er gebeurd als je op die knop drukt
Verder weet ik neits, overigens

Heb ik geprobeerd, komt geen boeiende info uit

[Verwijderd]

Op woensdag 12 december 2001 20:16 schreef jelmervos het volgende:

[..]

Da's niet helemaal waar hoor. Show desktop haalt je desktop on-top. Alle vensters worden verborgen. Dus ook vensters die normaal gesproken niet eens kunt minimaliseren (neem bijvoorbeeld LAN-Status van Windows 2000).

Idd, ik wil kunnen zien of de desktop 'on top' is.

[Korben]

Op woensdag 12 december 2001 20:24 schreef dev het volgende:

[..]

Idd, ik wil kunnen zien of de desktop 'on top' is.

Hoe moeilijk...

code:

If GetForegroundWindow = GetDesktop Then
   ' blaat
End If

Zou dan moeten werken...

[jelmervos]

Werkt die oplossing die hierboven wordt beschreven???

[Config]

Op donderdag 13 december 2001 10:53 schreef jelmervos het volgende:
Werkt die oplossing die hierboven wordt beschreven???

Install M$ VB es

[jelmervos]

Op donderdag 13 december 2001 11:00 schreef Config het volgende:

[..]

Install M$ VB es

Nee, Delphi is genoeg, geloof me.

Maar ik zou het ook kunnen uitproberen in Delphi hoor, is gewoon API wat hier wordt gebruikt.

[Verwijderd]

Sja, dat heb ik zelf ook geprobeerd uiteraard

Het probleem is dat als je op Show Desktop klinkt de desktop NIET het foregroundwindows is (vaag ja). Pas als je dan bijvoorbeeld op een item in de taskbar klinkt wordt ie ff het foregroundwindow.

[Skinny]

Dit vond ik op MSDN... misschien dat je daar iets kan vinden. (Ben zelf niet zo thuis in Shell API's )

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/Shell/objects/IShellDispatch4/IShellDispatch4.asp

[Verwijderd]

Requires Windows XP.

[mulder]

Kun je niet alle active apps langslopen en checken of deze Minimized zijn? Met active apps bedoel ik de draaiende applicaties, services onderscheiden, je moet dit wel goed definieeren in je code. Lijkt me wel waarschijnlijk dat apps een WindowState heben

[Verwijderd]

Dat gaat nie werken, als je bv je window markeert als topmost window zal ie 'm niet minimizen als je show-desktop doet..

Waarom wil je het eigenlijk detecten?

[mulder]

Weet je dat zeker, Show Desktop gooit echt alle windows plat als het goed is. Moet je niet kunnen checken op IsMinimized in plaats van CanMinimize?

[Verwijderd]

Op donderdag 13 december 2001 21:02 schreef El_Mundo het volgende:
Weet je dat zeker?

Jup

code:

Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

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
    
Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) As Long
    If Topmost = True Then 'Make the window topmost
      SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Else
      SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
      SetTopMostWindow = False
    End If
End Function
    
Private Sub Form_Load()
    Dim lR As Long
    lR = SetTopMostWindow(Me.hwnd, True)
End Sub

[Verwijderd]

Idd

Voor een progje moet ik detecteren of de muis op de desktop is.

Da's eenvoudig op zo'n soort manier:

Progman = FindWindow("Progman", vbNullString)
Desktop = GetWindow(Progman, GW_CHILD)

En dan checken met WindowFromPoint of ie op Desktop is.

Maar als er nu op Show Desktop geklinkt wordt, dan is het WindowFromPoint als de muis op de desktop is opeens niet meer de hWnd van de Desktop. Pas als je weer een venster activeerd gaat alles weer normaal.

Ik zou dus willen weten in welke "Mode" de desktop is.


Dit staat in het 'Show Desktop' file-tje:

[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop

Zo'n ToggleDesktop dus, er zou toch een manier moeten zijn om dat te detecteren.

[mulder]

Op donderdag 13 december 2001 21:07 schreef Yarvieh het volgende:

[..]

Jup

code:

Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

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
    
Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) As Long
    If Topmost = True Then 'Make the window topmost
      SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Else
      SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
      SetTopMostWindow = False
    End If
End Function
    
Private Sub Form_Load()
    Dim lR As Long
    lR = SetTopMostWindow(Me.hwnd, True)
End Sub

Word bij mij dus onder XP geminimized....

[Verwijderd]

Op donderdag 13 december 2001 21:35 schreef El_Mundo het volgende:
Word bij mij dus onder XP geminimized....

Hmmz minimize button killen helpt in dat geval