Cheers, I will give it a go.
Jeremy Coulter
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Glen Boyd
Sent: Friday, 23 June 2000 08:11
To: Multiple recipients of list delphi
Subject: Re: [DUG]: Num Lock Flash
> Jeremy Coulter wrote:
>
> Hi all.
> I was wondering if anyone has seen any code that will make the num
> lock light flash on a keyboard ?
I use the following to flash all lights on the keyboard. Take what you
need from it ;-)
GetKeyboardState( ksOriginal );
repeat
begin
GetKeyboardState( ksFlashing );
if ksFlashing[ VK_CAPITAL ] = $80 then
begin
ksFlashing[ VK_CAPITAL ] := $81;
ksFlashing[ VK_NUMLOCK ] := $81;
ksFlashing[ VK_SCROLL ] := $81;
end
else
begin
ksFlashing[ VK_CAPITAL ] := $80;
ksFlashing[ VK_NUMLOCK ] := $80;
ksFlashing[ VK_SCROLL ] := $80;
end;
Application.ProcessMessages;
for iDelay := 1 to 40000 do
Application.ProcessMessages;
SetKeyboardState( ksFlashing );
end;
until bClicked = True;
SetKeyBoardState( ksOriginal );
Cheers
--
Glen Boyd <[EMAIL PROTECTED]>
Programmer Napier City Council
Private Bag 6010, Napier, NEW ZEALAND
Phone: +64-6-8357579 Fax: +64-6-8357574
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz