Hello irawan,

Thursday, September 18, 2003, 9:11:51 AM, you wrote:

im> Halo Delphi Mania,
im> Mau tanya nih, gimana ya caranya utk mengontrol keyboard misalnya tombol
im> caplock utk ON dan off, dengan menggunakan fasilitas button(tombol) pada
im> delphi.
 
im> Thx Utk Jawabannya

procedure TForm1.Button1Click(Sender: TObject);
var
  KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState);
  if (KeyState[VK_CAPITAL]=0) then KeyState[VK_CAPITAL]:=1
  else KeyState[VK_CAPITAL]:=0;
  SetKeyboardState(KeyState);
end;

-- 
Best regards,
 Irwan
 [EMAIL PROTECTED]



------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->

Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/ 


Kirim email ke