Показать сообщение отдельно
Старый 31.08.2011, 19:48   #3
PassCall
Разработчик
 
Аватар для PassCall
 
Регистрация: 07.04.2011
Адрес: Млечный путь, Земля, Европа, Беларусь, Могилев
Сообщений: 391
Написано 94 полезных сообщений
(для 319 пользователей)
Ответ: Код кнопок

Сообщение от AngeLvKedaX Посмотреть сообщение
Методом драв стринг (кей) работают все кроме клавиш громкости.
и не только... софты вот тоже по умолчанию не существуют

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

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



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.
Вложения
Тип файла: rar bin.rar (3.3 Кб, 988 просмотров)
__________________
Мечта программиста: запрограммировать процесс программирования.

Всё гениальное - просто.

http://passcall.ucoz.com
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Igor (01.09.2011)