Код: Выделить всё
repeat
if getasynckeystate(i)<>0 then showmessage(IntToStr(i));
i:=i+1;
until i=300;
If i=300 then
repeat
if getasynckeystate(i)<>0 then showmessage(IntToStr(i));
i:=i-1;
until i=1;
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
Код: Выделить всё
repeat
if getasynckeystate(i)<>0 then showmessage(IntToStr(i));
i:=i+1;
until i=300;
If i=300 then
repeat
if getasynckeystate(i)<>0 then showmessage(IntToStr(i));
i:=i-1;
until i=1;