0 VALUE ActiveLibrary

: FUNCTION ActiveLibrary SWAP GETPROCADDRESS VALUE ;

" shell32.dll" LOADLIBRARY VALUE shell32
shell32 TO ActiveLibrary

" ShellExecuteA" FUNCTION ShellExecute@ : ShellExecute ShellExecute@ API6 DROP ;

0 CONSTANT SW_HIDE
1 CONSTANT SW_SHOWNORMAL
1 CONSTANT SW_NORMAL
2 CONSTANT SW_SHOWMINIMIZED
3 CONSTANT SW_SHOWMAXIMIZED
3 CONSTANT SW_MAXIMIZE
4 CONSTANT SW_SHOWNOACTIVATE
5 CONSTANT SW_SHOW
6 CONSTANT SW_MINIMIZE
7 CONSTANT SW_SHOWMINNOACTIVE
8 CONSTANT SW_SHOWNA
9 CONSTANT SW_RESTORE
10 CONSTANT SW_SHOWDEFAULT

CREATE EMPTY-STR 0 ,
CREATE $RUN-CMD 10 ALLOT " open" $RUN-CMD SMOVE
CREATE $RUN-FILE 20 ALLOT " winamp.exe" $RUN-FILE SMOVE
CREATE $PARAMETERS 50 ALLOT " my_music.mp3" $PARAMETERS SMOVE
CREATE $DEFAULT-DIR 100 ALLOT " C:\Music\" $DEFAULT-DIR SMOVE

: PLAY
//  HINSTANCE ShellExecute(
//  HWND hwnd,   // handle to parent window
//  LPCTSTR lpOperation,   // pointer to string that specifies operation to perform
//  LPCTSTR lpFile,   // pointer to filename or folder name string
//  LPCTSTR lpParameters,   // pointer to string that specifies executable-file parameters
//  LPCTSTR lpDirectory,   // pointer to string that specifies default directory
//  INT nShowCmd    // whether file is shown when opened

  0
  0  // == "open"
  $RUN-FILE
  $PARAMETERS
  $DEFAULT-DIR
  SW_SHOWNORMAL
  ShellExecute
;