添加快捷鍵

    --------------------------------------------------------------------------------------------------------------------------------------------------------

    需要vbapi函數(shù)：

    getasynckeystate←判斷函數(shù)調(diào)用時指定虛擬鍵的狀態(tài)

    --------------------------------------------------------------------------------------------------------------------------------------------------------

    相關(guān)api聲明：

    getasynckeystate

    privatedeclarefunctiongetasynckeystatelib"user32"(byvalvkeylong)integer

    privatefunctionmyhotkey(vkeycode)boolean

    --------------------------------------------------------------------------------------------------------------------------------------------------------

    需要的控件：timer（interval不為空）

    --------------------------------------------------------------------------------------------------------------------------------------------------------

    代碼：

    privatedeclarefunctiongetasynckeystatelib"user32"(byvalvkeylong)integer

    privatefunctionmyhotkey(vkeycode)boolean

    myhotkey=(getasynckeystate(vkeycode)