华南俳烁实业有限公司

考試首頁 | 考試用書 | 培訓課程 | 模擬考場 | 考試論壇  
  當前位置:編程開發(fā) > DotNET > Delphi.Net > 文章內(nèi)容
  

Delphi基礎教程:Ctrl+Space無法關(guān)閉/打開輸入法怎么辦

 [ 2017年9月4日 ] 【

  xp有一個bug,就是在語言設置更改輸入法的默認關(guān)閉/打開輸入法的熱鍵CTRL+SPACE后,無法設置恢復到原來的狀態(tài),就是說你必須在CTRL+SHIFT+SPACE和ALT+SHIFT+SPACE中選擇一個新的熱鍵來替換原來的CTRL+SPACE,這給人們帶來了很多不便。用delphi可以快速解決此問題,本人在XP SP2上試驗通過。。方法是先在語言設置里,去掉啟用按鍵順序。然后編譯運行下面的程序,點btn1那個按鈕就OK了。!

  

Ctrl+Space無法關(guān)閉/打開輸入法怎么辦

以下是代碼片段:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,registry;

type

TForm1 = class(TForm)

btn1: TButton;

    procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(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 PanelInput MethodHot Keys0000010',false)) then

  begin

    reg.WriteBinaryData('Key Modifiers',buffer,4);

    showmessage('ok');

  end;

  reg.Free;

end;

end.

本文糾錯】【告訴好友】【打印此文】【返回頂部
將考試網(wǎng)添加到收藏夾 | 每次上網(wǎng)自動訪問考試網(wǎng) | 復制本頁地址,傳給QQ/MSN上的好友 | 申請鏈接 | 意見留言 TOP
關(guān)于本站  網(wǎng)站聲明  廣告服務  聯(lián)系方式  站內(nèi)導航  考試論壇
Copyright © 2007-2013 中華考試網(wǎng)(Examw.com) All Rights Reserved
社会| 沙河市| 盐边县| 苗栗市| 吉林市| 廊坊市| 安西县| 合江县| 峡江县| 乐清市| 云林县| 新田县| 葵青区| 军事| 滕州市| 宜川县| 和林格尔县| 甘谷县| 敖汉旗| 邹平县| 湘潭县| 余庆县| 剑河县| 云南省| 濮阳市| 太和县| 大城县| 福海县| 安宁市| 兴宁市| 安远县| 辽阳县| 酒泉市| 澄迈县| 吉林市| 亚东县| 兴城市| 个旧市| 威宁| 海阳市| 伊川县|