How to implement Show Desktop functionality in FWH.

[RAMESHBABU]

Hi Friends,

Can anybody help to implement Show Desktop functionality in FWH please ?



Regards,

- Ramesh Babu P

[anserkk]

Dear Mr.Ramesh,

Try this

Code: Select all  Expand view

#Include "FiveWin.ch"

//----------------------------------------//
Function Main()
    Local oDlg,oBtn
   
    DEFINE DIALOG oDlg TITLE "Test Desktop"
   
        @1,10 BUTTON oBtn PROMPT "DeskTop" ACTION Test()
   
    ACTIVATE DIALOG oDlg CENTERED
   
Return

//----------------------------------------//
Function Test()    
   
    Local oShell
   
    oShell:=CreateObject("Shell.Application")
    oShell:ToggleDesktop()
    oShell:=NIL

Return NIL

Regards
Anser

[lailton.webmaster]

Other Option:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

  ShowDesktop()

return nil

Function ShowDesktop()

 keybd_event( 92, 0, 0, 0)
 keybd_event( 77, 0, 0, 0)
 keybd_event( 92, 0, 2, 0)
 keybd_event( 77, 0, 2, 0)

Return

DLL static FUNCTION keybd_event( bvk AS LONG, bScan AS LONG, nFlags AS LONG, dwExtraInfo AS PTR ) AS VOID PASCAL LIB "user32.dll"
 

[RAMESHBABU]

Dear Mr.Anser and Mr.Lailton

Thank you very much for your quick help.

Both the solutions are meeting my 100% requirement.

My best regards to you both,

- Ramesh Babu P