AddPortUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：26k
- unit AddPortUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls;
- type
- TAddPort=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- Label1: TLabel;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- FlatEdit1: TFlatEdit;
- FlatEdit2: TFlatEdit;
- FlatEdit3: TFlatEdit;
- procedure CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- procedure CloseButtonClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormPaint(Sender: TObject);
- procedure FormResize(Sender: TObject);
- procedure OutlookBtn1Click(Sender: TObject);
- procedure OutlookBtn2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- AddPort: TAddPort;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TAddPort.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 005091F8 55 push ebp
- 005091F9 8BEC mov ebp, esp
- 005091FB 53 push ebx
- 005091FC 8BD8 mov ebx, eax
- 005091FE 8B83C4020000 mov eax, [ebx+$02C4]
- 00509204 8B4024 mov eax, [eax+$24]
- 00509207 E8D032F3FF call 0043C4DC
- 0050920C 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 0050920D E866E6EFFF call 00407878
- 00509212 C783EC020000FFFFFFFF mov dword ptr [ebx+$02EC], $FFFFFFFF
- 0050921C 8B450C mov eax, [ebp+$0C]
- 0050921F 8983E4020000 mov [ebx+$02E4], eax
- 00509225 8B4508 mov eax, [ebp+$08]
- 00509228 8983E8020000 mov [ebx+$02E8], eax
- 0050922E 5B pop ebx
- 0050922F 5D pop ebp
- 00509230 C20C ret $0C
- }
- end ;
- procedure TAddPort.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 00509234 55 push ebp
- 00509235 8BEC mov ebp, esp
- 00509237 53 push ebx
- 00509238 56 push esi
- 00509239 8BD8 mov ebx, eax
- 0050923B 83BBEC02000000 cmp dword ptr [ebx+$02EC], +$00
- 00509242 7433 jz 00509277
- 00509244 8B83C4020000 mov eax, [ebx+$02C4]
- 0050924A 8B7024 mov esi, [eax+$24]
- 0050924D 8B83E4020000 mov eax, [ebx+$02E4]
- 00509253 2B450C sub eax, dword ptr [ebp+$0C]
- 00509256 8B5630 mov edx, [esi+$30]
- 00509259 2BD0 sub edx, eax
- 0050925B 8BC6 mov eax, esi
- 0050925D E84ACCF2FF call 00435EAC
- 00509262 8B83E8020000 mov eax, [ebx+$02E8]
- 00509268 2B4508 sub eax, dword ptr [ebp+$08]
- 0050926B 8B5634 mov edx, [esi+$34]
- 0050926E 2BD0 sub edx, eax
- 00509270 8BC6 mov eax, esi
- 00509272 E859CCF2FF call 00435ED0
- 00509277 5E pop esi
- 00509278 5B pop ebx
- 00509279 5D pop ebp
- 0050927A C208 ret $08
- }
- end ;
- procedure TAddPort.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 00509280 55 push ebp
- 00509281 8BEC mov ebp, esp
- 00509283 53 push ebx
- 00509284 56 push esi
- 00509285 8BD8 mov ebx, eax
- 00509287 83BBEC02000000 cmp dword ptr [ebx+$02EC], +$00
- 0050928E 7440 jz 005092D0
- 00509290 8B83C4020000 mov eax, [ebx+$02C4]
- 00509296 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 00509299 E88AE5EFFF call 00407828
- 0050929E 33C0 xor eax, eax
- 005092A0 8983EC020000 mov [ebx+$02EC], eax
- 005092A6 8B83E4020000 mov eax, [ebx+$02E4]
- 005092AC 2B450C sub eax, dword ptr [ebp+$0C]
- 005092AF 8B5630 mov edx, [esi+$30]
- 005092B2 2BD0 sub edx, eax
- 005092B4 8BC6 mov eax, esi
- 005092B6 E8F1CBF2FF call 00435EAC
- 005092BB 8B83E8020000 mov eax, [ebx+$02E8]
- 005092C1 2B4508 sub eax, dword ptr [ebp+$08]
- 005092C4 8B5634 mov edx, [esi+$34]
- 005092C7 2BD0 sub edx, eax
- 005092C9 8BC6 mov eax, esi
- 005092CB E800CCF2FF call 00435ED0
- 005092D0 5E pop esi
- 005092D1 5B pop ebx
- 005092D2 5D pop ebp
- 005092D3 C20C ret $0C
- }
- end ;
- procedure TAddPort.CloseButtonClick(Sender: TObject);
- begin
- {
- 005091F0 E8D766F4FF call 0044F8CC
- 005091F5 C3 ret
- }
- end ;
- procedure TAddPort.FormCreate(Sender: TObject);
- begin
- {
- 005091E8 E80BFEFFFF call 00508FF8
- 005091ED C3 ret
- }
- end ;
- procedure TAddPort.FormPaint(Sender: TObject);
- begin
- {
- 00509460 53 push ebx
- 00509461 56 push esi
- 00509462 57 push edi
- 00509463 55 push ebp
- 00509464 83C4E0 add esp, -$20
- 00509467 8BD8 mov ebx, eax
- 00509469 8B2DDC495400 mov ebp, [$5449DC]
- 0050946F 8B733C mov esi, [ebx+$3C]
- 00509472 83EE05 sub esi, +$05
- 00509475 83EE18 sub esi, +$18
- 00509478 7C5D jl 005094D7
- 0050947A 46 inc esi
- 0050947B BF18000000 mov edi, $00000018
- 00509480 6A01 push $01
- 00509482 8D442404 lea eax, [esp+$04]
- 00509486 50 push eax
- 00509487 B904000000 mov ecx, $00000004
- 0050948C BA1A000000 mov edx, $0000001A
- 00509491 B801000000 mov eax, $00000001
- 00509496 E8A574F0FF call 00410940
- 0050949B 54 push esp
- 0050949C 6A01 push $01
- 0050949E 8D442418 lea eax, [esp+$18]
- 005094A2 50 push eax
- 005094A3 B904000000 mov ecx, $00000004
- 005094A8 8BD7 mov edx, edi
- 005094AA 33C0 xor eax, eax
- 005094AC E88F74F0FF call 00410940
- 005094B1 8D442414 lea eax, [esp+$14]
- 005094B5 50 push eax
- 005094B6 8B4500 mov eax, [ebp+$00]
- 005094B9 8B80E80A0000 mov eax, [eax+$0AE8]
- 005094BF E8CC9EF1FF call 00423390
- 005094C4 50 push eax
- 005094C5 8BC3 mov eax, ebx
- 005094C7 E83440F4FF call 0044D500
- 005094CC 59 pop ecx
- 005094CD 5A pop edx
- 005094CE E8794BF1FF call 0041E04C
- 005094D3 47 inc edi
- 005094D4 4E dec esi
- 005094D5 75A9 jnz 00509480
- 005094D7 8B733C mov esi, [ebx+$3C]
- 005094DA 83EE05 sub esi, +$05
- 005094DD 83EE18 sub esi, +$18
- 005094E0 7C61 jl 00509543
- 005094E2 46 inc esi
- 005094E3 BF18000000 mov edi, $00000018
- 005094E8 6A01 push $01
- 005094EA 8D442404 lea eax, [esp+$04]
- 005094EE 50 push eax
- 005094EF B904000000 mov ecx, $00000004
- 005094F4 BA1A000000 mov edx, $0000001A
- 005094F9 B830000000 mov eax, $00000030
- 005094FE E83D74F0FF call 00410940
- 00509503 54 push esp
- 00509504 6A01 push $01
- 00509506 8D442418 lea eax, [esp+$18]
- 0050950A 50 push eax
- 0050950B 8B4338 mov eax, [ebx+$38]
- 0050950E 83E804 sub eax, +$04
- 00509511 B904000000 mov ecx, $00000004
- 00509516 8BD7 mov edx, edi
- 00509518 E82374F0FF call 00410940
- 0050951D 8D442414 lea eax, [esp+$14]
- 00509521 50 push eax
- 00509522 8B4500 mov eax, [ebp+$00]
- 00509525 8B80E80A0000 mov eax, [eax+$0AE8]
- 0050952B E8609EF1FF call 00423390
- 00509530 50 push eax
- 00509531 8BC3 mov eax, ebx
- 00509533 E8C83FF4FF call 0044D500
- 00509538 59 pop ecx
- 00509539 5A pop edx
- 0050953A E80D4BF1FF call 0041E04C
- 0050953F 47 inc edi
- 00509540 4E dec esi
- 00509541 75A5 jnz 005094E8
- 00509543 8B7338 mov esi, [ebx+$38]
- 00509546 83EE18 sub esi, +$18
- 00509549 83EE18 sub esi, +$18
- 0050954C 7C5D jl 005095AB
- 0050954E 46 inc esi
- 0050954F BF18000000 mov edi, $00000018
- 00509554 6A18 push $18
- 00509556 8D442404 lea eax, [esp+$04]
- 0050955A 50 push eax
- 0050955B B901000000 mov ecx, $00000001
- 00509560 BA01000000 mov edx, $00000001
- 00509565 B81A000000 mov eax, $0000001A
- 0050956A E8D173F0FF call 00410940
- 0050956F 54 push esp
- 00509570 6A18 push $18
- 00509572 8D442418 lea eax, [esp+$18]
- 00509576 50 push eax
- 00509577 B901000000 mov ecx, $00000001
- 0050957C 33D2 xor edx, edx
- 0050957E 8BC7 mov eax, edi
- 00509580 E8BB73F0FF call 00410940
- 00509585 8D442414 lea eax, [esp+$14]
- 00509589 50 push eax
- 0050958A 8B4500 mov eax, [ebp+$00]
- 0050958D 8B80E80A0000 mov eax, [eax+$0AE8]
- 00509593 E8F89DF1FF call 00423390
- 00509598 50 push eax
- 00509599 8BC3 mov eax, ebx
- 0050959B E8603FF4FF call 0044D500
- 005095A0 59 pop ecx
- 005095A1 5A pop edx
- 005095A2 E8A54AF1FF call 0041E04C
- 005095A7 47 inc edi
- 005095A8 4E dec esi
- 005095A9 75A9 jnz 00509554
- 005095AB 8B7338 mov esi, [ebx+$38]
- 005095AE 83EE04 sub esi, +$04
- 005095B1 83EE04 sub esi, +$04
- 005095B4 7C61 jl 00509617
- 005095B6 46 inc esi
- 005095B7 BF04000000 mov edi, $00000004
- 005095BC 6A04 push $04
- 005095BE 8D442404 lea eax, [esp+$04]
- 005095C2 50 push eax
- 005095C3 B901000000 mov ecx, $00000001
- 005095C8 BA1C000000 mov edx, $0000001C
- 005095CD B81A000000 mov eax, $0000001A
- 005095D2 E86973F0FF call 00410940
- 005095D7 54 push esp
- 005095D8 6A04 push $04
- 005095DA 8D442418 lea eax, [esp+$18]
- 005095DE 50 push eax
- 005095DF 8B533C mov edx, [ebx+$3C]
- 005095E2 83EA04 sub edx, +$04
- 005095E5 B901000000 mov ecx, $00000001
- 005095EA 8BC7 mov eax, edi
- 005095EC E84F73F0FF call 00410940
- 005095F1 8D442414 lea eax, [esp+$14]
- 005095F5 50 push eax
- 005095F6 8B4500 mov eax, [ebp+$00]
- 005095F9 8B80E80A0000 mov eax, [eax+$0AE8]
- 005095FF E88C9DF1FF call 00423390
- 00509604 50 push eax
- 00509605 8BC3 mov eax, ebx
- 00509607 E8F43EF4FF call 0044D500
- 0050960C 59 pop ecx
- 0050960D 5A pop edx
- 0050960E E8394AF1FF call 0041E04C
- 00509613 47 inc edi
- 00509614 4E dec esi
- 00509615 75A5 jnz 005095BC
- 00509617 6A18 push $18
- 00509619 8D442404 lea eax, [esp+$04]
- 0050961D 50 push eax
- 0050961E B918000000 mov ecx, $00000018
- 00509623 BA01000000 mov edx, $00000001
- 00509628 B801000000 mov eax, $00000001
- 0050962D E80E73F0FF call 00410940
- 00509632 54 push esp
- 00509633 6A18 push $18
- 00509635 8D442418 lea eax, [esp+$18]
- 00509639 50 push eax
- 0050963A B918000000 mov ecx, $00000018
- 0050963F 33D2 xor edx, edx
- 00509641 33C0 xor eax, eax
- 00509643 E8F872F0FF call 00410940
- 00509648 8D442414 lea eax, [esp+$14]
- 0050964C 50 push eax
- 0050964D 8B4500 mov eax, [ebp+$00]
- 00509650 8B80E80A0000 mov eax, [eax+$0AE8]
- 00509656 E8359DF1FF call 00423390
- 0050965B 50 push eax
- 0050965C 8BC3 mov eax, ebx
- 0050965E E89D3EF4FF call 0044D500
- 00509663 59 pop ecx
- 00509664 5A pop edx
- 00509665 E8E249F1FF call 0041E04C
- 0050966A 6A18 push $18
- 0050966C 8D442404 lea eax, [esp+$04]
- 00509670 50 push eax
- 00509671 B918000000 mov ecx, $00000018
- 00509676 BA01000000 mov edx, $00000001
- 0050967B B81C000000 mov eax, $0000001C
- 00509680 E8BB72F0FF call 00410940
- 00509685 54 push esp
- 00509686 6A18 push $18
- 00509688 8D442418 lea eax, [esp+$18]
- 0050968C 50 push eax
- 0050968D 8B4338 mov eax, [ebx+$38]
- 00509690 83E818 sub eax, +$18
- 00509693 B918000000 mov ecx, $00000018
- 00509698 33D2 xor edx, edx
- 0050969A E8A172F0FF call 00410940
- 0050969F 8D442414 lea eax, [esp+$14]
- 005096A3 50 push eax
- 005096A4 8B4500 mov eax, [ebp+$00]
- 005096A7 8B80E80A0000 mov eax, [eax+$0AE8]
- 005096AD E8DE9CF1FF call 00423390
- 005096B2 50 push eax
- 005096B3 8BC3 mov eax, ebx
- 005096B5 E8463EF4FF call 0044D500
- 005096BA 59 pop ecx
- 005096BB 5A pop edx
- 005096BC E88B49F1FF call 0041E04C
- 005096C1 6A04 push $04
- 005096C3 8D442404 lea eax, [esp+$04]
- 005096C7 50 push eax
- 005096C8 B904000000 mov ecx, $00000004
- 005096CD BA1C000000 mov edx, $0000001C
- 005096D2 B801000000 mov eax, $00000001
- 005096D7 E86472F0FF call 00410940
- 005096DC 54 push esp
- 005096DD 6A04 push $04
- 005096DF 8D442418 lea eax, [esp+$18]
- 005096E3 50 push eax
- 005096E4 8B533C mov edx, [ebx+$3C]
- 005096E7 83EA04 sub edx, +$04
- 005096EA B904000000 mov ecx, $00000004
- 005096EF 33C0 xor eax, eax
- 005096F1 E84A72F0FF call 00410940
- 005096F6 8D442414 lea eax, [esp+$14]
- 005096FA 50 push eax
- 005096FB 8B4500 mov eax, [ebp+$00]
- 005096FE 8B80E80A0000 mov eax, [eax+$0AE8]
- 00509704 E8879CF1FF call 00423390
- 00509709 50 push eax
- 0050970A 8BC3 mov eax, ebx
- 0050970C E8EF3DF4FF call 0044D500
- 00509711 59 pop ecx
- 00509712 5A pop edx
- 00509713 E83449F1FF call 0041E04C
- 00509718 6A04 push $04
- 0050971A 8D442404 lea eax, [esp+$04]
- 0050971E 50 push eax
- 0050971F B904000000 mov ecx, $00000004
- 00509724 BA1C000000 mov edx, $0000001C
- 00509729 B830000000 mov eax, $00000030
- 0050972E E80D72F0FF call 00410940
- 00509733 54 push esp
- 00509734 6A04 push $04
- 00509736 8D442418 lea eax, [esp+$18]
- 0050973A 50 push eax
- 0050973B 8B533C mov edx, [ebx+$3C]
- 0050973E 83EA04 sub edx, +$04
- 00509741 8B4338 mov eax, [ebx+$38]
- 00509744 83E804 sub eax, +$04
- 00509747 B904000000 mov ecx, $00000004
- 0050974C E8EF71F0FF call 00410940
- 00509751 8D442414 lea eax, [esp+$14]
- 00509755 50 push eax
- 00509756 8B4500 mov eax, [ebp+$00]
- 00509759 8B80E80A0000 mov eax, [eax+$0AE8]
- 0050975F E82C9CF1FF call 00423390
- 00509764 50 push eax
- 00509765 8BC3 mov eax, ebx
- 00509767 E8943DF4FF call 0044D500
- 0050976C 59 pop ecx
- 0050976D 5A pop edx
- 0050976E E8D948F1FF call 0041E04C
- 00509773 8BC3 mov eax, ebx
- 00509775 E8863DF4FF call 0044D500
- 0050977A 8B4014 mov eax, [eax+$14]
- 0050977D 8B5500 mov edx, [ebp+$00]
- 00509780 8B92180B0000 mov edx, [edx+$0B18]
- 00509786 E89143F1FF call 0041DB1C
- 0050978B 8B433C mov eax, [ebx+$3C]
- 0050978E 83E81C sub eax, +$1C
- 00509791 50 push eax
- 00509792 8D442404 lea eax, [esp+$04]
- 00509796 50 push eax
- 00509797 8B4B38 mov ecx, [ebx+$38]
- 0050979A 83E908 sub ecx, +$08
- 0050979D BA18000000 mov edx, $00000018
- 005097A2 B804000000 mov eax, $00000004
- 005097A7 E89471F0FF call 00410940
- 005097AC 54 push esp
- 005097AD 8BC3 mov eax, ebx
- 005097AF E84C3DF4FF call 0044D500
- 005097B4 5A pop edx
- 005097B5 E8424AF1FF call 0041E1FC
- 005097BA 83C420 add esp, +$20
- 005097BD 5D pop ebp
- 005097BE 5F pop edi
- 005097BF 5E pop esi
- 005097C0 5B pop ebx
- 005097C1 C3 ret
- }
- end ;
- procedure TAddPort.FormResize(Sender: TObject);
- begin
- {
- 005097C4 8B10 mov edx, [eax]
- 005097C6 FF5278 call dword ptr [edx+$78]
- 005097C9 C3 ret
- }
- end ;
- procedure TAddPort.OutlookBtn1Click(Sender: TObject);
- begin
- {
- 005092E0 55 push ebp
- 005092E1 8BEC mov ebp, esp
- 005092E3 33C9 xor ecx, ecx
- 005092E5 51 push ecx
- 005092E6 51 push ecx
- 005092E7 51 push ecx
- 005092E8 51 push ecx
- 005092E9 53 push ebx
- 005092EA 56 push esi
- 005092EB 8BD8 mov ebx, eax
- 005092ED 33C0 xor eax, eax
- 005092EF 55 push ebp
- * Possible String Reference to: "閎
English
