Wah kag bisa jalan tuh Mas Irwan.
Apa ada yang tertinggal perintahnya ?
-------Original Message-------
From: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
Date: Thursday, September 18, 2003 11:18:51 AM
To: irawan murjayanto <mailto:[EMAIL PROTECTED]>
Subject: Re: [Delphindo] Control keyboard
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] <mailto:[EMAIL PROTECTED]>
Yahoo! Groups Sponsor
ADVERTISEMENT
<
http://rd.yahoo.com/M=194081.3897168.5135684.1261774/D=egroupweb/S=1705
<http://rd.yahoo.com/M=194081.3897168.5135684.1261774/D=egroupweb/S=1705
>
115362:HM/A=1754016/R=0/SIG=11pv1u2ju/*
http://www.ediets.com/start.cfm?c <http://www.ediets.com/start.cfm?c>
ode=30529&media=atkins> click here
<
http://us.adserver.yahoo.com/l?M=194081.3897168.5135684.1261774/D=egrou
<http://us.adserver.yahoo.com/l?M=194081.3897168.5135684.1261774/D=egrou
>
pmail/S=:HM/A=1754016/rand=671397325>
Berlangganan: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
Stop Berlangganan: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service
< http://docs.yahoo.com/info/terms/ <http://docs.yahoo.com/info/terms/>
> .
.
[Non-text portions of this message have been removed]
------------------------ 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/
