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

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

远程控制编程

开发平台：

Delphi

AboutUnit.pas：源码内容
  1. unit AboutUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
  9. type
  10.   TAbout=class(TForm)
  11.     CaptionLabel: TLabel;
  12.     CloseButton: TFlatSpeedButton;
  13.     OutlookBtn2: TOutlookBtn;
  14.     OutlookBtn3: TOutlookBtn;
  15.     Panel1: TPanel;
  16.     buf: TImage;
  17.     temp: TImage;
  18.     Label1: TLabel;
  19.     bufMemo: TMemo;
  20.     Timer1: TTimer;
  21.     PlayerWave1: TPlayerWave;
  22.     NMHTTP1: TNMHTTP;
  23.     procedure bufMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  24.     procedure bufMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  25.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  26.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  27.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  28.     procedure CloseButtonClick(Sender: TObject);
  29.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure FormHide(Sender: TObject);
  32.     procedure FormPaint(Sender: TObject);
  33.     procedure FormResize(Sender: TObject);
  34.     procedure FormShow(Sender: TObject);
  35.     procedure OutlookBtn2Click(Sender: TObject);
  36.     procedure OutlookBtn3Click(Sender: TObject);
  37.     procedure Timer1Timer(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end ;
  44. var
  45.   About: TAbout;
  48. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  50. implementation
  52. {$R *.DFM}
  55. procedure TAbout.bufMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  56. begin
  57. {
  58. 005085C0   55                     push    ebp
  59. 005085C1   8BEC                   mov     ebp, esp
  60. 005085C3   53                     push    ebx
  61. 005085C4   56                     push    esi
  62. 005085C5   57                     push    edi
  63. 005085C6   833DCC46540000         cmp     dword ptr [$5446CC], +$00
  64. 005085CD   7405                   jz      005085D4
  65. 005085CF   E8F872F4FF             call    0044F8CC
  66. 005085D4   8B3D30785400           mov     edi, [$547830]
  67. 005085DA   85FF                   test    edi, edi
  68. 005085DC   7E5C                   jle     0050863A
  69. 005085DE   BECC775400             mov     esi, $005477CC
  70. 005085E3   8BDE                   mov     ebx, esi
  71. 005085E5   8B03                   mov     eax, [ebx]
  72. 005085E7   3B450C                 cmp     eax, [ebp+$0C]
  73. 005085EA   0F9CC2                 setl    dl
  74. 005085ED   034308                 add     eax, [ebx+$08]
  75. 005085F0   3B450C                 cmp     eax, [ebp+$0C]
  76. 005085F3   0F9FC0                 setnle  al
  77. 005085F6   22D0                   and     dl, al
  78. 005085F8   8B4304                 mov     eax, [ebx+$04]
  79. 005085FB   3B4508                 cmp     eax, [ebp+$08]
  80. 005085FE   0F9CC0                 setl    al
  81. 00508601   22D0                   and     dl, al
  82. 00508603   8B4304                 mov     eax, [ebx+$04]
  83. 00508606   03430C                 add     eax, [ebx+$0C]
  84. 00508609   3B4508                 cmp     eax, [ebp+$08]
  85. 0050860C   0F9FC0                 setnle  al
  86. 0050860F   22D0                   and     dl, al
  87. 00508611   7421                   jz      00508634
  88. 00508613   6A05                   push    $05
  89. 00508615   6844865000             push    $00508644
  90. 0050861A   6844865000             push    $00508644
  91. 0050861F   8B4310                 mov     eax, [ebx+$10]
  92. 00508622   E875BAEFFF             call    0040409C
  93. 00508627   50                     push    eax
  95. * Possible String Reference to: "open"
  96. |
  97. 00508628   6848865000             push    $00508648
  98. 0050862D   6A00                   push    $00
  100. * Reference to: SysFreeString.ShellExecuteA
  101. |
  102. 0050862F   E85CA8F6FF             call    00472E90
  103. 00508634   83C614                 add     esi, +$14
  104. 00508637   4F                     dec     edi
  105. 00508638   75A9                   jnz     005085E3
  106. 0050863A   5F                     pop     edi
  107. 0050863B   5E                     pop     esi
  108. 0050863C   5B                     pop     ebx
  109. 0050863D   5D                     pop     ebp
  110. 0050863E   C20C                   ret     $0C
  113. }
  114.  end ; 
  116. procedure TAbout.bufMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  117. begin
  118. {
  119. 00508394   55                     push    ebp
  120. 00508395   8BEC                   mov     ebp, esp
  121. 00508397   83C4E8                 add     esp, -$18
  122. 0050839A   53                     push    ebx
  123. 0050839B   56                     push    esi
  124. 0050839C   57                     push    edi
  125. 0050839D   8BF0                   mov     esi, eax
  126. 0050839F   833D3078540000         cmp     dword ptr [$547830], +$00
  127. 005083A6   0F94C0                 setz    al
  128. 005083A9   66837E6C00             cmp     word ptr [esi+$6C], +$00
  129. 005083AE   0F95C2                 setnz   dl
  130. 005083B1   22C2                   and     al, dl
  131. 005083B3   7409                   jz      005083BE
  132. 005083B5   33D2                   xor     edx, edx
  133. 005083B7   8BC6                   mov     eax, esi
  134. 005083B9   E822E5F2FF             call    004368E0
  135. 005083BE   833D3078540000         cmp     dword ptr [$547830], +$00
  136. 005083C5   0F84E2010000           jz      005085AD
  137. 005083CB   33C0                   xor     eax, eax
  138. 005083CD   8945F8                 mov     [ebp-$08], eax
  139. 005083D0   8B3D30785400           mov     edi, [$547830]
  140. 005083D6   85FF                   test    edi, edi
  141. 005083D8   0F8ED3000000           jle     005084B1
  142. 005083DE   C745FC01000000         mov     dword ptr [ebp-$04], $00000001
  143. 005083E5   C745F0CC775400         mov     dword ptr [ebp-$10], $005477CC
  144. 005083EC   C745EC34785400         mov     dword ptr [ebp-$14], $00547834
  145. 005083F3   8B45F0                 mov     eax, [ebp-$10]
  146. 005083F6   8BD8                   mov     ebx, eax
  147. 005083F8   8B03                   mov     eax, [ebx]
  148. 005083FA   3B450C                 cmp     eax, [ebp+$0C]
  149. 005083FD   0F9CC2                 setl    dl
  150. 00508400   034308                 add     eax, [ebx+$08]
  151. 00508403   3B450C                 cmp     eax, [ebp+$0C]
  152. 00508406   0F9FC0                 setnle  al
  153. 00508409   22D0                   and     dl, al
  154. 0050840B   8B4304                 mov     eax, [ebx+$04]
  155. 0050840E   3B4508                 cmp     eax, [ebp+$08]
  156. 00508411   0F9CC0                 setl    al
  157. 00508414   22D0                   and     dl, al
  158. 00508416   8B4304                 mov     eax, [ebx+$04]
  159. 00508419   03430C                 add     eax, [ebx+$0C]
  160. 0050841C   3B4508                 cmp     eax, [ebp+$08]
  161. 0050841F   0F9FC0                 setnle  al
  162. 00508422   22D0                   and     dl, al
  163. 00508424   747A                   jz      005084A0
  164. 00508426   8B86D0020000           mov     eax, [esi+$02D0]
  165. 0050842C   E82BD9F4FF             call    00455D5C
  166. 00508431   8B400C                 mov     eax, [eax+$0C]
  167. 00508434   BAFFFFFF00             mov     edx, $00FFFFFF
  168. 00508439   E81A4FF1FF             call    0041D358
  169. 0050843E   8B86D0020000           mov     eax, [esi+$02D0]
  170. 00508444   E813D9F4FF             call    00455D5C
  171. 00508449   8B400C                 mov     eax, [eax+$0C]
  172. 0050844C   8A15B8855000           mov     dl, byte ptr [$5085B8]
  173. 00508452   E8C151F1FF             call    0041D618
  174. 00508457   8B4310                 mov     eax, [ebx+$10]
  175. 0050845A   50                     push    eax
  176. 0050845B   8B86D0020000           mov     eax, [esi+$02D0]
  177. 00508461   E8F6D8F4FF             call    00455D5C
  178. 00508466   8B4B04                 mov     ecx, [ebx+$04]
  179. 00508469   8B13                   mov     edx, [ebx]
  180. 0050846B   E86060F1FF             call    0041E4D0
  181. 00508470   8B86D0020000           mov     eax, [esi+$02D0]
  182. 00508476   E8E1D8F4FF             call    00455D5C
  183. 0050847B   8B400C                 mov     eax, [eax+$0C]
  184. 0050847E   8A15BC855000           mov     dl, byte ptr [$5085BC]
  185. 00508484   E88F51F1FF             call    0041D618
  186. 00508489   66BAEBFF               mov     dx, $FFEB
  187. 0050848D   8BC6                   mov     eax, esi
  188. 0050848F   E84CE4F2FF             call    004368E0
  189. 00508494   8B45EC                 mov     eax, [ebp-$14]
  190. 00508497   C60001                 mov     byte ptr [eax], $01
  191. 0050849A   8B45FC                 mov     eax, [ebp-$04]
  192. 0050849D   8945F8                 mov     [ebp-$08], eax
  193. 005084A0   FF45FC                 inc     dword ptr [ebp-$04]
  194. 005084A3   FF45EC                 inc     dword ptr [ebp-$14]
  195. 005084A6   8345F014               add     dword ptr [ebp-$10], +$14
  196. 005084AA   4F                     dec     edi
  197. 005084AB   0F8542FFFFFF           jnz     005083F3
  198. 005084B1   837DF800               cmp     dword ptr [ebp-$08], +$00
  199. 005084B5   7509                   jnz     005084C0
  200. 005084B7   33D2                   xor     edx, edx
  201. 005084B9   8BC6                   mov     eax, esi
  202. 005084BB   E820E4F2FF             call    004368E0
  203. 005084C0   8B3D30785400           mov     edi, [$547830]
  204. 005084C6   85FF                   test    edi, edi
  205. 005084C8   0F8EDF000000           jle     005085AD
  206. 005084CE   C745FC01000000         mov     dword ptr [ebp-$04], $00000001
  207. 005084D5   BB34785400             mov     ebx, $00547834
  208. 005084DA   C745E8CC775400         mov     dword ptr [ebp-$18], $005477CC
  209. 005084E1   8B45FC                 mov     eax, [ebp-$04]
  210. 005084E4   3B45F8                 cmp     eax, [ebp-$08]
  211. 005084E7   0F95C0                 setnz   al
  212. 005084EA   2203                   and     al, byte ptr [ebx]
  213. 005084EC   0F84AC000000           jz      0050859E
  214. 005084F2   8B45E8                 mov     eax, [ebp-$18]
  215. 005084F5   8945F4                 mov     [ebp-$0C], eax
  216. 005084F8   8B86D0020000           mov     eax, [esi+$02D0]
  217. 005084FE   E859D8F4FF             call    00455D5C
  218. 00508503   8B400C                 mov     eax, [eax+$0C]
  219. 00508506   33D2                   xor     edx, edx
  220. 00508508   E84B4EF1FF             call    0041D358
  221. 0050850D   8B86D0020000           mov     eax, [esi+$02D0]
  222. 00508513   E844D8F4FF             call    00455D5C
  223. 00508518   8B400C                 mov     eax, [eax+$0C]
  224. 0050851B   8A15B8855000           mov     dl, byte ptr [$5085B8]
  225. 00508521   E8F250F1FF             call    0041D618
  226. 00508526   8B45F4                 mov     eax, [ebp-$0C]
  227. 00508529   8B4010                 mov     eax, [eax+$10]
  228. 0050852C   50                     push    eax
  229. 0050852D   8B86D0020000           mov     eax, [esi+$02D0]
  230. 00508533   E824D8F4FF             call    00455D5C
  231. 00508538   8B55F4                 mov     edx, [ebp-$0C]
  232. 0050853B   8B4A04                 mov     ecx, [edx+$04]
  233. 0050853E   8B55F4                 mov     edx, [ebp-$0C]
  234. 00508541   8B12                   mov     edx, [edx]
  235. 00508543   E8885FF1FF             call    0041E4D0
  236. 00508548   8B86D0020000           mov     eax, [esi+$02D0]
  237. 0050854E   E809D8F4FF             call    00455D5C
  238. 00508553   8B400C                 mov     eax, [eax+$0C]
  239. 00508556   BA8080FF00             mov     edx, $00FF8080
  240. 0050855B   E8F84DF1FF             call    0041D358
  241. 00508560   8B86D0020000           mov     eax, [esi+$02D0]
  242. 00508566   E8F1D7F4FF             call    00455D5C
  243. 0050856B   8B400C                 mov     eax, [eax+$0C]
  244. 0050856E   8A15BC855000           mov     dl, byte ptr [$5085BC]
  245. 00508574   E89F50F1FF             call    0041D618
  246. 00508579   8B45F4                 mov     eax, [ebp-$0C]
  247. 0050857C   8B4010                 mov     eax, [eax+$10]
  248. 0050857F   50                     push    eax
  249. 00508580   8B86D0020000           mov     eax, [esi+$02D0]
  250. 00508586   E8D1D7F4FF             call    00455D5C
  251. 0050858B   8B55F4                 mov     edx, [ebp-$0C]
  252. 0050858E   8B4A04                 mov     ecx, [edx+$04]
  253. 00508591   8B55F4                 mov     edx, [ebp-$0C]
  254. 00508594   8B12                   mov     edx, [edx]
  255. 00508596   E8355FF1FF             call    0041E4D0
  256. 0050859B   C60300                 mov     byte ptr [ebx], $00
  257. 0050859E   FF45FC                 inc     dword ptr [ebp-$04]
  258. 005085A1   8345E814               add     dword ptr [ebp-$18], +$14
  259. 005085A5   43                     inc     ebx
  260. 005085A6   4F                     dec     edi
  261. 005085A7   0F8534FFFFFF           jnz     005084E1
  262. 005085AD   5F                     pop     edi
  263. 005085AE   5E                     pop     esi
  264. 005085AF   5B                     pop     ebx
  265. 005085B0   8BE5                   mov     esp, ebp
  266. 005085B2   5D                     pop     ebp
  267. 005085B3   C208                   ret     $08
  270. }
  271.  end ; 
  273. procedure TAbout.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  274. begin
  275. {
  276. 005071D4   55                     push    ebp
  277. 005071D5   8BEC                   mov     ebp, esp
  278. 005071D7   53                     push    ebx
  279. 005071D8   8BD8                   mov     ebx, eax
  280. 005071DA   8B83C4020000           mov     eax, [ebx+$02C4]
  281. 005071E0   8B4024                 mov     eax, [eax+$24]
  282. 005071E3   E8F452F3FF             call    0043C4DC
  283. 005071E8   50                     push    eax
  285. * Reference to: SHBrowseForFolderA.SetCapture
  286. |
  287. 005071E9   E88A06F0FF             call    00407878
  288. 005071EE   C783FC020000FFFFFFFF   mov     dword ptr [ebx+$02FC], $FFFFFFFF
  289. 005071F8   8B450C                 mov     eax, [ebp+$0C]
  290. 005071FB   8983F4020000           mov     [ebx+$02F4], eax
  291. 00507201   8B4508                 mov     eax, [ebp+$08]
  292. 00507204   8983F8020000           mov     [ebx+$02F8], eax
  293. 0050720A   5B                     pop     ebx
  294. 0050720B   5D                     pop     ebp
  295. 0050720C   C20C                   ret     $0C
  298. }
  299.  end ; 
  301. procedure TAbout.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  302. begin
  303. {
  304. 00507210   55                     push    ebp
  305. 00507211   8BEC                   mov     ebp, esp
  306. 00507213   53                     push    ebx
  307. 00507214   56                     push    esi
  308. 00507215   8BD8                   mov     ebx, eax
  309. 00507217   83BBFC02000000         cmp     dword ptr [ebx+$02FC], +$00
  310. 0050721E   7433                   jz      00507253
  311. 00507220   8B83C4020000           mov     eax, [ebx+$02C4]
  312. 00507226   8B7024                 mov     esi, [eax+$24]
  313. 00507229   8B83F4020000           mov     eax, [ebx+$02F4]
  314. 0050722F   2B450C                 sub     eax, dword ptr [ebp+$0C]
  315. 00507232   8B5630                 mov     edx, [esi+$30]
  316. 00507235   2BD0                   sub     edx, eax
  317. 00507237   8BC6                   mov     eax, esi
  318. 00507239   E86EECF2FF             call    00435EAC
  319. 0050723E   8B83F8020000           mov     eax, [ebx+$02F8]
  320. 00507244   2B4508                 sub     eax, dword ptr [ebp+$08]
  321. 00507247   8B5634                 mov     edx, [esi+$34]
  322. 0050724A   2BD0                   sub     edx, eax
  323. 0050724C   8BC6                   mov     eax, esi
  324. 0050724E   E87DECF2FF             call    00435ED0
  325. 00507253   5E                     pop     esi
  326. 00507254   5B                     pop     ebx
  327. 00507255   5D                     pop     ebp
  328. 00507256   C208                   ret     $08
  331. }
  332.  end ; 
  334. procedure TAbout.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  335. begin
  336. {
  337. 0050725C   55                     push    ebp
  338. 0050725D   8BEC                   mov     ebp, esp
  339. 0050725F   53                     push    ebx
  340. 00507260   56                     push    esi
  341. 00507261   8BD8                   mov     ebx, eax
  342. 00507263   83BBFC02000000         cmp     dword ptr [ebx+$02FC], +$00
  343. 0050726A   7440                   jz      005072AC
  344. 0050726C   8B83C4020000           mov     eax, [ebx+$02C4]
  345. 00507272   8B7024                 mov     esi, [eax+$24]
  347. * Reference to: SHBrowseForFolderA.ReleaseCapture
  348. |
  349. 00507275   E8AE05F0FF             call    00407828
  350. 0050727A   33C0                   xor     eax, eax
  351. 0050727C   8983FC020000           mov     [ebx+$02FC], eax
  352. 00507282   8B83F4020000           mov     eax, [ebx+$02F4]
  353. 00507288   2B450C                 sub     eax, dword ptr [ebp+$0C]
  354. 0050728B   8B5630                 mov     edx, [esi+$30]
  355. 0050728E   2BD0                   sub     edx, eax
  356. 00507290   8BC6                   mov     eax, esi
  357. 00507292   E815ECF2FF             call    00435EAC
  358. 00507297   8B83F8020000           mov     eax, [ebx+$02F8]
  359. 0050729D   2B4508                 sub     eax, dword ptr [ebp+$08]
  360. 005072A0   8B5634                 mov     edx, [esi+$34]
  361. 005072A3   2BD0                   sub     edx, eax
  362. 005072A5   8BC6                   mov     eax, esi
  363. 005072A7   E824ECF2FF             call    00435ED0
  364. 005072AC   5E                     pop     esi
  365. 005072AD   5B                     pop     ebx
  366. 005072AE   5D                     pop     ebp
  367. 005072AF   C20C                   ret     $0C
  370. }
  371.  end ; 
  373. procedure TAbout.CloseButtonClick(Sender: TObject);
  374. begin
  375. {
  376. 005071CC   E8AB88F4FF             call    0044FA7C
  377. 005071D1   C3                     ret
  380. }
  381.  end ; 
  383. procedure TAbout.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  384. begin
  385. {
  386. 00508388   C705C8465400FFFFFFFF   mov     dword ptr [$5446C8], $FFFFFFFF
  387. 00508392   C3                     ret
  390. }
  391.  end ; 
  393. procedure TAbout.FormCreate(Sender: TObject);
  394. begin
  395. {
  396. 005071C4   E8B7FEFFFF             call    00507080
  397. 005071C9   C3                     ret
  400. }
  401.  end ; 
  403. procedure TAbout.FormHide(Sender: TObject);
  404. begin
  405. {
  406. 00508650   53                     push    ebx
  407. 00508651   8BD8                   mov     ebx, eax
  408. 00508653   C705C8465400FFFFFFFF   mov     dword ptr [$5446C8], $FFFFFFFF
  409. 0050865D   33D2                   xor     edx, edx
  410. 0050865F   8B83EC020000           mov     eax, [ebx+$02EC]
  411. 00508665   E876DFF2FF             call    004365E0
  412. 0050866A   33D2                   xor     edx, edx
  413. 0050866C   8B83E8020000           mov     eax, [ebx+$02E8]
  414. 00508672   E869DFF2FF             call    004365E0
  415. 00508677   5B                     pop     ebx
  416. 00508678   C3                     ret
  419. }
  420.  end ; 
  422. procedure TAbout.FormPaint(Sender: TObject);
  423. begin
  424. {
  425. 00508980   53                     push    ebx
  426. 00508981   56                     push    esi
  427. 00508982   57                     push    edi
  428. 00508983   55                     push    ebp
  429. 00508984   83C4E0                 add     esp, -$20
  430. 00508987   8BD8                   mov     ebx, eax
  431. 00508989   8B2DDC495400           mov     ebp, [$5449DC]
  432. 0050898F   8B733C                 mov     esi, [ebx+$3C]
  433. 00508992   83EE05                 sub     esi, +$05
  434. 00508995   83EE18                 sub     esi, +$18
  435. 00508998   7C5D                   jl      005089F7
  436. 0050899A   46                     inc     esi
  437. 0050899B   BF18000000             mov     edi, $00000018
  438. 005089A0   6A01                   push    $01
  439. 005089A2   8D442404               lea     eax, [esp+$04]
  440. 005089A6   50                     push    eax
  441. 005089A7   B904000000             mov     ecx, $00000004
  442. 005089AC   BA1A000000             mov     edx, $0000001A
  443. 005089B1   B801000000             mov     eax, $00000001
  444. 005089B6   E8857FF0FF             call    00410940
  445. 005089BB   54                     push    esp
  446. 005089BC   6A01                   push    $01
  447. 005089BE   8D442418               lea     eax, [esp+$18]
  448. 005089C2   50                     push    eax
  449. 005089C3   B904000000             mov     ecx, $00000004
  450. 005089C8   8BD7                   mov     edx, edi
  451. 005089CA   33C0                   xor     eax, eax
  452. 005089CC   E86F7FF0FF             call    00410940
  453. 005089D1   8D442414               lea     eax, [esp+$14]
  454. 005089D5   50                     push    eax
  455. 005089D6   8B4500                 mov     eax, [ebp+$00]
  456. 005089D9   8B80E80A0000           mov     eax, [eax+$0AE8]
  457. 005089DF   E8ACA9F1FF             call    00423390
  458. 005089E4   50                     push    eax
  459. 005089E5   8BC3                   mov     eax, ebx
  460. 005089E7   E8144BF4FF             call    0044D500
  461. 005089EC   59                     pop     ecx
  462. 005089ED   5A                     pop     edx
  463. 005089EE   E85956F1FF             call    0041E04C
  464. 005089F3   47                     inc     edi
  465. 005089F4   4E                     dec     esi
  466. 005089F5   75A9                   jnz     005089A0
  467. 005089F7   8B733C                 mov     esi, [ebx+$3C]
  468. 005089FA   83EE05                 sub     esi, +$05
  469. 005089FD   83EE18                 sub     esi, +$18
  470. 00508A00   7C61                   jl      00508A63
  471. 00508A02   46                     inc     esi
  472. 00508A03   BF18000000             mov     edi, $00000018
  473. 00508A08   6A01                   push    $01
  474. 00508A0A   8D442404               lea     eax, [esp+$04]
  475. 00508A0E   50                     push    eax
  476. 00508A0F   B904000000             mov     ecx, $00000004
  477. 00508A14   BA1A000000             mov     edx, $0000001A
  478. 00508A19   B830000000             mov     eax, $00000030
  479. 00508A1E   E81D7FF0FF             call    00410940
  480. 00508A23   54                     push    esp
  481. 00508A24   6A01                   push    $01
  482. 00508A26   8D442418               lea     eax, [esp+$18]
  483. 00508A2A   50                     push    eax
  484. 00508A2B   8B4338                 mov     eax, [ebx+$38]
  485. 00508A2E   83E804                 sub     eax, +$04
  486. 00508A31   B904000000             mov     ecx, $00000004
  487. 00508A36   8BD7                   mov     edx, edi
  488. 00508A38   E8037FF0FF             call    00410940
  489. 00508A3D   8D442414               lea     eax, [esp+$14]
  490. 00508A41   50                     push    eax
  491. 00508A42   8B4500                 mov     eax, [ebp+$00]
  492. 00508A45   8B80E80A0000           mov     eax, [eax+$0AE8]
  493. 00508A4B   E840A9F1FF             call    00423390
  494. 00508A50   50                     push    eax
  495. 00508A51   8BC3                   mov     eax, ebx
  496. 00508A53   E8A84AF4FF             call    0044D500
  497. 00508A58   59                     pop     ecx
  498. 00508A59   5A                     pop     edx
  499. 00508A5A   E8ED55F1FF             call    0041E04C
  500. 00508A5F   47                     inc     edi
  501. 00508A60   4E                     dec     esi
  502. 00508A61   75A5                   jnz     00508A08
  503. 00508A63   8B7338                 mov     esi, [ebx+$38]
  504. 00508A66   83EE18                 sub     esi, +$18
  505. 00508A69   83EE18                 sub     esi, +$18
  506. 00508A6C   7C5D                   jl      00508ACB
  507. 00508A6E   46                     inc     esi
  508. 00508A6F   BF18000000             mov     edi, $00000018
  509. 00508A74   6A18                   push    $18
  510. 00508A76   8D442404               lea     eax, [esp+$04]
  511. 00508A7A   50                     push    eax
  512. 00508A7B   B901000000             mov     ecx, $00000001
  513. 00508A80   BA01000000             mov     edx, $00000001
  514. 00508A85   B81A000000             mov     eax, $0000001A
  515. 00508A8A   E8B17EF0FF             call    00410940
  516. 00508A8F   54                     push    esp
  517. 00508A90   6A18                   push    $18
  518. 00508A92   8D442418               lea     eax, [esp+$18]
  519. 00508A96   50                     push    eax
  520. 00508A97   B901000000             mov     ecx, $00000001
  521. 00508A9C   33D2                   xor     edx, edx
  522. 00508A9E   8BC7                   mov     eax, edi
  523. 00508AA0   E89B7EF0FF             call    00410940
  524. 00508AA5   8D442414               lea     eax, [esp+$14]
  525. 00508AA9   50                     push    eax
  526. 00508AAA   8B4500                 mov     eax, [ebp+$00]
  527. 00508AAD   8B80E80A0000           mov     eax, [eax+$0AE8]
  528. 00508AB3   E8D8A8F1FF             call    00423390
  529. 00508AB8   50                     push    eax
  530. 00508AB9   8BC3                   mov     eax, ebx
  531. 00508ABB   E8404AF4FF             call    0044D500
  532. 00508AC0   59                     pop     ecx
  533. 00508AC1   5A                     pop     edx
  534. 00508AC2   E88555F1FF             call    0041E04C
  535. 00508AC7   47                     inc     edi
  536. 00508AC8   4E                     dec     esi
  537. 00508AC9   75A9                   jnz     00508A74
  538. 00508ACB   8B7338                 mov     esi, [ebx+$38]
  539. 00508ACE   83EE04                 sub     esi, +$04
  540. 00508AD1   83EE04                 sub     esi, +$04
  541. 00508AD4   7C61                   jl      00508B37
  542. 00508AD6   46                     inc     esi
  543. 00508AD7   BF04000000             mov     edi, $00000004
  544. 00508ADC   6A04                   push    $04
  545. 00508ADE   8D442404               lea     eax, [esp+$04]
  546. 00508AE2   50                     push    eax
  547. 00508AE3   B901000000             mov     ecx, $00000001
  548. 00508AE8   BA1C000000             mov     edx, $0000001C
  549. 00508AED   B81A000000             mov     eax, $0000001A
  550. 00508AF2   E8497EF0FF             call    00410940
  551. 00508AF7   54                     push    esp
  552. 00508AF8   6A04                   push    $04
  553. 00508AFA   8D442418               lea     eax, [esp+$18]
  554. 00508AFE   50                     push    eax
  555. 00508AFF   8B533C                 mov     edx, [ebx+$3C]
  556. 00508B02   83EA04                 sub     edx, +$04
  557. 00508B05   B901000000             mov     ecx, $00000001
  558. 00508B0A   8BC7                   mov     eax, edi
  559. 00508B0C   E82F7EF0FF             call    00410940
  560. 00508B11   8D442414               lea     eax, [esp+$14]
  561. 00508B15   50                     push    eax
  562. 00508B16   8B4500                 mov     eax, [ebp+$00]
  563. 00508B19   8B80E80A0000           mov     eax, [eax+$0AE8]
  564. 00508B1F   E86CA8F1FF             call    00423390
  565. 00508B24   50                     push    eax
  566. 00508B25   8BC3                   mov     eax, ebx
  567. 00508B27   E8D449F4FF             call    0044D500
  568. 00508B2C   59                     pop     ecx
  569. 00508B2D   5A                     pop     edx
  570. 00508B2E   E81955F1FF             call    0041E04C
  571. 00508B33   47                     inc     edi
  572. 00508B34   4E                     dec     esi
  573. 00508B35   75A5                   jnz     00508ADC
  574. 00508B37   6A18                   push    $18
  575. 00508B39   8D442404               lea     eax, [esp+$04]
  576. 00508B3D   50                     push    eax
  577. 00508B3E   B918000000             mov     ecx, $00000018
  578. 00508B43   BA01000000             mov     edx, $00000001
  579. 00508B48   B801000000             mov     eax, $00000001
  580. 00508B4D   E8EE7DF0FF             call    00410940
  581. 00508B52   54                     push    esp
  582. 00508B53   6A18                   push    $18
  583. 00508B55   8D442418               lea     eax, [esp+$18]
  584. 00508B59   50                     push    eax
  585. 00508B5A   B918000000             mov     ecx, $00000018
  586. 00508B5F   33D2                   xor     edx, edx
  587. 00508B61   33C0                   xor     eax, eax
  588. 00508B63   E8D87DF0FF             call    00410940
  589. 00508B68   8D442414               lea     eax, [esp+$14]
  590. 00508B6C   50                     push    eax
  591. 00508B6D   8B4500                 mov     eax, [ebp+$00]
  592. 00508B70   8B80E80A0000           mov     eax, [eax+$0AE8]
  593. 00508B76   E815A8F1FF             call    00423390
  594. 00508B7B   50                     push    eax
  595. 00508B7C   8BC3                   mov     eax, ebx
  596. 00508B7E   E87D49F4FF             call    0044D500
  597. 00508B83   59                     pop     ecx
  598. 00508B84   5A                     pop     edx
  599. 00508B85   E8C254F1FF             call    0041E04C
  600. 00508B8A   6A18                   push    $18
  601. 00508B8C   8D442404               lea     eax, [esp+$04]
  602. 00508B90   50                     push    eax
  603. 00508B91   B918000000             mov     ecx, $00000018
  604. 00508B96   BA01000000             mov     edx, $00000001
  605. 00508B9B   B81C000000             mov     eax, $0000001C
  606. 00508BA0   E89B7DF0FF             call    00410940
  607. 00508BA5   54                     push    esp
  608. 00508BA6   6A18                   push    $18
  609. 00508BA8   8D442418               lea     eax, [esp+$18]
  610. 00508BAC   50                     push    eax
  611. 00508BAD   8B4338                 mov     eax, [ebx+$38]
  612. 00508BB0   83E818                 sub     eax, +$18
  613. 00508BB3   B918000000             mov     ecx, $00000018
  614. 00508BB8   33D2                   xor     edx, edx
  615. 00508BBA   E8817DF0FF             call    00410940
  616. 00508BBF   8D442414               lea     eax, [esp+$14]
  617. 00508BC3   50                     push    eax
  618. 00508BC4   8B4500                 mov     eax, [ebp+$00]
  619. 00508BC7   8B80E80A0000           mov     eax, [eax+$0AE8]
  620. 00508BCD   E8BEA7F1FF             call    00423390
  621. 00508BD2   50                     push    eax
  622. 00508BD3   8BC3                   mov     eax, ebx
  623. 00508BD5   E82649F4FF             call    0044D500
  624. 00508BDA   59                     pop     ecx
  625. 00508BDB   5A                     pop     edx
  626. 00508BDC   E86B54F1FF             call    0041E04C
  627. 00508BE1   6A04                   push    $04
  628. 00508BE3   8D442404               lea     eax, [esp+$04]
  629. 00508BE7   50                     push    eax
  630. 00508BE8   B904000000             mov     ecx, $00000004
  631. 00508BED   BA1C000000             mov     edx, $0000001C
  632. 00508BF2   B801000000             mov     eax, $00000001
  633. 00508BF7   E8447DF0FF             call    00410940
  634. 00508BFC   54                     push    esp
  635. 00508BFD   6A04                   push    $04
  636. 00508BFF   8D442418               lea     eax, [esp+$18]
  637. 00508C03   50                     push    eax
  638. 00508C04   8B533C                 mov     edx, [ebx+$3C]
  639. 00508C07   83EA04                 sub     edx, +$04
  640. 00508C0A   B904000000             mov     ecx, $00000004
  641. 00508C0F   33C0                   xor     eax, eax
  642. 00508C11   E82A7DF0FF             call    00410940
  643. 00508C16   8D442414               lea     eax, [esp+$14]
  644. 00508C1A   50                     push    eax
  645. 00508C1B   8B4500                 mov     eax, [ebp+$00]
  646. 00508C1E   8B80E80A0000           mov     eax, [eax+$0AE8]
  647. 00508C24   E867A7F1FF             call    00423390
  648. 00508C29   50                     push    eax
  649. 00508C2A   8BC3                   mov     eax, ebx
  650. 00508C2C   E8CF48F4FF             call    0044D500
  651. 00508C31   59                     pop     ecx
  652. 00508C32   5A                     pop     edx
  653. 00508C33   E81454F1FF             call    0041E04C
  654. 00508C38   6A04                   push    $04
  655. 00508C3A   8D442404               lea     eax, [esp+$04]
  656. 00508C3E   50                     push    eax
  657. 00508C3F   B904000000             mov     ecx, $00000004
  658. 00508C44   BA1C000000             mov     edx, $0000001C
  659. 00508C49   B830000000             mov     eax, $00000030
  660. 00508C4E   E8ED7CF0FF             call    00410940
  661. 00508C53   54                     push    esp
  662. 00508C54   6A04                   push    $04
  663. 00508C56   8D442418               lea     eax, [esp+$18]
  664. 00508C5A   50                     push    eax
  665. 00508C5B   8B533C                 mov     edx, [ebx+$3C]
  666. 00508C5E   83EA04                 sub     edx, +$04
  667. 00508C61   8B4338                 mov     eax, [ebx+$38]
  668. 00508C64   83E804                 sub     eax, +$04
  669. 00508C67   B904000000             mov     ecx, $00000004
  670. 00508C6C   E8CF7CF0FF             call    00410940
  671. 00508C71   8D442414               lea     eax, [esp+$14]
  672. 00508C75   50                     push    eax
  673. 00508C76   8B4500                 mov     eax, [ebp+$00]
  674. 00508C79   8B80E80A0000           mov     eax, [eax+$0AE8]
  675. 00508C7F   E80CA7F1FF             call    00423390
  676. 00508C84   50                     push    eax
  677. 00508C85   8BC3                   mov     eax, ebx
  678. 00508C87   E87448F4FF             call    0044D500
  679. 00508C8C   59                     pop     ecx
  680. 00508C8D   5A                     pop     edx
  681. 00508C8E   E8B953F1FF             call    0041E04C
  682. 00508C93   8BC3                   mov     eax, ebx
  683. 00508C95   E86648F4FF             call    0044D500
  684. 00508C9A   8B4014                 mov     eax, [eax+$14]
  685. 00508C9D   8B5500                 mov     edx, [ebp+$00]
  686. 00508CA0   8B92180B0000           mov     edx, [edx+$0B18]
  687. 00508CA6   E8714EF1FF             call    0041DB1C
  688. 00508CAB   8B433C                 mov     eax, [ebx+$3C]
  689. 00508CAE   83E81C                 sub     eax, +$1C
  690. 00508CB1   50                     push    eax
  691. 00508CB2   8D442404               lea     eax, [esp+$04]
  692. 00508CB6   50                     push    eax
  693. 00508CB7   8B4B38                 mov     ecx, [ebx+$38]
  694. 00508CBA   83E908                 sub     ecx, +$08
  695. 00508CBD   BA18000000             mov     edx, $00000018
  696. 00508CC2   B804000000             mov     eax, $00000004
  697. 00508CC7   E8747CF0FF             call    00410940
  698. 00508CCC   54                     push    esp
  699. 00508CCD   8BC3                   mov     eax, ebx
  700. 00508CCF   E82C48F4FF             call    0044D500
  701. 00508CD4   5A                     pop     edx
  702. 00508CD5   E82255F1FF             call    0041E1FC
  703. 00508CDA   83C420                 add     esp, +$20
  704. 00508CDD   5D                     pop     ebp
  705. 00508CDE   5F                     pop     edi
  706. 00508CDF   5E                     pop     esi
  707. 00508CE0   5B                     pop     ebx
  708. 00508CE1   C3                     ret
  711. }
  712.  end ; 
  714. procedure TAbout.FormResize(Sender: TObject);
  715. begin
  716. {
  717. 00508CE4   8B10                   mov     edx, [eax]
  718. 00508CE6   FF5278                 call    dword ptr [edx+$78]
  719. 00508CE9   C3                     ret
  722. }
  723.  end ; 
  725. procedure TAbout.FormShow(Sender: TObject);
  726. begin
  727. {
  728. 005072B4   53                     push    ebx
  729. 005072B5   8BD8                   mov     ebx, eax
  730. 005072B7   33C0                   xor     eax, eax
  731. 005072B9   A3CC465400             mov     dword ptr [$5446CC], eax
  732. 005072BE   B201                   mov     dl, $01
  733. 005072C0   8B83D8020000           mov     eax, [ebx+$02D8]
  734. 005072C6   E8F5EEF4FF             call    004561C0
  735. 005072CB   33C0                   xor     eax, eax
  736. 005072CD   A3C8465400             mov     dword ptr [$5446C8], eax
  737. 005072D2   33D2                   xor     edx, edx
  738. 005072D4   8B83EC020000           mov     eax, [ebx+$02EC]
  739. 005072DA   E801F3F2FF             call    004365E0
  740. 005072DF   33D2                   xor     edx, edx
  741. 005072E1   8B83E8020000           mov     eax, [ebx+$02E8]
  742. 005072E7   E8F4F2F2FF             call    004365E0
  743. 005072EC   8BC3                   mov     eax, ebx
  744. 005072EE   E805000000             call    005072F8
  745. 005072F3   5B                     pop     ebx
  746. 005072F4   C3                     ret
  749. }
  750.  end ; 
  752. procedure TAbout.OutlookBtn2Click(Sender: TObject);
  753. begin
  754. {
  755. 00508974   BA01000000             mov     edx, $00000001
  756. 00508979   E80EFDFFFF             call    0050868C
  757. 0050897E   C3                     ret
  760. }
  761.  end ; 
  763. procedure TAbout.OutlookBtn3Click(Sender: TObject);
  764. begin
  765. {
  766. 0050867C   C705C8465400FFFFFFFF   mov     dword ptr [$5446C8], $FFFFFFFF
  767. 00508686   E8F173F4FF             call    0044FA7C
  768. 0050868B   C3                     ret
  771. }
  772.  end ; 
  774. procedure TAbout.Timer1Timer(Sender: TObject);
  775. begin
  776. {
  777. 0050836C   53                     push    ebx
  778. 0050836D   8BD8                   mov     ebx, eax
  779. 0050836F   33D2                   xor     edx, edx
  780. 00508371   8B83D8020000           mov     eax, [ebx+$02D8]
  781. 00508377   E844DEF4FF             call    004561C0
  782. 0050837C   8BC3                   mov     eax, ebx
  783. 0050837E   E879F7FFFF             call    00507AFC
  784. 00508383   5B                     pop     ebx
  785. 00508384   C3                     ret
  788. }
  789.  end ; 
  791. end.