#DEFINE SW_SHOWNORMAL 1
#DEFINE SW_SHOWMINIMIZED 2
#DEFINE SW_SHOWMAXIMIZED 3 
 
    DECLARE INTEGER GetSystemDirectory IN kernel32;
        STRING @lpBuffer, INTEGER nSize
 
    DECLARE INTEGER ShellExecute IN shell32;
        INTEGER hWindow, STRING lpOperation,;
        STRING lpFile, STRING lpParameters,;
        STRING lpDirectory, INTEGER nShowCmd
 
    * opens data files with their associated applications
*    = ShellExecute(0, "open", "c:\aa\index.mdb", "", "", SW_SHOWMAXIMIZED)
*    = ShellExecute(0, "open", "c:\aa\aa.bmp", "", "", SW_SHOWMAXIMIZED)
*    = ShellExecute(0, "open", "c:\aa\lacrymosa.mp3", "", "", SW_SHOWMAXIMIZED)
*    = ShellExecute(0, "open", "c:\aa\mkart.doc", "", "", SW_SHOWMAXIMIZED)
*    = ShellExecute(0, "open", "c:\aa\aa.txt", "", "", SW_SHOWMAXIMIZED)
 
    * opens a folder
*    = ShellExecute(0, "explore", "c:\Temp", "", "", SW_SHOWMAXIMIZED)
 
    * open Search window starting from the specified directory
*    = ShellExecute(0, "find", "", "", getSysDir(), SW_SHOWMAXIMIZED)
 
    * prints the text file using the associated application
*    = ShellExecute(0, "print", "c:\aa\index.txt", "", "", SW_SHOWMAXIMIZED)
 
    * accessing a site on the Internet
*    = ShellExecute(0, "open", "http://www.microsoft.com/",;
*        "", "", SW_SHOWMAXIMIZED)
 
    * sending an email: 
    * Mike Lewis, http://www.ml-consult.demon.co.uk/foxst-22.htm
 
    LOCAL lcMail
    lcMail = "mailto:buddy1@somwhere.com" +;
        "?CC=buddy2@somwhere.com&Subject=Meet for lunch" +;
        "&Body=Please join me for a sandwich at noon."
 
    = ShellExecute(0, "open", lcMail, "", "", SW_SHOWNORMAL)
 
FUNCTION GetSysDir
    lpBuffer = SPACE(250) 
    nSizeRet = GetSystemDirectory(@lpBuffer, Len(lpBuffer)) 
RETURN SUBSTR(lpBuffer, 1, nSizeRet)