Here's a function you can use to find out if the CAPS LOCK is on:
function IsCapsLockOn : boolean;
begin
Result := 0 <>
(GetKeyState(VK_CAPITAL) and $01);
end;
Tuesday, March 1, 2011
Find out if the CAPS LOCK is on
6:46 PM
iwan RFID
6:46 PM
iwan RFID
Popular Posts
-
This article will show you how to use the remote shutdown command tool in Windows to remotely shut down, restart, or logoff a local or net...
-
This tutorial will guide you to hide or show any specific Control Panel applet in Windows. This tutorial will work for all Windows version...
-
Looking for a way to save the data in the clipboard to a file in a hurry? All you have to do is call the following SaveClipb...
-
Here's a function that will check if a given string exist in a string list. You can use it when you want to add only the...
-
Global hotkeys are very handy when your application should be accessible at all time. For instance, you are browsing the Web and suddenly w...
-
Umat Islam yang dikatakan hanya ber-KTP Islam, hanyalah mereka yang tidak menjalankan ajaran agama Islam dengan sebaik-baiknya. Namun ke... -
Just call this function to center the form on the screen (for example in the OnShow event). procedure centerizeform(f:TForm); begin f ....
-
In this article we'll examine two Delphi components: TServerSocket and TClientSocket, both designed to let you read and write informat...
-
mencoba dulu
-
Socket programming adalah bagaimana cara menggunakan socket API ( Application Socket Programming ), untuk menghubungkan komunikasi antara ...
1 comments:
I think the "0 <>" is redundant and you can just do:
Result := (GetKeyState(VK_CAPITAL) and $01);
Post a Comment