输入法编程

开发平台：

Delphi

Regword.pas：源码内容

							
 {******************************************************}
 {                                                      }
 {    Copyright (c) 1990-1999 Microsoft Corporation     }
 {                                                      }
 {    Module Name:  Regword.c ->>  Regword.pas          }
 {                                                      }
 {    Translator:  Liu_mazi@126.com, 2005-11-15         }
 {                                                      }
 {******************************************************}
unit Regword;
{$I Define.Inc}
interface
uses Windows, ImmDev;
  // Ime回调 ..
function ImeRegisterWord(lpszReading: PChar; dwStyle: DWord; lpszString: PChar): Bool; stdcall;
function ImeUnregisterWord(lpszReading: PChar; dwStyle: DWord; lpszString: PChar): Bool; stdcall;
function ImeGetRegisterWordStyle(nItem: uInt; lpStyleBuf: PStyleBuf): uInt; stdcall;
function ImeEnumRegisterWord(lpfnRegisterWordEnumProc: RegisterWordEnumProc;
  lpszReading: PChar; dwStyle: DWord; lpszString: PChar; lpData: Pointer): uInt; stdcall;
implementation
uses ImeDefs, LogText;
function ImeRegisterWord(lpszReading: PChar; dwStyle: DWord; lpszString: PChar): Bool; stdcall;
begin
  Result := False;
end;
function ImeUnregisterWord(lpszReading: PChar; dwStyle: DWord; lpszString: PChar): Bool; stdcall;
begin
  Result := False;
end;
function ImeGetRegisterWordStyle(nItem: uInt; lpStyleBuf: PStyleBuf): uInt; stdcall;
begin
  Result := 0;
end;
function ImeEnumRegisterWord(lpfnRegisterWordEnumProc: RegisterWordEnumProc;
  lpszReading: PChar; dwStyle: DWord; lpszString: PChar; lpData: Pointer): uInt; stdcall;
begin
  Result := 0;
end;
end.

						