PassUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：28k
- unit PassUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
- type
- TPass=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- Panel1: TPanel;
- Label1: TLabel;
- Label2: TLabel;
- Name: TListBox;
- box: TMemo;
- RxSplitter1: TRxSplitter;
- FlatHint: TFlatHint;
- 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 NameClick(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- Pass: TPass;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TPass.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004D7138 55 push ebp
- 004D7139 8BEC mov ebp, esp
- 004D713B 53 push ebx
- 004D713C 8BD8 mov ebx, eax
- 004D713E 8B83C4020000 mov eax, [ebx+$02C4]
- 004D7144 8B4024 mov eax, [eax+$24]
- 004D7147 E89053F6FF call 0043C4DC
- 004D714C 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004D714D E82607F3FF call 00407878
- 004D7152 C783F0020000FFFFFFFF mov dword ptr [ebx+$02F0], $FFFFFFFF
- 004D715C 8B450C mov eax, [ebp+$0C]
- 004D715F 8983E8020000 mov [ebx+$02E8], eax
- 004D7165 8B4508 mov eax, [ebp+$08]
- 004D7168 8983EC020000 mov [ebx+$02EC], eax
- 004D716E 5B pop ebx
- 004D716F 5D pop ebp
- 004D7170 C20C ret $0C
- }
- end ;
- procedure TPass.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004D7174 55 push ebp
- 004D7175 8BEC mov ebp, esp
- 004D7177 53 push ebx
- 004D7178 56 push esi
- 004D7179 8BD8 mov ebx, eax
- 004D717B 83BBF002000000 cmp dword ptr [ebx+$02F0], +$00
- 004D7182 7433 jz 004D71B7
- 004D7184 8B83C4020000 mov eax, [ebx+$02C4]
- 004D718A 8B7024 mov esi, [eax+$24]
- 004D718D 8B83E8020000 mov eax, [ebx+$02E8]
- 004D7193 2B450C sub eax, dword ptr [ebp+$0C]
- 004D7196 8B5630 mov edx, [esi+$30]
- 004D7199 2BD0 sub edx, eax
- 004D719B 8BC6 mov eax, esi
- 004D719D E80AEDF5FF call 00435EAC
- 004D71A2 8B83EC020000 mov eax, [ebx+$02EC]
- 004D71A8 2B4508 sub eax, dword ptr [ebp+$08]
- 004D71AB 8B5634 mov edx, [esi+$34]
- 004D71AE 2BD0 sub edx, eax
- 004D71B0 8BC6 mov eax, esi
- 004D71B2 E819EDF5FF call 00435ED0
- 004D71B7 5E pop esi
- 004D71B8 5B pop ebx
- 004D71B9 5D pop ebp
- 004D71BA C208 ret $08
- }
- end ;
- procedure TPass.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004D71C0 55 push ebp
- 004D71C1 8BEC mov ebp, esp
- 004D71C3 53 push ebx
- 004D71C4 56 push esi
- 004D71C5 8BD8 mov ebx, eax
- 004D71C7 83BBF002000000 cmp dword ptr [ebx+$02F0], +$00
- 004D71CE 7440 jz 004D7210
- 004D71D0 8B83C4020000 mov eax, [ebx+$02C4]
- 004D71D6 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004D71D9 E84A06F3FF call 00407828
- 004D71DE 33C0 xor eax, eax
- 004D71E0 8983F0020000 mov [ebx+$02F0], eax
- 004D71E6 8B83E8020000 mov eax, [ebx+$02E8]
- 004D71EC 2B450C sub eax, dword ptr [ebp+$0C]
- 004D71EF 8B5630 mov edx, [esi+$30]
- 004D71F2 2BD0 sub edx, eax
- 004D71F4 8BC6 mov eax, esi
- 004D71F6 E8B1ECF5FF call 00435EAC
- 004D71FB 8B83EC020000 mov eax, [ebx+$02EC]
- 004D7201 2B4508 sub eax, dword ptr [ebp+$08]
- 004D7204 8B5634 mov edx, [esi+$34]
- 004D7207 2BD0 sub edx, eax
- 004D7209 8BC6 mov eax, esi
- 004D720B E8C0ECF5FF call 00435ED0
- 004D7210 5E pop esi
- 004D7211 5B pop ebx
- 004D7212 5D pop ebp
- 004D7213 C20C ret $0C
- }
- end ;
- procedure TPass.CloseButtonClick(Sender: TObject);
- begin
- {
- 004D7130 E84789F7FF call 0044FA7C
- 004D7135 C3 ret
- }
- end ;
- procedure TPass.FormCreate(Sender: TObject);
- begin
- {
- 004D7128 E827FEFFFF call 004D6F54
- 004D712D C3 ret
- }
- end ;
- procedure TPass.FormPaint(Sender: TObject);
- begin
- {
- 004D7638 53 push ebx
- 004D7639 56 push esi
- 004D763A 57 push edi
- 004D763B 55 push ebp
- 004D763C 83C4E0 add esp, -$20
- 004D763F 8BD8 mov ebx, eax
- 004D7641 8B2DDC495400 mov ebp, [$5449DC]
- 004D7647 8B733C mov esi, [ebx+$3C]
- 004D764A 83EE05 sub esi, +$05
- 004D764D 83EE18 sub esi, +$18
- 004D7650 7C5D jl 004D76AF
- 004D7652 46 inc esi
- 004D7653 BF18000000 mov edi, $00000018
- 004D7658 6A01 push $01
- 004D765A 8D442404 lea eax, [esp+$04]
- 004D765E 50 push eax
- 004D765F B904000000 mov ecx, $00000004
- 004D7664 BA1A000000 mov edx, $0000001A
- 004D7669 B801000000 mov eax, $00000001
- 004D766E E8CD92F3FF call 00410940
- 004D7673 54 push esp
- 004D7674 6A01 push $01
- 004D7676 8D442418 lea eax, [esp+$18]
- 004D767A 50 push eax
- 004D767B B904000000 mov ecx, $00000004
- 004D7680 8BD7 mov edx, edi
- 004D7682 33C0 xor eax, eax
- 004D7684 E8B792F3FF call 00410940
- 004D7689 8D442414 lea eax, [esp+$14]
- 004D768D 50 push eax
- 004D768E 8B4500 mov eax, [ebp+$00]
- 004D7691 8B80E80A0000 mov eax, [eax+$0AE8]
- 004D7697 E8F4BCF4FF call 00423390
- 004D769C 50 push eax
- 004D769D 8BC3 mov eax, ebx
- 004D769F E85C5EF7FF call 0044D500
- 004D76A4 59 pop ecx
- 004D76A5 5A pop edx
- 004D76A6 E8A169F4FF call 0041E04C
- 004D76AB 47 inc edi
- 004D76AC 4E dec esi
- 004D76AD 75A9 jnz 004D7658
- 004D76AF 8B733C mov esi, [ebx+$3C]
- 004D76B2 83EE05 sub esi, +$05
- 004D76B5 83EE18 sub esi, +$18
- 004D76B8 7C61 jl 004D771B
- 004D76BA 46 inc esi
- 004D76BB BF18000000 mov edi, $00000018
- 004D76C0 6A01 push $01
- 004D76C2 8D442404 lea eax, [esp+$04]
- 004D76C6 50 push eax
- 004D76C7 B904000000 mov ecx, $00000004
- 004D76CC BA1A000000 mov edx, $0000001A
- 004D76D1 B830000000 mov eax, $00000030
- 004D76D6 E86592F3FF call 00410940
- 004D76DB 54 push esp
- 004D76DC 6A01 push $01
- 004D76DE 8D442418 lea eax, [esp+$18]
- 004D76E2 50 push eax
- 004D76E3 8B4338 mov eax, [ebx+$38]
- 004D76E6 83E804 sub eax, +$04
- 004D76E9 B904000000 mov ecx, $00000004
- 004D76EE 8BD7 mov edx, edi
- 004D76F0 E84B92F3FF call 00410940
- 004D76F5 8D442414 lea eax, [esp+$14]
- 004D76F9 50 push eax
- 004D76FA 8B4500 mov eax, [ebp+$00]
- 004D76FD 8B80E80A0000 mov eax, [eax+$0AE8]
- 004D7703 E888BCF4FF call 00423390
- 004D7708 50 push eax
- 004D7709 8BC3 mov eax, ebx
- 004D770B E8F05DF7FF call 0044D500
- 004D7710 59 pop ecx
- 004D7711 5A pop edx
- 004D7712 E83569F4FF call 0041E04C
- 004D7717 47 inc edi
- 004D7718 4E dec esi
- 004D7719 75A5 jnz 004D76C0
- 004D771B 8B7338 mov esi, [ebx+$38]
- 004D771E 83EE18 sub esi, +$18
- 004D7721 83EE18 sub esi, +$18
- 004D7724 7C5D jl 004D7783
- 004D7726 46 inc esi
- 004D7727 BF18000000 mov edi, $00000018
- 004D772C 6A18 push $18
- 004D772E 8D442404 lea eax, [esp+$04]
- 004D7732 50 push eax
- 004D7733 B901000000 mov ecx, $00000001
- 004D7738 BA01000000 mov edx, $00000001
- 004D773D B81A000000 mov eax, $0000001A
- 004D7742 E8F991F3FF call 00410940
- 004D7747 54 push esp
- 004D7748 6A18 push $18
- 004D774A 8D442418 lea eax, [esp+$18]
- 004D774E 50 push eax
- 004D774F B901000000 mov ecx, $00000001
- 004D7754 33D2 xor edx, edx
- 004D7756 8BC7 mov eax, edi
- 004D7758 E8E391F3FF call 00410940
- 004D775D 8D442414 lea eax, [esp+$14]
- 004D7761 50 push eax
- 004D7762 8B4500 mov eax, [ebp+$00]
- 004D7765 8B80E80A0000 mov eax, [eax+$0AE8]
- 004D776B E820BCF4FF call 00423390
- 004D7770 50 push eax
- 004D7771 8BC3 mov eax, ebx
- 004D7773 E8885DF7FF call 0044D500
- 004D7778 59 pop ecx
- 004D7779 5A pop edx
- 004D777A E8CD68F4FF call 0041E04C
- 004D777F 47 inc edi
- 004D7780 4E dec esi
- 004D7781 75A9 jnz 004D772C
- 004D7783 8B7338 mov esi, [ebx+$38]
- 004D7786 83EE04 sub esi, +$04
- 004D7789 83EE04 sub esi, +$04
- 004D778C 7C61 jl 004D77EF
- 004D778E 46 inc esi
- 004D778F BF04000000 mov edi, $00000004
- 004D7794 6A04 push $04
- 004D7796 8D442404 lea eax, [esp+$04]
- 004D779A 50 push eax
- 004D779B B901000000 mov ecx, $00000001
- 004D77A0 BA1C000000 mov edx, $0000001C
- 004D77A5 B81A000000 mov eax, $0000001A
- 004D77AA E89191F3FF call 00410940
- 004D77AF 54 push esp
- 004D77B0 6A04 push $04
- 004D77B2 8D442418 lea eax, [esp+$18]
- 004D77B6 50 push eax
- 004D77B7 8B533C mov edx, [ebx+$3C]
- 004D77BA 83EA04 sub edx, +$04
- 004D77BD B901000000 mov ecx, $00000001
- 004D77C2 8BC7 mov eax, edi
- 004D77C4 E87791F3FF call 00410940
- 004D77C9 8D442414 lea eax, [esp+$14]
- 004D77CD 50 push eax
- 004D77CE 8B4500 mov eax, [ebp+$00]
- 004D77D1 8B80E80A0000 mov eax, [eax+$0AE8]
- 004D77D7 E8B4BBF4FF call 00423390
- 004D77DC 50 push eax
- 004D77DD 8BC3 mov eax, ebx
- 004D77DF E81C5DF7FF call 0044D500
- 004D77E4 59 pop ecx
- 004D77E5 5A pop edx
- 004D77E6 E86168F4FF call 0041E04C
- 004D77EB 47 inc edi
- 004D77EC 4E dec esi
- 004D77ED 75A5 jnz 004D7794
- 004D77EF 6A18 push $18
- 004D77F1 8D442404 lea eax, [esp+$04]
- 004D77F5 50 push eax
- 004D77F6 B918000000 mov ecx, $00000018
- 004D77FB BA01000000 mov edx, $00000001
- 004D7800 B801000000 mov eax, $00000001
- 004D7805 E83691F3FF call 00410940
- 004D780A 54 push esp
- 004D780B 6A18 push $18
- 004D780D 8D442418 lea eax, [esp+$18]
- 004D7811 50 push eax
- 004D7812 B918000000 mov ecx, $00000018
- 004D7817 33D2 xor edx, edx
- 004D7819 33C0 xor eax, eax
- 004D781B E82091F3FF call 00410940
- 004D7820 8D442414 lea eax, [esp+$14]
- 004D7824 50 push eax
- 004D7825 8B4500 mov eax, [ebp+$00]
- 004D7828 8B80E80A0000 mov eax, [eax+$0AE8]
- 004D782E E85DBBF4FF call 00423390
- 004D7833 50 push eax
- 004D7834 8BC3 mov eax, ebx
- 004D7836 E8C55CF7FF call 0044D500
- 004D783B 59 pop ecx
- 004D783C 5A pop edx
- 004D783D E80A68F4FF call 0041E04C
- 004D7842 6A18 push $18
- 004D7844 8D442404 lea eax, [esp+$04]
- 004D7848 50 push eax
- 004D7849 B918000000 mov ecx, $00000018
- 004D784E BA01000000 mov edx, $00000001
- 004D7853 B81C000000 mov eax, $0000001C
- 004D7858 E8E390F3FF call 00410940
- 004D785D 54 push esp
- 004D785E 6A18 push $18
- 004D7860 8D442418 lea eax, [esp+$18]
- 004D7864 50 push eax
- 004D7865 8B4338 mov eax, [ebx+$38]
- 004D7868 83E818 sub eax, +$18
- 004D786B B918000000 mov ecx, $00000018
- 004D7870 33D2 xor edx, edx
- 004D7872 E8C990F3FF call 00410940
- 004D7877 8D442414 lea eax, [esp+$14]
- 004D787B 50 push eax
- 004D787C 8B4500 mov eax, [ebp+$00]
- 004D787F 8B80E80A0000 mov eax, [eax+$0AE8]
- 004D7885 E806BBF4FF call 00423390
- 004D788A 50 push eax
- 004D788B 8BC3 mov eax, ebx
- 004D788D E86E5CF7FF call 0044D500
- 004D7892 59 pop ecx
- 004D7893 5A pop edx
- 004D7894 E8B367F4FF call 0041E04C
- 004D7899 6A04 push $04
- 004D789B 8D442404 lea eax, [esp+$04]
- 004D789F 50 push eax
- 004D78A0 B904000000 mov ecx, $00000004
- 004D78A5 BA1C000000 mov edx, $0000001C
- 004D78AA B801000000 mov eax, $00000001
- 004D78AF E88C90F3FF call 00410940
- 004D78B4 54 push esp
- 004D78B5 6A04 push $04
- 004D78B7 8D442418 lea eax, [esp+$18]
- 004D78BB 50 push eax
- 004D78BC 8B533C mov edx, [ebx+$3C]
- 004D78BF 83EA04 sub edx, +$04
- 004D78C2 B904000000 mov ecx, $00000004
- 004D78C7 33C0 xor eax, eax
- 004D78C9 E87290F3FF call 00410940
- 004D78CE 8D442414 lea eax, [esp+$14]
- 004D78D2 50 push eax
- 004D78D3 8B4500 mov eax, [ebp+$00]
- 004D78D6 8B80E80A0000 mov eax, [eax+$0AE8]
- 004D78DC E8AFBAF4FF call 00423390
- 004D78E1 50 push eax
- 004D78E2 8BC3 mov eax, ebx
- 004D78E4 E8175CF7FF call 0044D500
- 004D78E9 59 pop ecx
- 004D78EA 5A pop edx
- 004D78EB E85C67F4FF call 0041E04C
- 004D78F0 6A04 push $04
- 004D78F2 8D442404 lea eax, [esp+$04]
- 004D78F6 50 push eax
- 004D78F7 B904000000 mov ecx, $00000004
- 004D78FC BA1C000000 mov edx, $0000001C
- 004D7901 B830000000 mov eax, $00000030
- 004D7906 E83590F3FF call 00410940
- 004D790B 54 push esp
- 004D790C 6A04 push $04
- 004D790E 8D442418 lea eax, [esp+$18]
- 004D7912 50 push eax
- 004D7913 8B533C mov edx, [ebx+$3C]
- 004D7916 83EA04 sub edx, +$04
- 004D7919 8B4338 mov eax, [ebx+$38]
- 004D791C 83E804 sub eax, +$04
- 004D791F B904000000 mov ecx, $00000004
- 004D7924 E81790F3FF call 00410940
- 004D7929 8D442414 lea eax, [esp+$14]
- 004D792D 50 push eax
- 004D792E 8B4500 mov eax, [ebp+$00]
- 004D7931 8B80E80A0000 mov eax, [eax+$0AE8]
- 004D7937 E854BAF4FF call 00423390
- 004D793C 50 push eax
- 004D793D 8BC3 mov eax, ebx
- 004D793F E8BC5BF7FF call 0044D500
- 004D7944 59 pop ecx
- 004D7945 5A pop edx
- 004D7946 E80167F4FF call 0041E04C
- 004D794B 8BC3 mov eax, ebx
- 004D794D E8AE5BF7FF call 0044D500
- 004D7952 8B4014 mov eax, [eax+$14]
- 004D7955 8B5500 mov edx, [ebp+$00]
- 004D7958 8B92180B0000 mov edx, [edx+$0B18]
- 004D795E E8B961F4FF call 0041DB1C
- 004D7963 8B433C mov eax, [ebx+$3C]
- 004D7966 83E81C sub eax, +$1C
- 004D7969 50 push eax
- 004D796A 8D442404 lea eax, [esp+$04]
- 004D796E 50 push eax
- 004D796F 8B4B38 mov ecx, [ebx+$38]
- 004D7972 83E908 sub ecx, +$08
- 004D7975 BA18000000 mov edx, $00000018
- 004D797A B804000000 mov eax, $00000004
- 004D797F E8BC8FF3FF call 00410940
- 004D7984 54 push esp
- 004D7985 8BC3 mov eax, ebx
- 004D7987 E8745BF7FF call 0044D500
- 004D798C 5A pop edx
- 004D798D E86A68F4FF call 0041E1FC
- 004D7992 83C420 add esp, +$20
- 004D7995 5D pop ebp
- 004D7996 5F pop edi
- 004D7997 5E pop esi
- 004D7998 5B pop ebx
- 004D7999 C3 ret
- }
- end ;
- procedure TPass.FormResize(Sender: TObject);
- begin
- {
- 004D799C 8B10 mov edx, [eax]
- 004D799E FF5278 call dword ptr [edx+$78]
- 004D79A1 C3 ret
- }
- end ;
- procedure TPass.NameClick(Sender: TObject);
- begin
- {
- 004D7444 55 push ebp
- 004D7445 8BEC mov ebp, esp
- 004D7447 81C414FEFFFF add esp, $FFFFFE14
- 004D744D 53 push ebx
- 004D744E 56 push esi
- 004D744F 33C9 xor ecx, ecx
- 004D7451 898D14FEFFFF mov [ebp+$FFFFFE14], ecx
- 004D7457 894DF8 mov [ebp-$08], ecx
- 004D745A 894DF4 mov [ebp-$0C], ecx
- 004D745D 894DF0 mov [ebp-$10], ecx
- 004D7460 894DE8 mov [ebp-$18], ecx
- 004D7463 894DE4 mov [ebp-$1C], ecx
- 004D7466 8945FC mov [ebp-$04], eax
- 004D7469 33C0 xor eax, eax
- 004D746B 55 push ebp
- * Possible String Reference to: "镼莉
English
