发表于 2009-1-5 19:48
| 
Delphi涓嬬紪绋嬪疄鐜颁腑鏂囪緭鍏ユ硶
鍙戝竷: 2008-6-26 20:23 | 浣滆: admin | 鏌ョ湅: 43娆
width="84%">Delphi涓嬬紪绋嬪疄鐜颁腑鏂囪緭鍏ユ硶
姹 鑻 鐪 鐢 淇 浼 杈 灞
鍛
鏅
----
Borland Delphi 浠 鍏 寮 澶 鐨 鍔 鑳 鍙 鍜 楂 鏁 鐨 鍙 瑙 鍖 寮 鍙 鐜 澧
涓 骞 澶 绋 搴 璁 璁 鍛 鎵 闈 鐫 銆 灏 鍏 鏄 瀹 灏 瑁 浜哤INDOWS API 鍑
鏁帮紝 鑳 鏂 渚 鍦 鍒 鐢╓INDOWS 璧 婧, 澶 澶 鍔 蹇 浜 绋 搴 寮 鍙 閫
搴︺
----
鍦 骞 鏃 鐨 璁 绠 鏈 鎿 浣 涓, 涓 鏂 杈 鍏 鏄 涓 鍙 閬 鍏 鐨勩 浣
鐢 鑰 鍙 鑳 鍠 娆 涓 鍚 鐨 涓 鏂 杈 鍏 娉(inputmethod editor, 绠 绉癐ME),
杩 灏 涓 寰 涓 缁 甯 鐐 鍑 浠 鍔 鏍 涓 鐨 涓 鏂 鍥 鏍 鎴 鐢–TRL+Space,CTRL+Shift
鐑 閿 鍒 鎹, 鍒 瀛 鑰 鐢 璧 鏉 寰 涓 鏂 渚裤 閽 瀵 杩 涓 闂 棰橈紝 鍙
浠 鍦 寮 鍙 杞 浠 鏃, 鍦 绋 搴 涓 璁 缃 鐢 鎴 鍠 娆 鐨 涓 鏂 杈 鍏
娉, 鏂 渚 鐢 鎴 鐨 浣 鐢ㄣ侱elphi 涓 鍙 鏈 灏 鏁 鎺 浠 濡俆Edit 鏀 鎸両ME,
鑰 涓 璇 鍔 鑳 涓 寮, 涓 鑳 鍦 杩 琛 鏃 鏇 鏀 杈 鍏 娉曘
----
绗 鑰 閫 杩 瀹 璺 鍜 鎽 绱, 鏌 鎵 浜 鐩 鍏 鐨処ME 璧 鏂, 鍒 鐢 浜哤INDOWS
API 鍑 鏁, 瀹 鐜 浜咺ME 鐨 鍔 鑳姐
----
甯 鐢 鍑 鏁 鏈夛細
API鍑芥暟锛欱OOL
ImmSimulateHotKey
(HWND
hWnd,DWORD dwHotKeyID);//妯℃嫙鐑敭
鍏朵腑Hwnd涓虹▼搴忕獥鍙ｇ殑鍙ユ焺,dwHotHKeyID
涓烘ā鎷熺殑鐑敭,鑻ユ垚鍔熷垯杩斿洖True
HKL
GetKeyboardLayout(DWORD dwLayout);
//鑾峰緱褰撳墠閿洏鐘舵
BOOL
ImmIsIME(HKL hKL);
//鍒ゆ柇褰撳墠鏄惁澶勪簬涓枃杈撳叆鐘舵,鑻ユ槸鍒欒繑鍥濼rue
鑷畾涔夊嚱鏁帮細
鎵撳紑鐩稿簲杈撳叆娉曪細OpenIme(imename:string),
渚婳penIme('鍏ㄦ嫾杈撳叆娉');
鍏抽棴涓枃杈撳叆娉曪細CloseIme;
浠ヤ笅鏄竴涓畝鍗曠殑渚嬪瓙锛屼粎璧峰弬鑰冧綔鐢ㄣ
浣跨敤鏃秛ses涓姞涓奿mm
鍏蜂綋鐨勫疄鐜版柟娉曞強婧愪唬鐮佸涓嬶細
unit
Unit1;
interface
uses
Windows,
Messages, SysUtils, Classes,
Graphics,
Controls, Forms, Dialogs,
StdCtrls,
Buttons,imm;
type
TForm1
= class(TForm)
ComboBox1:
TComboBox;
BitBtn1:
TBitBtn;
BitBtn2:
TBitBtn;
BitBtn3:
TBitBtn;
procedure
FormShow(Sender: TObject);
procedure
OpenIme(imename:string);
procedure
closeIme;
procedure
ComboBox1Change(Sender: TObject);
procedure
BitBtn1Click(Sender: TObject);
procedure
BitBtn2Click(Sender: TObject);
