KeyBoard Function in Windows95
This is small unit for the keyboard in Windows95.
Using the unit
Set Language to Arabic:
SetLanguage (ARABIC);
Set Language to English:
SetLanguage (English);
Get Current Language:
Current:= GetLanguage;
Change the actvie Language:
ChangeLanguage;
unit KeyBoard;
interface
uses
Windows,SysUtils;
type
TLanguage=(Arabic, English);
procedure SetLanguage (Lan:TLanguage) ;
function GetLanguage:TLanguage ;
procedure ChangeLanguage;
implementation
procedure SetLanguage (Lan:TLanguage) ;
begin
if Lan= Arabic
then LoadKeyBoardLayout ( '00000401', KLF_ACTIVATE)
else LoadKeyBoardLayout ( '00000409', KLF_ACTIVATE);
end;
function GetLanguage:TLanguage ;
var
p:array[0..100] of char;
begin
GetKeyboardlayoutname(p);
if StrPas(p) = '00000401'
then GetLanguage:= Arabic
else GetLanguage:= English;
end;
procedure ChangeLanguage;
begin
ActivateKeyBoardLayout ( HKL_NEXT, 0);
end;
end.
BACK