forum.boolean.name - Код кнопок

Цитата:

Сообщение от AngeLvKedaX (Сообщение 200469)

Методом драв стринг (кей) работают все кроме клавиш громкости.

и не только... софты вот тоже по умолчанию не существуют

А насчет кнопок - вот держи маленький мидлет, поймеш как он работает.

Только учти что не во всех телефонах коды одинаковые.

P.S.
Если интересно, вот исходник:

Код:

program KeyHelper;

var

i:integer;

key:integer;

exit:boolean;



begin





drawtext ('Нажми увиличение громкости',0,0);

repaint;



key:=0;

exit:=false;

repeat

for i:=-50 to 50 do

if (GetKeyPressed=i) and (i<>0) then begin exit:=true; key:=i; end;

until (exit=true);



setcolor (255,255,255);

fillrect (0,0,240,320);

setcolor (0,64,0);



drawtext ('Код: '+key,0,0);

repaint;

delay (2012);





setcolor (255,255,255);

fillrect (0,0,240,320);

setcolor (0,64,0);



drawtext ('Нажми уменьшение громкости',0,0);

repaint;



key:=0;

exit:=false;

repeat

for i:=-50 to 50 do

if (GetKeyPressed=i) and (i<>0) then begin exit:=true; key:=i; end;

until (exit=true);



setcolor (255,255,255);

fillrect (0,0,240,320);

setcolor (0,64,0);



drawtext ('Код: '+key,0,0);

repaint;

delay (2012);

end.