/*
   PROGRAM NAME: ShowDesktop.p
         AUTHOR: Speedy Mercer
   DATE WRITTEN: 03-24-2004
    DESCRIPTION: Minimizes all open desktop items.   
*/

DEF OUTPUT  PARAMETER piRetVal AS INTEGER NO-UNDO.

DEFINE VARIABLE retVal AS INTEGER    NO-UNDO.

RUN ShellExecuteA ( INPUT 0,
                    INPUT "open":U,
                    INPUT "Show Desktop.scf":U,
                    INPUT "":U,
                    INPUT "":U,
                    INPUT 1,
                    OUTPUT piRetVal).

PROCEDURE ShellExecuteA EXTERNAL "shell32.dll":U:
     DEFINE INPUT PARAMETER  hwnd         AS LONG.
     DEFINE INPUT PARAMETER  lpOperation  AS CHARACTER.
     DEFINE INPUT PARAMETER  lpFile       AS CHARACTER.
     DEFINE INPUT PARAMETER  lpParameters AS CHARACTER.
     DEFINE INPUT PARAMETER  lpDirectory  AS CHARACTER.
     DEFINE INPUT PARAMETER  nShowCmd     AS LONG.
     DEFINE RETURN PARAMETER hInstance    AS LONG.
END PROCEDURE.