Delphi例程、源码：利用Delphi与金山词霸制作批量单词翻译.docVIP

利用Delphi和金山词霸制作批量单词翻译 有些文档只有单词并没有音标和解释，如果进行人工个个翻译很是费事，因此有人利用Delphi和金山词霸2002特别制作了个单词批量翻译，并且可以将翻译结果直接保存为RTF文件。 原理分析 　　利用“金山词霸2002”翻译功能，进行单词翻译利用Delphi获取“金山词霸2002”中翻译结果Control控件句柄，利用粘贴复制功能即可以获得翻译结果了 。 API介绍说明 HWND FindWindow( LPCTSTR lpClassName,//欲有哪些信誉好的足球投注网站窗体类名 LPCTSTR lpWindowName //欲有哪些信誉好的足球投注网站窗体标题名称 );//查找和指定条件相符第个子窗口 　　HWND FindWindowEx( 　　HWND hwndParent,//在其中查找子父窗口句柄 　　HWND hwndChildAfter,//从这个窗体后开始查找 　　LPCTSTR lpszClass,// 欲有哪些信誉好的足球投注网站窗体类名 　　LPCTSTR lpszWindow// 欲有哪些信誉好的足球投注网站窗体标题名称 　 );//在指定窗体列表中查找和指定条件相符第个子窗口 　　BOOL ShowWindow( 　　HWND hWnd,//窗体句柄 　　 nCmdShow //窗体显示方式 　 );//指定窗口可见性 　　BOOL BringWindowToTop( 　　HWND hWnd // 窗体句柄 　 );//将指定窗口带至窗口列表顶部 　　BOOL SetForegroundWindow( 　　HWND hWnd//窗体句柄 　);//将窗口设为系统前台 　　HWND SetFocus( 　　HWND hWnd //聚焦窗体句柄 　);//将窗口聚焦 　　VOID keybd_event( 　　BYTE bVk,// virtual-key code 　　BYTE bScan,// hardware scan code 　　DWORD dwFlags,// flags specying various function options 　　DWORD dwExtraInfo // additional data associated with keystroke 　);//模拟按键产生 这里提供了基本Api声明具体使用思路方法你可以其它相关资料 具体分析 　　首先利用Spy工具对“金山词霸2002”进行分析分析结果如下 　　金山词霸2002窗体名称是 金山词霸 2002　 　　金山词霸2002单词输入Control控件类名 Edit　(属于Combobox子窗体) 　　金山词霸2002翻译结果Control控件类名 XDICT_ExplainView 界面 　　个TimerControl控件(Timer1其间隔时间为3秒)个MemoControl控件(MList)两个RichEditControl控件 (RTransRConv)具体代码如下 unit Unit1; erface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms, Dialogs, StdCtrls, ComCtrls, Clipbrd,Buttons, ExtCtrls, Menus; type TForm1 = (TForm) MList: TMemo; RTrans: TRichEdit; Button1: TButton; Timer1: TTimer; Button2: TButton; RConv: TRichEdit; Button3: TButton; od: TOpenDialog; RichEdit3: TRichEdit; MainMenu1: TMainMenu; F1: TMenuItem; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; C1: TMenuItem; N4: TMenuItem; N5: TMenuItem; RTF1: TMenuItem; Panel1: TPanel; ProgressBar1: TProgressBar; Splitter1: TSplitter; Splitter2: TSp