InstallARCEX() ShellExecute("D:\", "", "", "", @SW_MAXIMIZE) ShellExecute("D:\DOC\README.TXT") Run("C:\Program Files\ESRI\ArcExplorer\ArcExplorer.exe", "C:\Program Files\ESRI\ArcExplorer\") Func InstallARCEX() Run("D:\ARCEX\AESETUP.EXE", "", "D:\ARCEX\") WinWait("InstallShield Self-extracting EXE") ControlClick("[LAST]", "", "Button1") WinWait("Welcome") ControlClick("[LAST]", "", "Button1") WinWait("Software License Agreement") ControlClick("[LAST]", "", "Button2") WinWait("Choose Destination Location") ControlClick("[LAST]", "", "Button1") WinWait("Setup Type") ControlClick("[LAST]", "", "Button6") WinWait("Select Program Folder") ControlClick("[LAST]", "", "Button2") WinWait("Start Copying Files") ControlClick("[LAST]", "", "Button1") WinWait("Setup Complete") ControlClick("[LAST]", "", "Button4") EndFunc