?? getword.~pas
字號:
unit GetWord;
interface
uses
SysUtils,
windows,
messages;
const NHD_GETWORD_TIMER = 2;
const NHD_MAX_TEXTLEN = 1024;
const NHD_WIN_INITPOSX = -1;
const NHD_WIN_INITPOSY = -1;
const NHD_FLYWIN_WIDTH = 1;
const NHD_FLYWIN_HEIGHT = 1;
const NHD_CLASSNAME_LEN = 256;
const NHD_GW_WAITING_TIME = 200; //get word waiting time;
(*設(shè)置屏幕抓取函數(shù)*)
type TBL_SetFlag32 = function (nFlag : word; //設(shè)置是否取詞
hNotifyWnd : HWND; //當(dāng)取詞后得窗口句柄
MouseX : integer; //X坐標(biāo)
MouseY : integer): DWORD;stdcall; //Y坐標(biāo)
(* 功能:
啟動或停止取詞。
參數(shù):
nFlag
[輸入] 指定下列值之一：
GETWORD_ENABLE: 開始取詞。在重畫被取單詞區(qū)域前設(shè)置此標(biāo)志。nhw32.dll是通過
重畫單詞區(qū)域，截取TextOutA, TextOutW, ExtTextOutA,
ExtTextOutW等Windows API函數(shù)的參數(shù)來取詞的。
GETWORD_DISABLE: 停止取詞。
hNotifyWnd
[輸入] 通知窗口句柄。當(dāng)取到此時，向該通知窗口發(fā)送一登記消息：GWMSG_GETWORDOK。
MouseX
[輸入] 指定取詞點的X坐標(biāo)。
MouseY
[輸入] 指定取詞點的Y坐標(biāo)。
返回值：
可忽略。
*)
type TLPRECT = ^TRECT; (*定義指針先*)
type TBL_GetText32 = function(lpszCurWord : pchar;
nBufferSize : integer;
lpWordRect : TLPRECT ): DWORD;stdcall;
(*功能:
從內(nèi)部緩沖區(qū)取出單詞文本串。對英語文本，該函數(shù)最長取出一行內(nèi)以空格為界的三個英文單詞串，遇空格，非英文字母及除'-'外的標(biāo)點符號，則終止取詞。對漢字文本，該函數(shù)最長取出一行漢字串，遇英語字母，標(biāo)點符號等非漢語字符，則終止取詞。該函數(shù)不能同時取出英語和漢語字符。
參數(shù):
lpszCurWord
[輸入] 目的緩沖區(qū)指針。
nBufferSize
[輸入] 目的緩沖區(qū)大小。
lpWordRect
[輸出] 指向 RECT 結(jié)構(gòu)的指針。該結(jié)構(gòu)定義了被取單詞所在矩形區(qū)域。
返回值：
當(dāng)前光標(biāo)在全部詞中的位置。*)
type TSetNHW32 = function(): boolean; stdcall;
(*
功能:
Win NT/2000 環(huán)境下的初始化函數(shù)。一般在程序開始時，調(diào)用一次。
參數(shù):
無。
返回值：
如果成功 TRUE ，失敗 FALSE 。
*)
type TResetNHW32= function():boolean; stdcall;
(* 功能:
Win NT/2000 環(huán)境下的去初始化函數(shù)。一般在程序結(jié)束時調(diào)用。
參數(shù):
無。
返回值：
如果成功 TRUE ，失敗 FALSE 。*)
function NHD_FlyWndProc(hWnd, Msg,wParam,lParam: Integer): Integer; stdcall;
function NHD_CreateWindow(hInst: Integer): HWND;
procedure NHD_BeginGetWord(ptMousePos: TPOINT);
function NHD_ExitGetWords(): boolean;
function NHD_DestroyWindow(): boolean;
procedure NHD_FreeLoadedLib();
function NHD_InitGetWords(hInst: THANDLE; hwnd: HWND): HWND;
function NHD_LoadGetWordLib(): boolean;
var
WinClass: TWndClassA;
Inst: Integer;
Msg: TMsg;
g_TextBuffer : array[0..1024] of char;
g_hFlyWin : HWND;
g_nGWTimerID : word;
g_hGetWordInst : Integer;
BL_SetFlag32 : TBL_SetFlag32;
BL_GetText32 : TBL_GetText32;
SetNHW32 : TSetNHW32;
ResetNHW32 : TResetNHW32;
g_hNHMainWin : HWND;
g_WM_GetWordOk:WORD;
g_bInGetWord : boolean;
currpoint:Tpoint;
G_Rect : TRECT;
implementation
uses unit1;
function NHD_CreateWindow(hInst: Integer): HWND;
var
hwnd : LongWord;
wc : TWndClassA;
begin
if hInst = 0 then begin
result :=0;
exit;
end;
with wc do
begin
style := WS_EX_TOPMOST;
lpfnWndProc := @NHD_FlyWndProc; (*消息處理函數(shù)*)
hInstance := hInst;
hbrBackground := color_btnface + 1;
lpszClassname := 'NHD_FLYWIN_DEMO';
hicon := 0;
hCursor := 0;
cbClsExtra := 0;
cbWndExtra := 0;
end;
RegisterClass(wc);
hwnd := CreateWindowEx (WS_EX_TOPMOST or WS_EX_TOOLWINDOW,
'NHD_FLYWIN_DEMO',
'NHD_FlyWindow_Demo',
WS_POPUP or WS_VISIBLE,
NHD_WIN_INITPOSX,
NHD_WIN_INITPOSY,
NHD_FLYWIN_WIDTH,
NHD_FLYWIN_HEIGHT,
0,
0,
hInst,
nil);
result := hwnd;
end;
function NHD_FlyWndProc(hWnd, Msg,wParam,lParam: Integer): Integer; stdcall;
begin
//Unhook textout when reveived msg from getword;
if msg = g_WM_GetWordOk then begin
if g_bInGetWord then begin
g_bInGetWord := FALSE;
KillTimer(g_hFlyWin, NHD_GETWORD_TIMER);
g_nGWTimerID := 0;
BL_SetFlag32(GETWORD_DISABLE, 0, 0, 0);
if wParam = 0 then begin
BL_GetText32(@g_TextBuffer, sizeof(g_TextBuffer), @G_Rect);
end;
PostMessage(g_hNHMainWin, NHD_WM_GETWORD_OK, 0, 0);
result := 0;
exit;
end;
end;
result := DefWindowProc(hWnd, msg, wParam, lParam);
end;
procedure NHD_GetWordTimerProc(hwnd: HWND; msg: word; idTimer: word; dwTime: DWORD);stdcall;
begin
//may be proior finished by Getword message;
if g_bInGetWord then begin
g_bInGetWord := FALSE;
//UnHook TextOut;
BL_SetFlag32(GETWORD_DISABLE, 0, 0, 0);
BL_GetText32(g_TextBuffer, NHD_MAX_TEXTLEN, @G_Rect);
end;
KillTimer(g_hFlyWin, NHD_GETWORD_TIMER);
g_nGWTimerID := 0;
PostMessage(g_hNHMainWin, NHD_WM_GETWORD_OK, 0, 0);
end;
procedure NHD_BeginGetWord(ptMousePos: TPOINT);
var
szAppClassName : array [0..NHD_CLASSNAME_LEN] of char;
hAppWin : LongWord;
nFlyWinLeft : integer;
nFlyWinWidth : integer;
rcAppWin : TRECT ;
cmpstr : string;
begin
//get window from mouse point;
hAppWin := WindowFromPoint(ptMousePos);
//check if the app window is EDIT, if it is, redraw whole line;
GetClassName(hAppWin, szAppClassName, NHD_CLASSNAME_LEN);
(*DbgPrintf("hAppWin: %x\n", hAppWin);
DbgPrintf("ClassName: %s\n", szAppClassName);*)
cmpstr := trim(strpas(szAppClassName));
Frm_main.Edit2.text := cmpstr;
if ((cmpstr = 'Edit') or //NotePad
(cmpstr = 'Internet Explorer_Server') or //IE4.0
(cmpstr = 'RichEdit') or //
(cmpstr = 'RichEdit20A') or //WordPad
(cmpstr = 'RichEdit20W') or //WordPad
(cmpstr = 'HTML_Internet Explorer') or //IE3.0
(cmpstr = 'ThunderTextBox') or //VB Edit
(cmpstr = 'ThunderRT5TextBox') or //VB Edit
(cmpstr = 'ThunderRT6TextBox') or //VB Edit
(cmpstr = 'EXCEL<') or //Excel 2000
(cmpstr = 'EXCEL7') or //Excel 2000
(cmpstr = 'EXCEL6') or //Excel 2000
(cmpstr = 'ConsoleWindowClass') or //NT V86
(cmpstr = 'Edit') or
(cmpstr = 'tty') or
(cmpstr = 'ttyGrab')) //Word97
then begin
GetWindowRect(hAppWin, rcAppWin);
nFlyWinLeft := rcAppWin.left - 4;
nFlyWinWidth := rcAppWin.right - rcAppWin.left - 8;
//don't not repaint whole line if too long;
if (ptMousePos.x - nFlyWinLeft) > 200 then begin
nFlyWinLeft := ptMousePos.x - 200;
end;
//DbgPrintf("!!!!tty window");
end else begin
nFlyWinLeft := ptMousePos.x;
nFlyWinWidth := NHD_FLYWIN_WIDTH;
end;
//note: move the flywin to cursor pos "x - 1" to aviod mouse shape changing between ARROW and EDIT in edit area;
//use SetWindowPos instead of MoveWindow, for MoveWindow can not make menu item redraw.
SetWindowPos(g_hFlyWin, HWND_TOPMOST,
nFlyWinLeft,
ptMousePos.y - 1 ,
nFlyWinWidth,
NHD_FLYWIN_HEIGHT,
SWP_NOACTIVATE or SWP_NOREDRAW);
//set flag to avoid re-entry;
g_bInGetWord := TRUE;
//hook TextOut;
BL_SetFlag32(GETWORD_ENABLE, g_hFlyWin, ptMousePos.x, ptMousePos.y);
MoveWindow(g_hFlyWin, -1, -1, NHD_FLYWIN_WIDTH, NHD_FLYWIN_HEIGHT, TRUE);
g_nGWTimerID := SetTimer(g_hFlyWin, NHD_GETWORD_TIMER, NHD_GW_WAITING_TIME, @NHD_GetWordTimerProc);
end;
function NHD_CopyWordsTo(szBuffer: pchar; nBufferSize: Integer):Boolean;
var
nLen : integer;
begin
nLen := sizeof(g_TextBuffer);
if(nLen + 1) > nBufferSize
then begin
result := false;
exit;
end;
ZeroMemory(szBuffer,nBufferSize);
CopyMemory(szBuffer, @g_TextBuffer, nLen);
result := true;
end;
function NHD_ExitGetWords(): boolean;
begin
//free libarys:
NHD_FreeLoadedLib();
NHD_DestroyWindow();
result := TRUE;
end;
function NHD_DestroyWindow(): boolean;
begin
if g_hFlyWin<>0 then begin
DestroyWindow(g_hFlyWin);
g_hFlyWin := 0;
end;
result := TRUE;
end;
procedure NHD_FreeLoadedLib();
begin
if g_hGetWordInst<>0 then begin
//only valid in windows NT enviroment
if @ResetNHW32<>nil then begin
ResetNHW32();
end;
FreeLibrary(g_hGetWordInst);
//g_hGetWordInst = 0;
end;
end;
function NHD_InitGetWords(hInst: THANDLE; hwnd: HWND): HWND;
begin
//save NH main window to send run time error messages:
g_hNHMainWin := hwnd;
if NHD_LoadGetWordLib=false then begin
NHD_FreeLoadedLib();
result := 0;
exit;
end;
//Create fly_window (cause paint) and show text window;
g_hFlyWin := NHD_CreateWindow(hInst);
if g_hFlyWin=0 then begin
NHD_FreeLoadedLib();
result := 0;
exit;
end;
g_WM_GetWordOk := RegisterWindowMessage('BL_HASSTRING');
if g_WM_GetWordOk=0 then begin
NHD_FreeLoadedLib();
result := 0;
exit;
end;
result := g_hFlyWin;
end;
function NHD_LoadGetWordLib(): boolean;
begin
g_hGetWordInst := LoadLibrary('nhw32.dll');
if g_hGetWordInst=0 then begin
messagebox(0,'裝載動態(tài)鏈接庫失敗','警告',mb_ok or mb_iconwarning or mb_applmodal);
result := FALSE;
exit;
end;
@BL_SetFlag32 := GetProcAddress(g_hGetWordInst,'BL_SetFlag32');
if @BL_SetFlag32=nil then begin
messagebox(0,'裝載屏幕取詞動態(tài)鏈接庫函數(shù): BL_SetFlag32失敗!','信息',MB_OK or MB_APPLMODAL or MB_ICONWARNING);
result := false;
exit;
end;
@BL_GetText32 := GetProcAddress(g_hGetWordInst,'BL_GetText32');
if @BL_GetText32=nil then begin
messagebox(0,'裝載屏幕取詞動態(tài)鏈接庫函數(shù): BL_GetText32失敗!','信息',MB_OK or MB_APPLMODAL or MB_ICONWARNING);
result := false;
exit;
end;
@SetNHW32 := GetProcAddress(g_hGetWordInst,'SetNHW32');
if @SetNHW32=nil then begin
messagebox(0,'裝載屏幕取詞動態(tài)鏈接庫函數(shù): SetNHW32失敗!','信息',MB_OK or MB_APPLMODAL or MB_ICONWARNING);
result := false;
exit;
end;
@ResetNHW32 := GetProcAddress(g_hGetWordInst,'ResetNHW32');
if @ResetNHW32=nil then begin
messagebox(0,'裝載屏幕取詞動態(tài)鏈接庫函數(shù): ResetNHW32失敗!','信息',MB_OK or MB_APPLMODAL or MB_ICONWARNING);
result := false;
exit;
end;
if SetNHW32()=false then begin
messagebox(0,'無法設(shè)置屏幕取詞!','信息',MB_OK or MB_APPLMODAL or MB_ICONWARNING);
result := false;
exit;
end;
result := true;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -