用鼠标HOOK，执行一个已经打开的外部程序的TForm1.button1click的过程
0
悬赏园豆：200
[已关闭问题]
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">我在下面有个鼠标钩子DLL程序，我想在外部建立一个程序启动鼠标钩子右键HOOK，另外的一个</span><span style="font-size: 10pt; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-ascii-font-family: 宋体;"><span style="font-family: Times New Roman;">‘</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">按纽移动的程序</span><span style="font-size: 10pt; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-ascii-font-family: 宋体;"><span style="font-family: Times New Roman;">’</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">也是已经打开的。现在需要的结果就是：如果按一下鼠标右键，就执行一个已经打开的程序的过程。例如，我下面有个</span><span style="font-size: 10pt; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-ascii-font-family: 宋体;"><span style="font-family: Times New Roman;">‘</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">按纽移动的程序</span><span style="font-size: 10pt; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-ascii-font-family: 宋体;"><span style="font-family: Times New Roman;">’</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">，那么我不论在什么地方按一下鼠标右键， </span><span style="font-size: 10pt; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-ascii-font-family: 宋体;"><span style="font-family: Times New Roman;">‘</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">按纽移动的程序</span><span style="font-size: 10pt; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-ascii-font-family: 宋体;"><span style="font-family: Times New Roman;">’</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">的按纽就走一步。</span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;"></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">也就相当于不论在什么地方按一下鼠标右键，就执行一次</span><span style="font-size: 10pt; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-ascii-font-family: 宋体;"><span style="font-family: Times New Roman;">‘</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">按纽移动的程序</span><span style="font-size: 10pt; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-ascii-font-family: 宋体;"><span style="font-family: Times New Roman;">’</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">的</span><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">TForm1.button1click</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">的事件。 </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">请各位大侠提个好的方法。</span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;"></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span>谢谢<span style="mso-spacerun: yes;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span>library MyHook;{这个是鼠标钩子DLL}</span><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">uses</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>SysUtils,</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>Windows,</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>Messages,</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>Classes;</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">{$R *.res}</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">var</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-family: Times New Roman;"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="mso-spacerun: yes;"> </span>hook: HHOOK; </span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;"></span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;">{</span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">钩子函数，鼠标键按下</span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;">}</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">function MouseHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">begin</span><span style="font-size: 10pt; color: blue; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;"></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span>Result := CallNextHookEx(hook, nCode, wParam, lParam);</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">end;</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">{建立钩子</span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;">}</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">function SetHook: Boolean; stdcall;</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">begin</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">hook := SetWindowsHookEx(WH_MOUSE, @MouseHook, HInstance, 0);</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;"></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span>Result := hook <> 0;</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">end;</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">function DelHook: Boolean; stdcall;</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">begin</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span>Result := UnhookWindowsHookEx(hook);</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">end;</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">exports</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span>SetHook name 'SetHook',</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span>DelHook name 'DelHook',</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"><span style="mso-spacerun: yes;"> </span>MouseHook name 'MouseHook';</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">//SetHook, DelHook, MouseHook; </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">begin</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">end.</span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;"> </span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">unit Unit1;</span></span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN; mso-bidi-font-family: 宋体;">（这个是按纽的程序</span><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;">}</span><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">interface</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">uses</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>Dialogs, StdCtrls;</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>type</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>TForm1 = class(TForm)</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>Button1: TButton;</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>procedure button1click(Sender: TObject);</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span></span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>private</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>{ Private declarations }</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>public</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>{ Public declarations }</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>end;</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">var</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>Form1: TForm1;</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">implementation</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">{$R *.dfm}</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">procedure TForm1.button1click(Sender: TObject);</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">begin</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>button1.top:= button1.top+50;</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"><span style="mso-spacerun: yes;"> </span>color:=clred;</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">end;</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; mso-font-kerning: 0pt;" lang="EN-US"><span style="font-family: Times New Roman;">end.</span></span></p>
<p class="MsoNormal" style="margin: 0cm 0cm 0pt; text-align: left; mso-layout-grid-align: none;" align="left"><span style="font-size: 10pt; font-family: 宋体; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 0pt; mso-ansi-language: ZH-CN;"> </span></p>
