-- Flystone 整理
首先定义 API
- FUNCTIONIntegerGlobalAddAtom(refstringlpString)LIBRARY"kernel32.dll"ALIASFOR"GlobalAddAtomA"
- FUNCTIONulongRegisterHotKey(ulonghwnd,ulongid,ulongfsModifiers,ulongvk)LIBRARY"user32.dll"
定义变量:
- constantintegerMOD_ALT=1
- constantintegerMOD_CONTROL=2
- constantintegerMOD_SHIFT=4
- intatomid[11]//用于放热键ID
注册热键,比如说在OPEM事件中:
- longll_RC
- stringls_str[11]
- ls_str[1]="MyatomID0"
- atomid[1]=GlobalAddAtom(ls_str[1])//得到唯一的ID,保证不和其他应用程序发生冲突
- ll_RC=RegisterHotKey(Handle(this),atomid[1],0,48)//0
- ls_str[2]="MyatomID1"
- atomid[2]=GlobalAddAtom(ls_str[2])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[2],0,49)//1
- ls_str[3]="MyatomID2"
- atomid[3]=GlobalAddAtom(ls_str[3])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[3],0,50)//2
- ls_str[4]="MyatomID3"
- atomid[4]=GlobalAddAtom(ls_str[4])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[4],0,51)//3
- ls_str[5]="MyatomID4"
- atomid[5]=GlobalAddAtom(ls_str[5])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[5],0,52)//4
- ls_str[6]="MyatomID5"
- atomid[6]=GlobalAddAtom(ls_str[6])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[6],0,53)//5
- ls_str[7]="MyatomID6"
- atomid[7]=GlobalAddAtom(ls_str[7])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[7],0,54)//6
- ls_str[8]="MyatomID7"
- atomid[8]=GlobalAddAtom(ls_str[8])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[8],0,55)//7
- ls_str[9]="MyatomID8"
- atomid[9]=GlobalAddAtom(ls_str[9])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[9],0,56)//8
- ls_str[10]="MyatomID9"
- atomid[10]=GlobalAddAtom(ls_str[10])//得到唯一的ID
- ll_RC=ll_RC+RegisterHotKey(Handle(this),atomid[10],0,57)//9
- ls_str[11]="MyatomIDX"
- ifll_RC<10then//这儿自行修改
- messagebox("错误","错误信息")
- endif
响应OTHWE事件:
- IFwparam=atomid[1]....THEN
- //messagebox('','asdf')
- //你的脚本
- ENDIF