Sorry your browser is not supported!

program$="notepad.exe"

DO
  IF FILE EXIST(program$)=1
    EXECUTE FILE program$, "", "", 0
    SLEEP 2000
    END
  ELSE
    IF FILE EXIST(program$)=0
      TEXT 10,10, "Program was not found"
    ENDIF
  ENDIF
LOOP

Rem Project: Execute&Close
Rem Created: 1/11/2008 6:59:51 PM

Rem ***** Main Source File *****
LOAD DLL "user32.dll",1
EXECUTE FILE "notepad.exe", "",""

DO
   IF DLL EXIST (1)=0
      TEXT 10,10, "DLL NOT FOUND"
   ENDIF
   IF DLL CALL EXIST (1, "FindWindowA")=0
      TEXT 10,30, "FUNCTION CALL NOT FOUND"
   ENDIF

   program$="Notepad"
   result=CALL DLL (1, "FindWindowA", program$)

   IF result=1
      END
   ELSE
      TEXT 10,50, "hWnd: "+str$(result)
   ENDIF

LOOP

program$="C:\WINDOWS\system32\notepad.exe"

DO
  IF FILE EXIST(program$)=1
    EXECUTE FILE program$, "", "", 0
    hide window
    END
  ELSE
    IF FILE EXIST(program$)=0
      TEXT 10,10, "Program was not found"
    ENDIF
  ENDIF
LOOP