本帖最后由 pdp320921 于 2011-3-8 22:06 编辑 ...
...
Func install()
If FileExists (@DesktopDir & "\OTC(Latest)\CTest_v2_4_0201\Install CTest v2.4.0201 and TMS v1.0.19.exe")
Then
Run(@DesktopDir & "\OTC(Latest)\CTest_v2_4_0201\Install CTest v2.4.0201 and TMS v1.0.19.exe")
ElseIf FileExists (@DesktopDir & "\OCT\Install CTest v2.4.0201 and TMS v1.0.19.exe")
Run(@DesktopDir & "\OCT\Install CTest v2.4.0201 and TMS v1.0.19.exe")
EndIf
While 1
If WinActive("CTest - InstallShield Wizard","Setup Type")
Or WinActive("Confirm Uninstall","Do you want to completely")
Then ExitLoop
Sleep(10)
WEnd
...
....
|