---

Jeg skal til at lave et lille program i Delphi5 der skal
udføre nogle ting, alt afhængig af om Caps- og Num-
lock er slået til eller fra når programmet starter.

Hvordan læser man "lock"-ernes status og kan de
slås til og fra af programmet selv?

---

"Richard Thordsen" <REMOVETHISrith@get2net.dk> skrev i en meddelelse
news:4Bx7a.150$9x4.119@news.get2net.dk...
> Jeg skal til at lave et lille program i Delphi5 der skal
> udføre nogle ting, alt afhængig af om Caps- og Num-
> lock er slået til eller fra når programmet starter.
>
> Hvordan læser man "lock"-ernes status og kan de
> slås til og fra af programmet selv?

Jeg fandt denne procedure i Win32 PR, (i C har ændret den til delphi), søg
evt. efter keybd_event. Den virker med Delphi 7 og windowsXP.

procedure SetNumLock(bState : boolean);
var
KeyState : TKeyboardState;
begin
GetKeyboardState(keyState);
if (bState and (keyState[VK_NUMLOCK]=0)) or
(not bState and (keyState[VK_NUMLOCK]=1)) then
begin
// 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
end;

Mvh
HK

---

"Richard Thordsen" <REMOVETHISrith@get2net.dk> wrote in
news:4Bx7a.150$9x4.119@news.get2net.dk:

> Jeg skal til at lave et lille program i Delphi5 der skal
> udføre nogle ting, alt afhængig af om Caps- og Num-
> lock er slået til eller fra når programmet starter.
>
> Hvordan læser man "lock"-ernes status og kan de
> slås til og fra af programmet selv?
>

se www.pythia.dk under tips.

/Claus

--
Claus Christiansen, <mailto:NOSPAM@unipeople.dk>, leave the adr. as it is
personal: <http://unipeople.dk/~cch>; pythia: <http://www.pythia.dk>
===========================================================--------------
"Computers are useless. They can only give you answers" - Pablo Picasso