+01.办公软件

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 一键启动办公必备程序
; 需要人为指定第几秒启动哪个程序
; 
; gaochao.morgen@gmail.com
; 2013/7/2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#SingleInstance Force
#NoEnv

; 设置 ErrorLevel 为这个正在运行脚本的 PID
Process, Exist

ExeList := Object()

; 采用Object.Insert(Index, Value)的方式，Index表示第几秒启动，Value表示程序
ExeList.Insert(0, "E:DeskWidgetDeskWidget.exe")
ExeList.Insert(5, "C:Program FilesTencentQQQQProtectBinQQProtect.exe")
ExeList.Insert(15, "C:Program FilesMicrosoft Office Communicatorcommunicator.exe")
ExeList.Insert(20, "C:Program FilesMicrosoft OfficeOffice12OUTLOOK.EXE")
ExeList.Insert(25, "C:Program FilesDeskTaskDeskTask.exe")

; 采用Object.Insert(Key, Value)的方式，将会按照Key排序，不会按照我设定的顺序启动
/*
 ExeList.Insert("E:DeskWidgetDeskWidget.exe", 2)
 ExeList.Insert("C:Program FilesMicrosoft OfficeOffice12OUTLOOK.EXE", 4)
 ExeList.Insert("C:Program FilesDeskTaskDeskTask.exe", 5)
 ExeList.Insert("C:Program FilesMicrosoft Office Communicatorcommunicator.exe", 30)
 ExeList.Insert("C:Program FilesTencentQQQQProtectBinQQProtect.exe", 5)
 */

Delay := 0
Elapse := 0

for Seconds, Target in ExeList
{
	Delay := (Seconds - Elapse) * 1000
	SplitPath, Target, ProcName

	CoordMode, ToolTip, Screen  ; 把ToolTips放置在相对于屏幕坐标的位置
	ToolTip, Launching %ProcName%, (A_ScreenWidth/2-100), A_ScreenHeight/2
	Sleep, 1000

	; 若进程未启动则启动，若已启动则不作任何改动
	Process, Exist, %ProcName%
	if (ErrorLevel = 0)
	{
		Sleep, %Delay%
		Run, %Target%
	}

	Elapse := ((Seconds-1)>0)?Seconds:0
}

ExitApp