home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Windows Selection / Windows Selection 1.iso / Programmer's Utilities / GroundControl / Samples / Sample4.gc < prev    next >
Encoding:
Text File  |  1997-03-25  |  811 b   |  22 lines
  1. // This sample demonstrate various window commands
  2. RunProgram("Notepad")
  3. RunProgram("Calc")
  4. Delay(2000)
  5. ActivateWindow("Untitled - Notepad")
  6. Delay(2000)
  7. ActivateWindow("Calculator")
  8. Delay(2000)
  9. If(FindWindow("Untitled - Notepad"),MessageBox("Notepad was found"),MessageBox("Notepad was not found"))
  10. ActivateWindow("Untitled - Notepad")
  11. Delay(2000)
  12. If(WindowActive("Untitled - Notepad"),MessageBox("Notepad is the active window"),MessageBox("Notepad is not the active window"))
  13. MaximizeWindow("Untitled - Notepad")
  14. Delay(2000)
  15. MinimizeWindow("Untitled - Notepad")
  16. Delay(2000)
  17. NormalizeWindow("Untitled - Notepad")
  18. Delay(2000)
  19. CloseWindow("Untitled - Notepad")
  20. If(FindWindow("Untitled - Notepad"),MessageBox("Notepad was found"),MessageBox("Notepad was not found"))
  21. QuitProgram("Calculator")
  22.