2006/06/14(水)ホットキーコントロール

はてブ数 2006/06/14 19:56 プログラミング::HSP3つーさ

参照元:

ホットキーコントロール
http://smile.poosan.net/perl-bin/hsp/ver3/hsp3.cgi?print+200604/06060034.txt

このモジュールはスクリプトに組み込んで自由に使用できます。

#uselib "user32.dll"
#cfunc MapVirtualKey "MapVirtualKeyA" int,int
#func GetKeyNameText "GetKeyNameTextA" int,int,int
l = 33,34,35,36,37,38,39,40,41,42,43,44,45,46,91,92,93,108,111,144,163,165
sdim names,64,256

repeat 256 : c = cnt
	lp = MapVirtualKey(c,0) << 16
	repeat length(l) : if l.cnt = c { lP + $1000000 } :	loop
	n = "" : GetKeyNameText lp,varptr(n),64 : names(c) = n
loop

    sdim buf,65536
    objmode 1

    repeat 16 : i = cnt
        buf+"keyname($"+strf("%X",i)+"0) = \\""
        repeat 15 : j = cnt
            buf+names(i*16+j)
            buf+"\\",\\""
        loop
        buf+names(i*16+15)+ "\\"\\n"
    loop
    mesbox buf,640,480
    stop