function ShellExecute(integer: Hwnd, 

                      structure String_STR: LpOperation, 

                      structure String_STR: LpFile, 

                      structure String_STR: LpParameters, 

                      structure String_STR: LpDirectory, 

                      integer: NShowCmd)  

         returns integer 

         external name "ShellExecuteA"  

         library "shell32"