06.01.2017, 23:25
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Цитата:
Сообщение от nixon232
Код:
var KeyState: Word;
begin
KeyState := GetKeyState(VK_CONTROL);
if KeyState and 1 = 1 then
Result:= False
else
Result:=True;
end;
|
А не проще одной строкой
Код:
Result:= Odd(GetKeyState(VK_CONTROL));
|