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

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

远程控制编程

开发平台：

Delphi

FileMunit.pas：源码内容
  1. unit FileMunit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, StdCtrls;
  9. type
  10.   TfileM=class(TForm)
  11.     CaptionLabel: TLabel;
  12.     path: TLabel;
  13.     OutlookBtn1: TOutlookBtn;
  14.     OutlookBtn2: TOutlookBtn;
  15.     OutlookBtn3: TOutlookBtn;
  16.     OutlookBtn4: TOutlookBtn;
  17.     OutlookBtn5: TOutlookBtn;
  18.     OutlookBtn6: TOutlookBtn;
  19.     OutlookBtn7: TOutlookBtn;
  20.     OutlookBtn8: TOutlookBtn;
  21.     OutlookBtn9: TOutlookBtn;
  22.     OutlookBtn10: TOutlookBtn;
  23.     OutlookBtn11: TOutlookBtn;
  24.     OutlookBtn12: TOutlookBtn;
  25.     OutlookBtn13: TOutlookBtn;
  26.     stat: TLabel;
  27.     OutlookBtn14: TOutlookBtn;
  28.     OutlookBtn15: TOutlookBtn;
  29.     OutlookBtn16: TOutlookBtn;
  30.     bbutton: TFlatSpeedButton;
  31.     CloseButton: TFlatSpeedButton;
  32.     fisiere: TListBox;
  33.     OpenUpFile: TOpenDialog;
  34.     procedure bbuttonClick(Sender: TObject);
  35.     procedure bbuttonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  36.     procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  37.     procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  38.     procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  39.     procedure CloseButtonClick(Sender: TObject);
  40.     procedure fisiereDblClick(Sender: TObject);
  41.     procedure FormCreate(Sender: TObject);
  42.     procedure FormPaint(Sender: TObject);
  43.     procedure FormResize(Sender: TObject);
  44.     procedure OutlookBtn10Click(Sender: TObject);
  45.     procedure OutlookBtn11Click(Sender: TObject);
  46.     procedure OutlookBtn12Click(Sender: TObject);
  47.     procedure OutlookBtn13Click(Sender: TObject);
  48.     procedure OutlookBtn14Click(Sender: TObject);
  49.     procedure OutlookBtn15Click(Sender: TObject);
  50.     procedure OutlookBtn16Click(Sender: TObject);
  51.     procedure OutlookBtn1Click(Sender: TObject);
  52.     procedure OutlookBtn2Click(Sender: TObject);
  53.     procedure OutlookBtn3Click(Sender: TObject);
  54.     procedure OutlookBtn4Click(Sender: TObject);
  55.     procedure OutlookBtn5Click(Sender: TObject);
  56.     procedure OutlookBtn6Click(Sender: TObject);
  57.     procedure OutlookBtn7Click(Sender: TObject);
  58.     procedure OutlookBtn8Click(Sender: TObject);
  59.     procedure OutlookBtn9Click(Sender: TObject);
  60.   private
  61.     { Private declarations }
  62.   public
  63.     { Public declarations }
  64.   end ;
  66. var
  67.   fileM: TfileM;
  70. {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
  72. implementation
  74. {$R *.DFM}
  77. procedure TfileM.bbuttonClick(Sender: TObject);
  78. begin
  79. {
  80. 004D4280   8B1518485400           mov     edx, [$544818]
  81. 004D4286   8B12                   mov     edx, [edx]
  82. 004D4288   A13C495400             mov     eax, dword ptr [$54493C]
  83. 004D428D   8B00                   mov     eax, [eax]
  84. 004D428F   E8A861FFFF             call    004CA43C
  85. 004D4294   C3                     ret
  88. }
  89.  end ; 
  91. procedure TfileM.bbuttonMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  92. begin
  93. {
  94. 004D4298   55                     push    ebp
  95. 004D4299   8BEC                   mov     ebp, esp
  96. 004D429B   6A00                   push    $00
  97. 004D429D   53                     push    ebx
  98. 004D429E   8BD8                   mov     ebx, eax
  99. 004D42A0   33C0                   xor     eax, eax
  100. 004D42A2   55                     push    ebp
  101. 004D42A3   68F2424D00             push    $004D42F2
  103. ***** TRY
  104. |
  105. 004D42A8   64FF30                 push    dword ptr fs:[eax]
  106. 004D42AB   648920                 mov     fs:[eax], esp
  107. 004D42AE   80F901                 cmp     cl, $01
  108. 004D42B1   7529                   jnz     004D42DC
  109. 004D42B3   8D55FC                 lea     edx, [ebp-$04]
  110. 004D42B6   8B83CC020000           mov     eax, [ebx+$02CC]
  111. 004D42BC   E82F24F6FF             call    004366F0
  112. 004D42C1   8B55FC                 mov     edx, [ebp-$04]
  113. 004D42C4   A118485400             mov     eax, dword ptr [$544818]
  114. 004D42C9   8B00                   mov     eax, [eax]
  115. 004D42CB   8B80CC020000           mov     eax, [eax+$02CC]
  116. 004D42D1   8B80EC010000           mov     eax, [eax+$01EC]
  117. 004D42D7   8B08                   mov     ecx, [eax]
  118. 004D42D9   FF5134                 call    dword ptr [ecx+$34]
  119. 004D42DC   33C0                   xor     eax, eax
  120. 004D42DE   5A                     pop     edx
  121. 004D42DF   59                     pop     ecx
  122. 004D42E0   59                     pop     ecx
  123. 004D42E1   648910                 mov     fs:[eax], edx
  125. ****** FINALLY
  126. |
  127. 004D42E4   68F9424D00             push    $004D42F9
  128. 004D42E9   8D45FC                 lea     eax, [ebp-$04]
  129. 004D42EC   E86BF9F2FF             call    00403C5C
  130. 004D42F1   C3                     ret
  132. 004D42F2   E969F3F2FF             jmp     00403660
  133. 004D42F7   EBF0                   jmp     004D42E9
  135. ****** END
  136. |
  137. 004D42F9   5B                     pop     ebx
  138. 004D42FA   59                     pop     ecx
  139. 004D42FB   5D                     pop     ebp
  140. 004D42FC   C20C                   ret     $0C
  143. }
  144.  end ; 
  146. procedure TfileM.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  147. begin
  148. {
  149. 004D24C0   55                     push    ebp
  150. 004D24C1   8BEC                   mov     ebp, esp
  151. 004D24C3   53                     push    ebx
  152. 004D24C4   8BD8                   mov     ebx, eax
  153. 004D24C6   8B83C4020000           mov     eax, [ebx+$02C4]
  154. 004D24CC   8B4024                 mov     eax, [eax+$24]
  155. 004D24CF   E808A0F6FF             call    0043C4DC
  156. 004D24D4   50                     push    eax
  158. * Reference to: SHBrowseForFolderA.SetCapture
  159. |
  160. 004D24D5   E89E53F3FF             call    00407878
  161. 004D24DA   C78328030000FFFFFFFF   mov     dword ptr [ebx+$0328], $FFFFFFFF
  162. 004D24E4   8B450C                 mov     eax, [ebp+$0C]
  163. 004D24E7   898320030000           mov     [ebx+$0320], eax
  164. 004D24ED   8B4508                 mov     eax, [ebp+$08]
  165. 004D24F0   898324030000           mov     [ebx+$0324], eax
  166. 004D24F6   5B                     pop     ebx
  167. 004D24F7   5D                     pop     ebp
  168. 004D24F8   C20C                   ret     $0C
  171. }
  172.  end ; 
  174. procedure TfileM.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
  175. begin
  176. {
  177. 004D24FC   55                     push    ebp
  178. 004D24FD   8BEC                   mov     ebp, esp
  179. 004D24FF   53                     push    ebx
  180. 004D2500   56                     push    esi
  181. 004D2501   8BD8                   mov     ebx, eax
  182. 004D2503   83BB2803000000         cmp     dword ptr [ebx+$0328], +$00
  183. 004D250A   7433                   jz      004D253F
  184. 004D250C   8B83C4020000           mov     eax, [ebx+$02C4]
  185. 004D2512   8B7024                 mov     esi, [eax+$24]
  186. 004D2515   8B8320030000           mov     eax, [ebx+$0320]
  187. 004D251B   2B450C                 sub     eax, dword ptr [ebp+$0C]
  188. 004D251E   8B5630                 mov     edx, [esi+$30]
  189. 004D2521   2BD0                   sub     edx, eax
  190. 004D2523   8BC6                   mov     eax, esi
  191. 004D2525   E88239F6FF             call    00435EAC
  192. 004D252A   8B8324030000           mov     eax, [ebx+$0324]
  193. 004D2530   2B4508                 sub     eax, dword ptr [ebp+$08]
  194. 004D2533   8B5634                 mov     edx, [esi+$34]
  195. 004D2536   2BD0                   sub     edx, eax
  196. 004D2538   8BC6                   mov     eax, esi
  197. 004D253A   E89139F6FF             call    00435ED0
  198. 004D253F   5E                     pop     esi
  199. 004D2540   5B                     pop     ebx
  200. 004D2541   5D                     pop     ebp
  201. 004D2542   C208                   ret     $08
  204. }
  205.  end ; 
  207. procedure TfileM.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
  208. begin
  209. {
  210. 004D2548   55                     push    ebp
  211. 004D2549   8BEC                   mov     ebp, esp
  212. 004D254B   53                     push    ebx
  213. 004D254C   56                     push    esi
  214. 004D254D   8BD8                   mov     ebx, eax
  215. 004D254F   83BB2803000000         cmp     dword ptr [ebx+$0328], +$00
  216. 004D2556   7440                   jz      004D2598
  217. 004D2558   8B83C4020000           mov     eax, [ebx+$02C4]
  218. 004D255E   8B7024                 mov     esi, [eax+$24]
  220. * Reference to: SHBrowseForFolderA.ReleaseCapture
  221. |
  222. 004D2561   E8C252F3FF             call    00407828
  223. 004D2566   33C0                   xor     eax, eax
  224. 004D2568   898328030000           mov     [ebx+$0328], eax
  225. 004D256E   8B8320030000           mov     eax, [ebx+$0320]
  226. 004D2574   2B450C                 sub     eax, dword ptr [ebp+$0C]
  227. 004D2577   8B5630                 mov     edx, [esi+$30]
  228. 004D257A   2BD0                   sub     edx, eax
  229. 004D257C   8BC6                   mov     eax, esi
  230. 004D257E   E82939F6FF             call    00435EAC
  231. 004D2583   8B8324030000           mov     eax, [ebx+$0324]
  232. 004D2589   2B4508                 sub     eax, dword ptr [ebp+$08]
  233. 004D258C   8B5634                 mov     edx, [esi+$34]
  234. 004D258F   2BD0                   sub     edx, eax
  235. 004D2591   8BC6                   mov     eax, esi
  236. 004D2593   E83839F6FF             call    00435ED0
  237. 004D2598   5E                     pop     esi
  238. 004D2599   5B                     pop     ebx
  239. 004D259A   5D                     pop     ebp
  240. 004D259B   C20C                   ret     $0C
  243. }
  244.  end ; 
  246. procedure TfileM.CloseButtonClick(Sender: TObject);
  247. begin
  248. {
  249. 004D24B8   E8BFD5F7FF             call    0044FA7C
  250. 004D24BD   C3                     ret
  253. }
  254.  end ; 
  256. procedure TfileM.fisiereDblClick(Sender: TObject);
  257. begin
  258. {
  259. 004D2708   55                     push    ebp
  260. 004D2709   8BEC                   mov     ebp, esp
  261. 004D270B   33C9                   xor     ecx, ecx
  262. 004D270D   51                     push    ecx
  263. 004D270E   51                     push    ecx
  264. 004D270F   51                     push    ecx
  265. 004D2710   51                     push    ecx
  266. 004D2711   53                     push    ebx
  267. 004D2712   56                     push    esi
  268. 004D2713   57                     push    edi
  269. 004D2714   8BD8                   mov     ebx, eax
  270. 004D2716   33C0                   xor     eax, eax
  271. 004D2718   55                     push    ebp
  272. 004D2719   6850284D00             push    $004D2850
  274. ***** TRY
  275. |
  276. 004D271E   64FF30                 push    dword ptr fs:[eax]
  277. 004D2721   648920                 mov     fs:[eax], esp
  278. 004D2724   8D55F4                 lea     edx, [ebp-$0C]
  279. 004D2727   8B83CC020000           mov     eax, [ebx+$02CC]
  280. 004D272D   E8BE3FF6FF             call    004366F0
  281. 004D2732   8BB3C8020000           mov     esi, [ebx+$02C8]
  282. 004D2738   8BC6                   mov     eax, esi
  283. 004D273A   E831DAF5FF             call    00430170
  284. 004D273F   8BD0                   mov     edx, eax
  285. 004D2741   8D4DFC                 lea     ecx, [ebp-$04]
  286. 004D2744   8B86EC010000           mov     eax, [esi+$01EC]
  287. 004D274A   8B30                   mov     esi, [eax]
  288. 004D274C   FF560C                 call    dword ptr [esi+$0C]
  289. 004D274F   8D45F0                 lea     eax, [ebp-$10]
  290. 004D2752   50                     push    eax
  291. 004D2753   B901000000             mov     ecx, $00000001
  292. 004D2758   BA01000000             mov     edx, $00000001
  293. 004D275D   8B45FC                 mov     eax, [ebp-$04]
  294. 004D2760   E87719F3FF             call    004040DC
  295. 004D2765   8B45F0                 mov     eax, [ebp-$10]
  296. 004D2768   BA68284D00             mov     edx, $004D2868
  297. 004D276D   E87618F3FF             call    00403FE8
  298. 004D2772   0F85BD000000           jnz     004D2835
  299. 004D2778   8B83C8020000           mov     eax, [ebx+$02C8]
  300. 004D277E   8B80EC010000           mov     eax, [eax+$01EC]
  301. 004D2784   8B10                   mov     edx, [eax]
  302. 004D2786   FF5240                 call    dword ptr [edx+$40]
  303. 004D2789   8D45F8                 lea     eax, [ebp-$08]
  304. 004D278C   50                     push    eax
  305. 004D278D   8B45FC                 mov     eax, [ebp-$04]
  306. 004D2790   E84317F3FF             call    00403ED8
  307. 004D2795   8BC8                   mov     ecx, eax
  308. 004D2797   83E902                 sub     ecx, +$02
  309. 004D279A   BA02000000             mov     edx, $00000002
  310. 004D279F   8B45FC                 mov     eax, [ebp-$04]
  311. 004D27A2   E83519F3FF             call    004040DC
  312. 004D27A7   8B45F8                 mov     eax, [ebp-$08]
  314. * Possible String Reference to: ".."
  315. |
  316. 004D27AA   BA74284D00             mov     edx, $004D2874
  317. 004D27AF   E83418F3FF             call    00403FE8
  318. 004D27B4   741A                   jz      004D27D0
  319. 004D27B6   FF75F4                 push    dword ptr [ebp-$0C]
  320. 004D27B9   6880284D00             push    $004D2880
  321. 004D27BE   FF75F8                 push    dword ptr [ebp-$08]
  322. 004D27C1   8D45F4                 lea     eax, [ebp-$0C]
  323. 004D27C4   BA03000000             mov     edx, $00000003
  324. 004D27C9   E8CA17F3FF             call    00403F98
  325. 004D27CE   EB50                   jmp     004D2820
  326. 004D27D0   33FF                   xor     edi, edi
  327. 004D27D2   8B45F4                 mov     eax, [ebp-$0C]
  328. 004D27D5   E8FE16F3FF             call    00403ED8
  329. 004D27DA   8BF0                   mov     esi, eax
  330. 004D27DC   83FE01                 cmp     esi, +$01
  331. 004D27DF   7C2B                   jl      004D280C
  332. 004D27E1   8D45F0                 lea     eax, [ebp-$10]
  333. 004D27E4   50                     push    eax
  334. 004D27E5   B901000000             mov     ecx, $00000001
  335. 004D27EA   8BD6                   mov     edx, esi
  336. 004D27EC   8B45F4                 mov     eax, [ebp-$0C]
  337. 004D27EF   E8E818F3FF             call    004040DC
  338. 004D27F4   8B45F0                 mov     eax, [ebp-$10]
  339. 004D27F7   BA80284D00             mov     edx, $004D2880
  340. 004D27FC   E8E717F3FF             call    00403FE8
  341. 004D2801   7504                   jnz     004D2807
  342. 004D2803   8BFE                   mov     edi, esi
  343. 004D2805   EB05                   jmp     004D280C
  344. 004D2807   4E                     dec     esi
  345. 004D2808   85F6                   test    esi, esi
  346. 004D280A   75D5                   jnz     004D27E1
  347. 004D280C   8D45F4                 lea     eax, [ebp-$0C]
  348. 004D280F   50                     push    eax
  349. 004D2810   8BCF                   mov     ecx, edi
  350. 004D2812   49                     dec     ecx
  351. 004D2813   BA01000000             mov     edx, $00000001
  352. 004D2818   8B45F4                 mov     eax, [ebp-$0C]
  353. 004D281B   E8BC18F3FF             call    004040DC
  354. 004D2820   8B55F4                 mov     edx, [ebp-$0C]
  355. 004D2823   8B83CC020000           mov     eax, [ebx+$02CC]
  356. 004D2829   E8F23EF6FF             call    00436720
  357. 004D282E   8BC3                   mov     eax, ebx
  358. 004D2830   E86BFDFFFF             call    004D25A0
  359. 004D2835   33C0                   xor     eax, eax
  360. 004D2837   5A                     pop     edx
  361. 004D2838   59                     pop     ecx
  362. 004D2839   59                     pop     ecx
  363. 004D283A   648910                 mov     fs:[eax], edx
  365. ****** FINALLY
  366. |
  368. * Possible String Reference to: "_^[嬪]