FiveTech Support Forums

#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

#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"