Как изменять статус
лампочек на; numlock, capslock, etc...?
procedure
SetNumLock(bState:Boolean);
var
KeyState
: TKeyboardState;
begin
GetKeyboardState(KeyState);
if ( (bState) and (not ((KeyState[VK_NUMLOCK] and 1)=1) ) or
( (not (bState)) and ((KeyState[VK_NUMLOCK] and 1)=1))) then
// Simulate a key press
keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
// Simulate a key release
keybd_event( VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or
KEYEVENTF_KEYUP), 0);
end;
У рассылки кончается материал и его источник уже не блещет, нам
нужна ваша помощь.
Любой полезный ,или просто часто используемый вами код, или секрет
, подкрепленный хорошими комментариями будет кстати...
Пока такового нет, рассылка может значительно сократить частоту
своего выхода, ибо мне нужно будет больше лазать по сети, в поисках
чего-нибудь полезного...