delphi程序恢复ctrl space切换输入法计算机二级考试

文章作者 100test 发表时间 2009:05:07 18:06:35
来源 100Test.Com百考试题网

　　源程序如下:有注释
　　unit Unit1.
　　interface
　　uses
　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　Dialogs, StdCtrls,registry.
　　type
　　TForm1 = class(TForm)
　　Button1: TButton.
　　procedure Button1Click(Sender: TObject).
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end.
　　var
　　Form1: TForm1.
　　implementation
　　{$R *.dfm}
　　//注册表 HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000010 KeyModifiers=02C00000 Ctrl Space. 06C00000 Ctrl Shift Space
　　procedure TForm1.Button1Click(Sender: TObject).
　　var
　　reg :TRegistry.
　　buffer :array[0..3] of Byte.
　　begin
　　//setLength(buffer,3).
　　buffer[0]:= $02.
　　buffer[1]:=$c0.
　　buffer[2]:=$00.
　　buffer[3]:=$00.
　　reg:=TRegistry.Create.
　　reg.RootKey:=HKEY_CURRENT_USER.
　　if(reg.OpenKey(\Control Panel\Input Method\Hot Keys\00000010,false)) then
　　begin
　　reg.WriteBinaryData(Key Modifiers,buffer,4).
　　showmessage(ok).
　　end.
　　reg.Free.
　　end.
　　end.

　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试-大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总