aimUnit.pas
上传用户:gdszzsp
上传日期:2007-01-08
资源大小:621k
文件大小:30k
源码类别:

远程控制编程

开发平台:

Delphi

  1. unit aimUnit;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics,
  5.   Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus;
  6. type
  7.   TaimForm=class(TForm)
  8.     CaptionLabel: TLabel;
  9.     CloseButton: TFlatSpeedButton;
  10.     Label1: TLabel;
  11.     CuCine: TLabel;
  12.     OutlookBtn1: TOutlookBtn;
  13.     ToolbarButton971: TToolbarButton97;
  14.     OutlookBtn2: TOutlookBtn;
  15.     T_X_T_Old: TMemo;
  16.     Panel1: TPanel;
  17.     T_X_T: ThtmlLite;
  18.     ImageList1: TImageList;
  19.     PopupMenu1: TPopupMenu;
  20.     copy1: TMenuItem;
  21.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  22.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  23.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  24.     procedure copy1Click(Sender: TObject);
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure FormPaint(Sender: TObject);
  27.     procedure FormResize(Sender: TObject);
  28.     procedure OutlookBtn1Click(Sender: TObject);
  29.     procedure OutlookBtn2Click(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end ;
  35. var
  36.   aimForm: TaimForm;
  37. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  38. implementation
  39. {$R *.DFM}
  40. procedure TaimForm.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  41. begin
  42. {
  43. 00502254   55                     push    ebp
  44. 00502255   8BEC                   mov     ebp, esp
  45. 00502257   53                     push    ebx
  46. 00502258   8BD8                   mov     ebx, eax
  47. 0050225A   8B83C4020000           mov     eax, [ebx+$02C4]
  48. 00502260   8B4024                 mov     eax, [eax+$24]
  49. 00502263   E874A2F3FF             call    0043C4DC
  50. 00502268   50                     push    eax
  51. * Reference to: SHBrowseForFolderA.SetCapture
  52. |
  53. 00502269   E80A56F0FF             call    00407878
  54. 0050226E   C78300030000FFFFFFFF   mov     dword ptr [ebx+$0300], $FFFFFFFF
  55. 00502278   8B450C                 mov     eax, [ebp+$0C]
  56. 0050227B   8983F8020000           mov     [ebx+$02F8], eax
  57. 00502281   8B4508                 mov     eax, [ebp+$08]
  58. 00502284   8983FC020000           mov     [ebx+$02FC], eax
  59. 0050228A   5B                     pop     ebx
  60. 0050228B   5D                     pop     ebp
  61. 0050228C   C20C                   ret     $0C
  62. }
  63.  end ; 
  64. procedure TaimForm.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  65. begin
  66. {
  67. 00502290   55                     push    ebp
  68. 00502291   8BEC                   mov     ebp, esp
  69. 00502293   53                     push    ebx
  70. 00502294   56                     push    esi
  71. 00502295   8BD8                   mov     ebx, eax
  72. 00502297   83BB0003000000         cmp     dword ptr [ebx+$0300], +$00
  73. 0050229E   7433                   jz      005022D3
  74. 005022A0   8B83C4020000           mov     eax, [ebx+$02C4]
  75. 005022A6   8B7024                 mov     esi, [eax+$24]
  76. 005022A9   8B83F8020000           mov     eax, [ebx+$02F8]
  77. 005022AF   2B450C                 sub     eax, dword ptr [ebp+$0C]
  78. 005022B2   8B5630                 mov     edx, [esi+$30]
  79. 005022B5   2BD0                   sub     edx, eax
  80. 005022B7   8BC6                   mov     eax, esi
  81. 005022B9   E8EE3BF3FF             call    00435EAC
  82. 005022BE   8B83FC020000           mov     eax, [ebx+$02FC]
  83. 005022C4   2B4508                 sub     eax, dword ptr [ebp+$08]
  84. 005022C7   8B5634                 mov     edx, [esi+$34]
  85. 005022CA   2BD0                   sub     edx, eax
  86. 005022CC   8BC6                   mov     eax, esi
  87. 005022CE   E8FD3BF3FF             call    00435ED0
  88. 005022D3   5E                     pop     esi
  89. 005022D4   5B                     pop     ebx
  90. 005022D5   5D                     pop     ebp
  91. 005022D6   C208                   ret     $08
  92. }
  93.  end ; 
  94. procedure TaimForm.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  95. begin
  96. {
  97. 005022DC   55                     push    ebp
  98. 005022DD   8BEC                   mov     ebp, esp
  99. 005022DF   53                     push    ebx
  100. 005022E0   56                     push    esi
  101. 005022E1   8BD8                   mov     ebx, eax
  102. 005022E3   83BB0003000000         cmp     dword ptr [ebx+$0300], +$00
  103. 005022EA   7440                   jz      0050232C
  104. 005022EC   8B83C4020000           mov     eax, [ebx+$02C4]
  105. 005022F2   8B7024                 mov     esi, [eax+$24]
  106. * Reference to: SHBrowseForFolderA.ReleaseCapture
  107. |
  108. 005022F5   E82E55F0FF             call    00407828
  109. 005022FA   33C0                   xor     eax, eax
  110. 005022FC   898300030000           mov     [ebx+$0300], eax
  111. 00502302   8B83F8020000           mov     eax, [ebx+$02F8]
  112. 00502308   2B450C                 sub     eax, dword ptr [ebp+$0C]
  113. 0050230B   8B5630                 mov     edx, [esi+$30]
  114. 0050230E   2BD0                   sub     edx, eax
  115. 00502310   8BC6                   mov     eax, esi
  116. 00502312   E8953BF3FF             call    00435EAC
  117. 00502317   8B83FC020000           mov     eax, [ebx+$02FC]
  118. 0050231D   2B4508                 sub     eax, dword ptr [ebp+$08]
  119. 00502320   8B5634                 mov     edx, [esi+$34]
  120. 00502323   2BD0                   sub     edx, eax
  121. 00502325   8BC6                   mov     eax, esi
  122. 00502327   E8A43BF3FF             call    00435ED0
  123. 0050232C   5E                     pop     esi
  124. 0050232D   5B                     pop     ebx
  125. 0050232E   5D                     pop     ebp
  126. 0050232F   C20C                   ret     $0C
  127. }
  128.  end ; 
  129. procedure TaimForm.copy1Click(Sender: TObject);
  130. begin
  131. {
  132. 00502614   8B80F4020000           mov     eax, [eax+$02F4]
  133. 0050261A   E81DE7FFFF             call    00500D3C
  134. 0050261F   C3                     ret
  135. }
  136.  end ; 
  137. procedure TaimForm.FormCreate(Sender: TObject);
  138. begin
  139. {
  140. 00502244   E86FFEFFFF             call    005020B8
  141. 00502249   C3                     ret
  142. }
  143.  end ; 
  144. procedure TaimForm.FormPaint(Sender: TObject);
  145. begin
  146. {
  147. 00502620   53                     push    ebx
  148. 00502621   56                     push    esi
  149. 00502622   57                     push    edi
  150. 00502623   55                     push    ebp
  151. 00502624   83C4E0                 add     esp, -$20
  152. 00502627   8BD8                   mov     ebx, eax
  153. 00502629   8B2DDC495400           mov     ebp, [$5449DC]
  154. 0050262F   8B733C                 mov     esi, [ebx+$3C]
  155. 00502632   83EE05                 sub     esi, +$05
  156. 00502635   83EE18                 sub     esi, +$18
  157. 00502638   7C5D                   jl      00502697
  158. 0050263A   46                     inc     esi
  159. 0050263B   BF18000000             mov     edi, $00000018
  160. 00502640   6A01                   push    $01
  161. 00502642   8D442404               lea     eax, [esp+$04]
  162. 00502646   50                     push    eax
  163. 00502647   B904000000             mov     ecx, $00000004
  164. 0050264C   BA1A000000             mov     edx, $0000001A
  165. 00502651   B801000000             mov     eax, $00000001
  166. 00502656   E8E5E2F0FF             call    00410940
  167. 0050265B   54                     push    esp
  168. 0050265C   6A01                   push    $01
  169. 0050265E   8D442418               lea     eax, [esp+$18]
  170. 00502662   50                     push    eax
  171. 00502663   B904000000             mov     ecx, $00000004
  172. 00502668   8BD7                   mov     edx, edi
  173. 0050266A   33C0                   xor     eax, eax
  174. 0050266C   E8CFE2F0FF             call    00410940
  175. 00502671   8D442414               lea     eax, [esp+$14]
  176. 00502675   50                     push    eax
  177. 00502676   8B4500                 mov     eax, [ebp+$00]
  178. 00502679   8B80E80A0000           mov     eax, [eax+$0AE8]
  179. 0050267F   E80C0DF2FF             call    00423390
  180. 00502684   50                     push    eax
  181. 00502685   8BC3                   mov     eax, ebx
  182. 00502687   E874AEF4FF             call    0044D500
  183. 0050268C   59                     pop     ecx
  184. 0050268D   5A                     pop     edx
  185. 0050268E   E8B9B9F1FF             call    0041E04C
  186. 00502693   47                     inc     edi
  187. 00502694   4E                     dec     esi
  188. 00502695   75A9                   jnz     00502640
  189. 00502697   8B733C                 mov     esi, [ebx+$3C]
  190. 0050269A   83EE05                 sub     esi, +$05
  191. 0050269D   83EE18                 sub     esi, +$18
  192. 005026A0   7C61                   jl      00502703
  193. 005026A2   46                     inc     esi
  194. 005026A3   BF18000000             mov     edi, $00000018
  195. 005026A8   6A01                   push    $01
  196. 005026AA   8D442404               lea     eax, [esp+$04]
  197. 005026AE   50                     push    eax
  198. 005026AF   B904000000             mov     ecx, $00000004
  199. 005026B4   BA1A000000             mov     edx, $0000001A
  200. 005026B9   B830000000             mov     eax, $00000030
  201. 005026BE   E87DE2F0FF             call    00410940
  202. 005026C3   54                     push    esp
  203. 005026C4   6A01                   push    $01
  204. 005026C6   8D442418               lea     eax, [esp+$18]
  205. 005026CA   50                     push    eax
  206. 005026CB   8B4338                 mov     eax, [ebx+$38]
  207. 005026CE   83E804                 sub     eax, +$04
  208. 005026D1   B904000000             mov     ecx, $00000004
  209. 005026D6   8BD7                   mov     edx, edi
  210. 005026D8   E863E2F0FF             call    00410940
  211. 005026DD   8D442414               lea     eax, [esp+$14]
  212. 005026E1   50                     push    eax
  213. 005026E2   8B4500                 mov     eax, [ebp+$00]
  214. 005026E5   8B80E80A0000           mov     eax, [eax+$0AE8]
  215. 005026EB   E8A00CF2FF             call    00423390
  216. 005026F0   50                     push    eax
  217. 005026F1   8BC3                   mov     eax, ebx
  218. 005026F3   E808AEF4FF             call    0044D500
  219. 005026F8   59                     pop     ecx
  220. 005026F9   5A                     pop     edx
  221. 005026FA   E84DB9F1FF             call    0041E04C
  222. 005026FF   47                     inc     edi
  223. 00502700   4E                     dec     esi
  224. 00502701   75A5                   jnz     005026A8
  225. 00502703   8B7338                 mov     esi, [ebx+$38]
  226. 00502706   83EE18                 sub     esi, +$18
  227. 00502709   83EE18                 sub     esi, +$18
  228. 0050270C   7C5D                   jl      0050276B
  229. 0050270E   46                     inc     esi
  230. 0050270F   BF18000000             mov     edi, $00000018
  231. 00502714   6A18                   push    $18
  232. 00502716   8D442404               lea     eax, [esp+$04]
  233. 0050271A   50                     push    eax
  234. 0050271B   B901000000             mov     ecx, $00000001
  235. 00502720   BA01000000             mov     edx, $00000001
  236. 00502725   B81A000000             mov     eax, $0000001A
  237. 0050272A   E811E2F0FF             call    00410940
  238. 0050272F   54                     push    esp
  239. 00502730   6A18                   push    $18
  240. 00502732   8D442418               lea     eax, [esp+$18]
  241. 00502736   50                     push    eax
  242. 00502737   B901000000             mov     ecx, $00000001
  243. 0050273C   33D2                   xor     edx, edx
  244. 0050273E   8BC7                   mov     eax, edi
  245. 00502740   E8FBE1F0FF             call    00410940
  246. 00502745   8D442414               lea     eax, [esp+$14]
  247. 00502749   50                     push    eax
  248. 0050274A   8B4500                 mov     eax, [ebp+$00]
  249. 0050274D   8B80E80A0000           mov     eax, [eax+$0AE8]
  250. 00502753   E8380CF2FF             call    00423390
  251. 00502758   50                     push    eax
  252. 00502759   8BC3                   mov     eax, ebx
  253. 0050275B   E8A0ADF4FF             call    0044D500
  254. 00502760   59                     pop     ecx
  255. 00502761   5A                     pop     edx
  256. 00502762   E8E5B8F1FF             call    0041E04C
  257. 00502767   47                     inc     edi
  258. 00502768   4E                     dec     esi
  259. 00502769   75A9                   jnz     00502714
  260. 0050276B   8B7338                 mov     esi, [ebx+$38]
  261. 0050276E   83EE04                 sub     esi, +$04
  262. 00502771   83EE04                 sub     esi, +$04
  263. 00502774   7C61                   jl      005027D7
  264. 00502776   46                     inc     esi
  265. 00502777   BF04000000             mov     edi, $00000004
  266. 0050277C   6A04                   push    $04
  267. 0050277E   8D442404               lea     eax, [esp+$04]
  268. 00502782   50                     push    eax
  269. 00502783   B901000000             mov     ecx, $00000001
  270. 00502788   BA1C000000             mov     edx, $0000001C
  271. 0050278D   B81A000000             mov     eax, $0000001A
  272. 00502792   E8A9E1F0FF             call    00410940
  273. 00502797   54                     push    esp
  274. 00502798   6A04                   push    $04
  275. 0050279A   8D442418               lea     eax, [esp+$18]
  276. 0050279E   50                     push    eax
  277. 0050279F   8B533C                 mov     edx, [ebx+$3C]
  278. 005027A2   83EA04                 sub     edx, +$04
  279. 005027A5   B901000000             mov     ecx, $00000001
  280. 005027AA   8BC7                   mov     eax, edi
  281. 005027AC   E88FE1F0FF             call    00410940
  282. 005027B1   8D442414               lea     eax, [esp+$14]
  283. 005027B5   50                     push    eax
  284. 005027B6   8B4500                 mov     eax, [ebp+$00]
  285. 005027B9   8B80E80A0000           mov     eax, [eax+$0AE8]
  286. 005027BF   E8CC0BF2FF             call    00423390
  287. 005027C4   50                     push    eax
  288. 005027C5   8BC3                   mov     eax, ebx
  289. 005027C7   E834ADF4FF             call    0044D500
  290. 005027CC   59                     pop     ecx
  291. 005027CD   5A                     pop     edx
  292. 005027CE   E879B8F1FF             call    0041E04C
  293. 005027D3   47                     inc     edi
  294. 005027D4   4E                     dec     esi
  295. 005027D5   75A5                   jnz     0050277C
  296. 005027D7   6A18                   push    $18
  297. 005027D9   8D442404               lea     eax, [esp+$04]
  298. 005027DD   50                     push    eax
  299. 005027DE   B918000000             mov     ecx, $00000018
  300. 005027E3   BA01000000             mov     edx, $00000001
  301. 005027E8   B801000000             mov     eax, $00000001
  302. 005027ED   E84EE1F0FF             call    00410940
  303. 005027F2   54                     push    esp
  304. 005027F3   6A18                   push    $18
  305. 005027F5   8D442418               lea     eax, [esp+$18]
  306. 005027F9   50                     push    eax
  307. 005027FA   B918000000             mov     ecx, $00000018
  308. 005027FF   33D2                   xor     edx, edx
  309. 00502801   33C0                   xor     eax, eax
  310. 00502803   E838E1F0FF             call    00410940
  311. 00502808   8D442414               lea     eax, [esp+$14]
  312. 0050280C   50                     push    eax
  313. 0050280D   8B4500                 mov     eax, [ebp+$00]
  314. 00502810   8B80E80A0000           mov     eax, [eax+$0AE8]
  315. 00502816   E8750BF2FF             call    00423390
  316. 0050281B   50                     push    eax
  317. 0050281C   8BC3                   mov     eax, ebx
  318. 0050281E   E8DDACF4FF             call    0044D500
  319. 00502823   59                     pop     ecx
  320. 00502824   5A                     pop     edx
  321. 00502825   E822B8F1FF             call    0041E04C
  322. 0050282A   6A18                   push    $18
  323. 0050282C   8D442404               lea     eax, [esp+$04]
  324. 00502830   50                     push    eax
  325. 00502831   B918000000             mov     ecx, $00000018
  326. 00502836   BA01000000             mov     edx, $00000001
  327. 0050283B   B81C000000             mov     eax, $0000001C
  328. 00502840   E8FBE0F0FF             call    00410940
  329. 00502845   54                     push    esp
  330. 00502846   6A18                   push    $18
  331. 00502848   8D442418               lea     eax, [esp+$18]
  332. 0050284C   50                     push    eax
  333. 0050284D   8B4338                 mov     eax, [ebx+$38]
  334. 00502850   83E818                 sub     eax, +$18
  335. 00502853   B918000000             mov     ecx, $00000018
  336. 00502858   33D2                   xor     edx, edx
  337. 0050285A   E8E1E0F0FF             call    00410940
  338. 0050285F   8D442414               lea     eax, [esp+$14]
  339. 00502863   50                     push    eax
  340. 00502864   8B4500                 mov     eax, [ebp+$00]
  341. 00502867   8B80E80A0000           mov     eax, [eax+$0AE8]
  342. 0050286D   E81E0BF2FF             call    00423390
  343. 00502872   50                     push    eax
  344. 00502873   8BC3                   mov     eax, ebx
  345. 00502875   E886ACF4FF             call    0044D500
  346. 0050287A   59                     pop     ecx
  347. 0050287B   5A                     pop     edx
  348. 0050287C   E8CBB7F1FF             call    0041E04C
  349. 00502881   6A04                   push    $04
  350. 00502883   8D442404               lea     eax, [esp+$04]
  351. 00502887   50                     push    eax
  352. 00502888   B904000000             mov     ecx, $00000004
  353. 0050288D   BA1C000000             mov     edx, $0000001C
  354. 00502892   B801000000             mov     eax, $00000001
  355. 00502897   E8A4E0F0FF             call    00410940
  356. 0050289C   54                     push    esp
  357. 0050289D   6A04                   push    $04
  358. 0050289F   8D442418               lea     eax, [esp+$18]
  359. 005028A3   50                     push    eax
  360. 005028A4   8B533C                 mov     edx, [ebx+$3C]
  361. 005028A7   83EA04                 sub     edx, +$04
  362. 005028AA   B904000000             mov     ecx, $00000004
  363. 005028AF   33C0                   xor     eax, eax
  364. 005028B1   E88AE0F0FF             call    00410940
  365. 005028B6   8D442414               lea     eax, [esp+$14]
  366. 005028BA   50                     push    eax
  367. 005028BB   8B4500                 mov     eax, [ebp+$00]
  368. 005028BE   8B80E80A0000           mov     eax, [eax+$0AE8]
  369. 005028C4   E8C70AF2FF             call    00423390
  370. 005028C9   50                     push    eax
  371. 005028CA   8BC3                   mov     eax, ebx
  372. 005028CC   E82FACF4FF             call    0044D500
  373. 005028D1   59                     pop     ecx
  374. 005028D2   5A                     pop     edx
  375. 005028D3   E874B7F1FF             call    0041E04C
  376. 005028D8   6A04                   push    $04
  377. 005028DA   8D442404               lea     eax, [esp+$04]
  378. 005028DE   50                     push    eax
  379. 005028DF   B904000000             mov     ecx, $00000004
  380. 005028E4   BA1C000000             mov     edx, $0000001C
  381. 005028E9   B830000000             mov     eax, $00000030
  382. 005028EE   E84DE0F0FF             call    00410940
  383. 005028F3   54                     push    esp
  384. 005028F4   6A04                   push    $04
  385. 005028F6   8D442418               lea     eax, [esp+$18]
  386. 005028FA   50                     push    eax
  387. 005028FB   8B533C                 mov     edx, [ebx+$3C]
  388. 005028FE   83EA04                 sub     edx, +$04
  389. 00502901   8B4338                 mov     eax, [ebx+$38]
  390. 00502904   83E804                 sub     eax, +$04
  391. 00502907   B904000000             mov     ecx, $00000004
  392. 0050290C   E82FE0F0FF             call    00410940
  393. 00502911   8D442414               lea     eax, [esp+$14]
  394. 00502915   50                     push    eax
  395. 00502916   8B4500                 mov     eax, [ebp+$00]
  396. 00502919   8B80E80A0000           mov     eax, [eax+$0AE8]
  397. 0050291F   E86C0AF2FF             call    00423390
  398. 00502924   50                     push    eax
  399. 00502925   8BC3                   mov     eax, ebx
  400. 00502927   E8D4ABF4FF             call    0044D500
  401. 0050292C   59                     pop     ecx
  402. 0050292D   5A                     pop     edx
  403. 0050292E   E819B7F1FF             call    0041E04C
  404. 00502933   8BC3                   mov     eax, ebx
  405. 00502935   E8C6ABF4FF             call    0044D500
  406. 0050293A   8B4014                 mov     eax, [eax+$14]
  407. 0050293D   8B5500                 mov     edx, [ebp+$00]
  408. 00502940   8B92180B0000           mov     edx, [edx+$0B18]
  409. 00502946   E8D1B1F1FF             call    0041DB1C
  410. 0050294B   8B433C                 mov     eax, [ebx+$3C]
  411. 0050294E   83E81C                 sub     eax, +$1C
  412. 00502951   50                     push    eax
  413. 00502952   8D442404               lea     eax, [esp+$04]
  414. 00502956   50                     push    eax
  415. 00502957   8B4B38                 mov     ecx, [ebx+$38]
  416. 0050295A   83E908                 sub     ecx, +$08
  417. 0050295D   BA18000000             mov     edx, $00000018
  418. 00502962   B804000000             mov     eax, $00000004
  419. 00502967   E8D4DFF0FF             call    00410940
  420. 0050296C   54                     push    esp
  421. 0050296D   8BC3                   mov     eax, ebx
  422. 0050296F   E88CABF4FF             call    0044D500
  423. 00502974   5A                     pop     edx
  424. 00502975   E882B8F1FF             call    0041E1FC
  425. 0050297A   83C420                 add     esp, +$20
  426. 0050297D   5D                     pop     ebp
  427. 0050297E   5F                     pop     edi
  428. 0050297F   5E                     pop     esi
  429. 00502980   5B                     pop     ebx
  430. 00502981   C3                     ret
  431. }
  432.  end ; 
  433. procedure TaimForm.FormResize(Sender: TObject);
  434. begin
  435. {
  436. 00502984   8B10                   mov     edx, [eax]
  437. 00502986   FF5278                 call    dword ptr [edx+$78]
  438. 00502989   C3                     ret
  439. }
  440.  end ; 
  441. procedure TaimForm.OutlookBtn1Click(Sender: TObject);
  442. begin
  443. {
  444. 00502334   53                     push    ebx
  445. 00502335   8BD8                   mov     ebx, eax
  446. 00502337   A1DC495400             mov     eax, dword ptr [$5449DC]
  447. 0050233C   8B00                   mov     eax, [eax]
  448. 0050233E   8B530C                 mov     edx, [ebx+$0C]
  449. 00502341   8D8490840B0000         lea     eax, [eax+edx*4+$0B84]
  450. 00502348   E80F19F0FF             call    00403C5C
  451. 0050234D   B201                   mov     dl, $01
  452. 0050234F   8BC3                   mov     eax, ebx
  453. 00502351   8B08                   mov     ecx, [eax]
  454. 00502353   FF51FC                 call    dword ptr [ecx-$04]
  455. 00502356   5B                     pop     ebx
  456. 00502357   C3                     ret
  457. }
  458.  end ; 
  459. procedure TaimForm.OutlookBtn2Click(Sender: TObject);
  460. begin
  461. {
  462. 00502358   55                     push    ebp
  463. 00502359   8BEC                   mov     ebp, esp
  464. 0050235B   81C428FEFFFF           add     esp, $FFFFFE28
  465. 00502361   53                     push    ebx
  466. 00502362   56                     push    esi
  467. 00502363   57                     push    edi
  468. 00502364   33C9                   xor     ecx, ecx
  469. 00502366   898D2CFEFFFF           mov     [ebp+$FFFFFE2C], ecx
  470. 0050236C   898D28FEFFFF           mov     [ebp+$FFFFFE28], ecx
  471. 00502372   8BD8                   mov     ebx, eax
  472. 00502374   33C0                   xor     eax, eax
  473. 00502376   55                     push    ebp
  474. 00502377   6885255000             push    $00502585
  475. ***** TRY
  476. |
  477. 0050237C   64FF30                 push    dword ptr fs:[eax]
  478. 0050237F   648920                 mov     fs:[eax], esp
  479. 00502382   A1DC495400             mov     eax, dword ptr [$5449DC]
  480. 00502387   8B00                   mov     eax, [eax]
  481. 00502389   8B8000030000           mov     eax, [eax+$0300]
  482. 0050238F   83C068                 add     eax, +$68
  483. * Possible String Reference to: "txt"
  484. |
  485. 00502392   BA9C255000             mov     edx, $0050259C
  486. 00502397   E81419F0FF             call    00403CB0
  487. 0050239C   A1DC495400             mov     eax, dword ptr [$5449DC]
  488. 005023A1   8B00                   mov     eax, [eax]
  489. 005023A3   8B90F40B0000           mov     edx, [eax+$0BF4]
  490. 005023A9   A1DC495400             mov     eax, dword ptr [$5449DC]
  491. 005023AE   8B00                   mov     eax, [eax]
  492. 005023B0   8B8000030000           mov     eax, [eax+$0300]
  493. 005023B6   83C06C                 add     eax, +$6C
  494. * Possible String Reference to: "_spylog.txt"
  495. |
  496. 005023B9   B9A8255000             mov     ecx, $005025A8
  497. 005023BE   E8611BF0FF             call    00403F24
  498. 005023C3   A1DC495400             mov     eax, dword ptr [$5449DC]
  499. 005023C8   8B00                   mov     eax, [eax]
  500. 005023CA   8B8000030000           mov     eax, [eax+$0300]
  501. 005023D0   83C054                 add     eax, +$54
  502. * Possible String Reference to: "text files|*.txt|all files|*.*"
  503. |
  504. 005023D3   BABC255000             mov     edx, $005025BC
  505. 005023D8   E8D318F0FF             call    00403CB0
  506. 005023DD   A1DC495400             mov     eax, dword ptr [$5449DC]
  507. 005023E2   8B00                   mov     eax, [eax]
  508. 005023E4   8B8000030000           mov     eax, [eax+$0300]
  509. 005023EA   8B10                   mov     edx, [eax]
  510. 005023EC   FF523C                 call    dword ptr [edx+$3C]
  511. 005023EF   84C0                   test    al, al
  512. 005023F1   0F8421010000           jz      00502518
  513. 005023F7   8B83E4020000           mov     eax, [ebx+$02E4]
  514. 005023FD   80784700               cmp     byte ptr [eax+$47], $00
  515. 00502401   0F84E2000000           jz      005024E9
  516. 00502407   8B83F4020000           mov     eax, [ebx+$02F4]
  517. 0050240D   E89EE7FFFF             call    00500BB0
  518. 00502412   8B83F4020000           mov     eax, [ebx+$02F4]
  519. 00502418   E83FE9FFFF             call    00500D5C
  520. 0050241D   E80A03F0FF             call    0040272C
  521. 00502422   8945FC                 mov     [ebp-$04], eax
  522. 00502425   8BB3F4020000           mov     esi, [ebx+$02F4]
  523. 0050242B   8BC6                   mov     eax, esi
  524. 0050242D   E82AE9FFFF             call    00500D5C
  525. 00502432   8BC8                   mov     ecx, eax
  526. 00502434   8BC6                   mov     eax, esi
  527. 00502436   8B55FC                 mov     edx, [ebp-$04]
  528. 00502439   E80AE9FFFF             call    00500D48
  529. 0050243E   8B83F4020000           mov     eax, [ebx+$02F4]
  530. 00502444   33D2                   xor     edx, edx
  531. 00502446   E81DE9FFFF             call    00500D68
  532. 0050244B   8D952CFEFFFF           lea     edx, [ebp+$FFFFFE2C]
  533. 00502451   A1DC495400             mov     eax, dword ptr [$5449DC]
  534. 00502456   8B00                   mov     eax, [eax]
  535. 00502458   8B8000030000           mov     eax, [eax+$0300]
  536. 0050245E   E80D5BF5FF             call    00457F70
  537. 00502463   8B952CFEFFFF           mov     edx, [ebp+$FFFFFE2C]
  538. 00502469   8D8530FEFFFF           lea     eax, [ebp+$FFFFFE30]
  539. 0050246F   E8663BF0FF             call    00405FDA
  540. 00502474   8D8530FEFFFF           lea     eax, [ebp+$FFFFFE30]
  541. 0050247A   E8433FF0FF             call    004063C2
  542. 0050247F   E87803F0FF             call    004027FC
  543. 00502484   33C0                   xor     eax, eax
  544. 00502486   55                     push    ebp
  545. 00502487   68C5245000             push    $005024C5
  546. ***** TRY
  547. |
  548. 0050248C   64FF30                 push    dword ptr fs:[eax]
  549. 0050248F   648920                 mov     fs:[eax], esp
  550. 00502492   8D9528FEFFFF           lea     edx, [ebp+$FFFFFE28]
  551. 00502498   8B45FC                 mov     eax, [ebp-$04]
  552. 0050249B   E8FC71F0FF             call    0040969C
  553. 005024A0   8B9528FEFFFF           mov     edx, [ebp+$FFFFFE28]
  554. 005024A6   8D8530FEFFFF           lea     eax, [ebp+$FFFFFE30]
  555. 005024AC   E8BB1DF0FF             call    0040426C
  556. 005024B1   E8F53FF0FF             call    004064AB
  557. 005024B6   E84103F0FF             call    004027FC
  558. 005024BB   33C0                   xor     eax, eax
  559. 005024BD   5A                     pop     edx
  560. 005024BE   59                     pop     ecx
  561. 005024BF   59                     pop     ecx
  562. 005024C0   648910                 mov     fs:[eax], edx
  563. 005024C3   EB0A                   jmp     005024CF
  564. ****** EXCEPT
  565. |
  566. 005024C5   E98E0FF0FF             jmp     00403458
  567. 005024CA   E83912F0FF             call    00403708
  568. ****** END
  569. |
  570. 005024CF   8D8530FEFFFF           lea     eax, [ebp+$FFFFFE30]
  571. 005024D5   E8A23BF0FF             call    0040607C
  572. 005024DA   E81D03F0FF             call    004027FC
  573. 005024DF   8B45FC                 mov     eax, [ebp-$04]
  574. 005024E2   E85D02F0FF             call    00402744
  575. 005024E7   EB2F                   jmp     00502518
  576. 005024E9   8D952CFEFFFF           lea     edx, [ebp+$FFFFFE2C]
  577. 005024EF   A1DC495400             mov     eax, dword ptr [$5449DC]
  578. 005024F4   8B00                   mov     eax, [eax]
  579. 005024F6   8B8000030000           mov     eax, [eax+$0300]
  580. 005024FC   E86F5AF5FF             call    00457F70
  581. 00502501   8B952CFEFFFF           mov     edx, [ebp+$FFFFFE2C]
  582. 00502507   8B83E0020000           mov     eax, [ebx+$02E0]
  583. 0050250D   8B8004020000           mov     eax, [eax+$0204]
  584. 00502513   8B08                   mov     ecx, [eax]
  585. 00502515   FF5164                 call    dword ptr [ecx+$64]
  586. 00502518   A1DC495400             mov     eax, dword ptr [$5449DC]
  587. 0050251D   8B00                   mov     eax, [eax]
  588. 0050251F   8B8000030000           mov     eax, [eax+$0300]
  589. 00502525   83C06C                 add     eax, +$6C
  590. 00502528   E82F17F0FF             call    00403C5C
  591. 0050252D   A1DC495400             mov     eax, dword ptr [$5449DC]
  592. 00502532   8B00                   mov     eax, [eax]
  593. 00502534   8B8000030000           mov     eax, [eax+$0300]
  594. 0050253A   83C068                 add     eax, +$68
  595. * Possible String Reference to: "s7m"
  596. |
  597. 0050253D   BAE4255000             mov     edx, $005025E4
  598. 00502542   E86917F0FF             call    00403CB0
  599. 00502547   A1DC495400             mov     eax, dword ptr [$5449DC]
  600. 0050254C   8B00                   mov     eax, [eax]
  601. 0050254E   8B8000030000           mov     eax, [eax+$0300]
  602. 00502554   83C054                 add     eax, +$54
  603. * Possible String Reference to: "sub7 menu files|*.s7m|all files|*.*"
  604. |
  605. 00502557   BAF0255000             mov     edx, $005025F0
  606. 0050255C   E84F17F0FF             call    00403CB0
  607. 00502561   33C0                   xor     eax, eax
  608. 00502563   5A                     pop     edx
  609. 00502564   59                     pop     ecx
  610. 00502565   59                     pop     ecx
  611. 00502566   648910                 mov     fs:[eax], edx
  612. ****** FINALLY
  613. |
  614. * Possible String Reference to: "_^[嬪]