MessageUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：22k
- unit MessageUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls;
- type
- TMsgForm=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- Mesaj: TLabel;
- OutlookBtn1: TOutlookBtn;
- 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);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- MsgForm: TMsgForm;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TMsgForm.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CD744 55 push ebp
- 004CD745 8BEC mov ebp, esp
- 004CD747 53 push ebx
- 004CD748 8BD8 mov ebx, eax
- 004CD74A 8B83C4020000 mov eax, [ebx+$02C4]
- 004CD750 8B4024 mov eax, [eax+$24]
- 004CD753 E884EDF6FF call 0043C4DC
- 004CD758 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004CD759 E81AA1F3FF call 00407878
- 004CD75E C783DC020000FFFFFFFF mov dword ptr [ebx+$02DC], $FFFFFFFF
- 004CD768 8B450C mov eax, [ebp+$0C]
- 004CD76B 8983D4020000 mov [ebx+$02D4], eax
- 004CD771 8B4508 mov eax, [ebp+$08]
- 004CD774 8983D8020000 mov [ebx+$02D8], eax
- 004CD77A 5B pop ebx
- 004CD77B 5D pop ebp
- 004CD77C C20C ret $0C
- }
- end ;
- procedure TMsgForm.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CD780 55 push ebp
- 004CD781 8BEC mov ebp, esp
- 004CD783 53 push ebx
- 004CD784 56 push esi
- 004CD785 8BD8 mov ebx, eax
- 004CD787 83BBDC02000000 cmp dword ptr [ebx+$02DC], +$00
- 004CD78E 7433 jz 004CD7C3
- 004CD790 8B83C4020000 mov eax, [ebx+$02C4]
- 004CD796 8B7024 mov esi, [eax+$24]
- 004CD799 8B83D4020000 mov eax, [ebx+$02D4]
- 004CD79F 2B450C sub eax, dword ptr [ebp+$0C]
- 004CD7A2 8B5630 mov edx, [esi+$30]
- 004CD7A5 2BD0 sub edx, eax
- 004CD7A7 8BC6 mov eax, esi
- 004CD7A9 E8FE86F6FF call 00435EAC
- 004CD7AE 8B83D8020000 mov eax, [ebx+$02D8]
- 004CD7B4 2B4508 sub eax, dword ptr [ebp+$08]
- 004CD7B7 8B5634 mov edx, [esi+$34]
- 004CD7BA 2BD0 sub edx, eax
- 004CD7BC 8BC6 mov eax, esi
- 004CD7BE E80D87F6FF call 00435ED0
- 004CD7C3 5E pop esi
- 004CD7C4 5B pop ebx
- 004CD7C5 5D pop ebp
- 004CD7C6 C208 ret $08
- }
- end ;
- procedure TMsgForm.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CD7CC 55 push ebp
- 004CD7CD 8BEC mov ebp, esp
- 004CD7CF 53 push ebx
- 004CD7D0 56 push esi
- 004CD7D1 8BD8 mov ebx, eax
- 004CD7D3 83BBDC02000000 cmp dword ptr [ebx+$02DC], +$00
- 004CD7DA 7440 jz 004CD81C
- 004CD7DC 8B83C4020000 mov eax, [ebx+$02C4]
- 004CD7E2 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004CD7E5 E83EA0F3FF call 00407828
- 004CD7EA 33C0 xor eax, eax
- 004CD7EC 8983DC020000 mov [ebx+$02DC], eax
- 004CD7F2 8B83D4020000 mov eax, [ebx+$02D4]
- 004CD7F8 2B450C sub eax, dword ptr [ebp+$0C]
- 004CD7FB 8B5630 mov edx, [esi+$30]
- 004CD7FE 2BD0 sub edx, eax
- 004CD800 8BC6 mov eax, esi
- 004CD802 E8A586F6FF call 00435EAC
- 004CD807 8B83D8020000 mov eax, [ebx+$02D8]
- 004CD80D 2B4508 sub eax, dword ptr [ebp+$08]
- 004CD810 8B5634 mov edx, [esi+$34]
- 004CD813 2BD0 sub edx, eax
- 004CD815 8BC6 mov eax, esi
- 004CD817 E8B486F6FF call 00435ED0
- 004CD81C 5E pop esi
- 004CD81D 5B pop ebx
- 004CD81E 5D pop ebp
- 004CD81F C20C ret $0C
- }
- end ;
- procedure TMsgForm.CloseButtonClick(Sender: TObject);
- begin
- {
- 004CD73C E88B21F8FF call 0044F8CC
- 004CD741 C3 ret
- }
- end ;
- procedure TMsgForm.FormCreate(Sender: TObject);
- begin
- {
- 004CD734 E88FFEFFFF call 004CD5C8
- 004CD739 C3 ret
- }
- end ;
- procedure TMsgForm.FormPaint(Sender: TObject);
- begin
- {
- 004CD82C 55 push ebp
- 004CD82D 8BEC mov ebp, esp
- 004CD82F 83C4E0 add esp, -$20
- 004CD832 53 push ebx
- 004CD833 56 push esi
- 004CD834 57 push edi
- 004CD835 8BD8 mov ebx, eax
- 004CD837 33C0 xor eax, eax
- 004CD839 55 push ebp
- 004CD83A 68C1DB4C00 push $004CDBC1
- ***** TRY
- |
- 004CD83F 64FF30 push dword ptr fs:[eax]
- 004CD842 648920 mov fs:[eax], esp
- 004CD845 8B733C mov esi, [ebx+$3C]
- 004CD848 83EE05 sub esi, +$05
- 004CD84B 83EE18 sub esi, +$18
- 004CD84E 7C61 jl 004CD8B1
- 004CD850 46 inc esi
- 004CD851 BF18000000 mov edi, $00000018
- 004CD856 6A01 push $01
- 004CD858 8D45F0 lea eax, [ebp-$10]
- 004CD85B 50 push eax
- 004CD85C B904000000 mov ecx, $00000004
- 004CD861 BA1A000000 mov edx, $0000001A
- 004CD866 B801000000 mov eax, $00000001
- 004CD86B E8D030F4FF call 00410940
- 004CD870 8D45F0 lea eax, [ebp-$10]
- 004CD873 50 push eax
- 004CD874 6A01 push $01
- 004CD876 8D45E0 lea eax, [ebp-$20]
- 004CD879 50 push eax
- 004CD87A B904000000 mov ecx, $00000004
- 004CD87F 8BD7 mov edx, edi
- 004CD881 33C0 xor eax, eax
- 004CD883 E8B830F4FF call 00410940
- 004CD888 8D45E0 lea eax, [ebp-$20]
- 004CD88B 50 push eax
- 004CD88C A1DC495400 mov eax, dword ptr [$5449DC]
- 004CD891 8B00 mov eax, [eax]
- 004CD893 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CD899 E8F25AF5FF call 00423390
- 004CD89E 50 push eax
- 004CD89F 8BC3 mov eax, ebx
- 004CD8A1 E85AFCF7FF call 0044D500
- 004CD8A6 59 pop ecx
- 004CD8A7 5A pop edx
- 004CD8A8 E89F07F5FF call 0041E04C
- 004CD8AD 47 inc edi
- 004CD8AE 4E dec esi
- 004CD8AF 75A5 jnz 004CD856
- 004CD8B1 8B733C mov esi, [ebx+$3C]
- 004CD8B4 83EE05 sub esi, +$05
- 004CD8B7 83EE18 sub esi, +$18
- 004CD8BA 7C65 jl 004CD921
- 004CD8BC 46 inc esi
- 004CD8BD BF18000000 mov edi, $00000018
- 004CD8C2 6A01 push $01
- 004CD8C4 8D45F0 lea eax, [ebp-$10]
- 004CD8C7 50 push eax
- 004CD8C8 B904000000 mov ecx, $00000004
- 004CD8CD BA1A000000 mov edx, $0000001A
- 004CD8D2 B830000000 mov eax, $00000030
- 004CD8D7 E86430F4FF call 00410940
- 004CD8DC 8D45F0 lea eax, [ebp-$10]
- 004CD8DF 50 push eax
- 004CD8E0 6A01 push $01
- 004CD8E2 8D45E0 lea eax, [ebp-$20]
- 004CD8E5 50 push eax
- 004CD8E6 8B4338 mov eax, [ebx+$38]
- 004CD8E9 83E804 sub eax, +$04
- 004CD8EC B904000000 mov ecx, $00000004
- 004CD8F1 8BD7 mov edx, edi
- 004CD8F3 E84830F4FF call 00410940
- 004CD8F8 8D45E0 lea eax, [ebp-$20]
- 004CD8FB 50 push eax
- 004CD8FC A1DC495400 mov eax, dword ptr [$5449DC]
- 004CD901 8B00 mov eax, [eax]
- 004CD903 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CD909 E8825AF5FF call 00423390
- 004CD90E 50 push eax
- 004CD90F 8BC3 mov eax, ebx
- 004CD911 E8EAFBF7FF call 0044D500
- 004CD916 59 pop ecx
- 004CD917 5A pop edx
- 004CD918 E82F07F5FF call 0041E04C
- 004CD91D 47 inc edi
- 004CD91E 4E dec esi
- 004CD91F 75A1 jnz 004CD8C2
- 004CD921 8B7338 mov esi, [ebx+$38]
- 004CD924 83EE18 sub esi, +$18
- 004CD927 83EE18 sub esi, +$18
- 004CD92A 7C61 jl 004CD98D
- 004CD92C 46 inc esi
- 004CD92D BF18000000 mov edi, $00000018
- 004CD932 6A18 push $18
- 004CD934 8D45F0 lea eax, [ebp-$10]
- 004CD937 50 push eax
- 004CD938 B901000000 mov ecx, $00000001
- 004CD93D BA01000000 mov edx, $00000001
- 004CD942 B81A000000 mov eax, $0000001A
- 004CD947 E8F42FF4FF call 00410940
- 004CD94C 8D45F0 lea eax, [ebp-$10]
- 004CD94F 50 push eax
- 004CD950 6A18 push $18
- 004CD952 8D45E0 lea eax, [ebp-$20]
- 004CD955 50 push eax
- 004CD956 B901000000 mov ecx, $00000001
- 004CD95B 33D2 xor edx, edx
- 004CD95D 8BC7 mov eax, edi
- 004CD95F E8DC2FF4FF call 00410940
- 004CD964 8D45E0 lea eax, [ebp-$20]
- 004CD967 50 push eax
- 004CD968 A1DC495400 mov eax, dword ptr [$5449DC]
- 004CD96D 8B00 mov eax, [eax]
- 004CD96F 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CD975 E8165AF5FF call 00423390
- 004CD97A 50 push eax
- 004CD97B 8BC3 mov eax, ebx
- 004CD97D E87EFBF7FF call 0044D500
- 004CD982 59 pop ecx
- 004CD983 5A pop edx
- 004CD984 E8C306F5FF call 0041E04C
- 004CD989 47 inc edi
- 004CD98A 4E dec esi
- 004CD98B 75A5 jnz 004CD932
- 004CD98D 8B7338 mov esi, [ebx+$38]
- 004CD990 83EE04 sub esi, +$04
- 004CD993 83EE04 sub esi, +$04
- 004CD996 7C65 jl 004CD9FD
- 004CD998 46 inc esi
- 004CD999 BF04000000 mov edi, $00000004
- 004CD99E 6A04 push $04
- 004CD9A0 8D45F0 lea eax, [ebp-$10]
- 004CD9A3 50 push eax
- 004CD9A4 B901000000 mov ecx, $00000001
- 004CD9A9 BA1C000000 mov edx, $0000001C
- 004CD9AE B81A000000 mov eax, $0000001A
- 004CD9B3 E8882FF4FF call 00410940
- 004CD9B8 8D45F0 lea eax, [ebp-$10]
- 004CD9BB 50 push eax
- 004CD9BC 6A04 push $04
- 004CD9BE 8D45E0 lea eax, [ebp-$20]
- 004CD9C1 50 push eax
- 004CD9C2 8B533C mov edx, [ebx+$3C]
- 004CD9C5 83EA04 sub edx, +$04
- 004CD9C8 B901000000 mov ecx, $00000001
- 004CD9CD 8BC7 mov eax, edi
- 004CD9CF E86C2FF4FF call 00410940
- 004CD9D4 8D45E0 lea eax, [ebp-$20]
- 004CD9D7 50 push eax
- 004CD9D8 A1DC495400 mov eax, dword ptr [$5449DC]
- 004CD9DD 8B00 mov eax, [eax]
- 004CD9DF 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CD9E5 E8A659F5FF call 00423390
- 004CD9EA 50 push eax
- 004CD9EB 8BC3 mov eax, ebx
- 004CD9ED E80EFBF7FF call 0044D500
- 004CD9F2 59 pop ecx
- 004CD9F3 5A pop edx
- 004CD9F4 E85306F5FF call 0041E04C
- 004CD9F9 47 inc edi
- 004CD9FA 4E dec esi
- 004CD9FB 75A1 jnz 004CD99E
- 004CD9FD 6A18 push $18
- 004CD9FF 8D45F0 lea eax, [ebp-$10]
- 004CDA02 50 push eax
- 004CDA03 B918000000 mov ecx, $00000018
- 004CDA08 BA01000000 mov edx, $00000001
- 004CDA0D B801000000 mov eax, $00000001
- 004CDA12 E8292FF4FF call 00410940
- 004CDA17 8D45F0 lea eax, [ebp-$10]
- 004CDA1A 50 push eax
- 004CDA1B 6A18 push $18
- 004CDA1D 8D45E0 lea eax, [ebp-$20]
- 004CDA20 50 push eax
- 004CDA21 B918000000 mov ecx, $00000018
- 004CDA26 33D2 xor edx, edx
- 004CDA28 33C0 xor eax, eax
- 004CDA2A E8112FF4FF call 00410940
- 004CDA2F 8D45E0 lea eax, [ebp-$20]
- 004CDA32 50 push eax
- 004CDA33 A1DC495400 mov eax, dword ptr [$5449DC]
- 004CDA38 8B00 mov eax, [eax]
- 004CDA3A 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CDA40 E84B59F5FF call 00423390
- 004CDA45 50 push eax
- 004CDA46 8BC3 mov eax, ebx
- 004CDA48 E8B3FAF7FF call 0044D500
- 004CDA4D 59 pop ecx
- 004CDA4E 5A pop edx
- 004CDA4F E8F805F5FF call 0041E04C
- 004CDA54 6A18 push $18
- 004CDA56 8D45F0 lea eax, [ebp-$10]
- 004CDA59 50 push eax
- 004CDA5A B918000000 mov ecx, $00000018
- 004CDA5F BA01000000 mov edx, $00000001
- 004CDA64 B81C000000 mov eax, $0000001C
- 004CDA69 E8D22EF4FF call 00410940
- 004CDA6E 8D45F0 lea eax, [ebp-$10]
- 004CDA71 50 push eax
- 004CDA72 6A18 push $18
- 004CDA74 8D45E0 lea eax, [ebp-$20]
- 004CDA77 50 push eax
- 004CDA78 8B4338 mov eax, [ebx+$38]
- 004CDA7B 83E818 sub eax, +$18
- 004CDA7E B918000000 mov ecx, $00000018
- 004CDA83 33D2 xor edx, edx
- 004CDA85 E8B62EF4FF call 00410940
- 004CDA8A 8D45E0 lea eax, [ebp-$20]
- 004CDA8D 50 push eax
- 004CDA8E A1DC495400 mov eax, dword ptr [$5449DC]
- 004CDA93 8B00 mov eax, [eax]
- 004CDA95 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CDA9B E8F058F5FF call 00423390
- 004CDAA0 50 push eax
- 004CDAA1 8BC3 mov eax, ebx
- 004CDAA3 E858FAF7FF call 0044D500
- 004CDAA8 59 pop ecx
- 004CDAA9 5A pop edx
- 004CDAAA E89D05F5FF call 0041E04C
- 004CDAAF 6A04 push $04
- 004CDAB1 8D45F0 lea eax, [ebp-$10]
- 004CDAB4 50 push eax
- 004CDAB5 B904000000 mov ecx, $00000004
- 004CDABA BA1C000000 mov edx, $0000001C
- 004CDABF B801000000 mov eax, $00000001
- 004CDAC4 E8772EF4FF call 00410940
- 004CDAC9 8D45F0 lea eax, [ebp-$10]
- 004CDACC 50 push eax
- 004CDACD 6A04 push $04
- 004CDACF 8D45E0 lea eax, [ebp-$20]
- 004CDAD2 50 push eax
- 004CDAD3 8B533C mov edx, [ebx+$3C]
- 004CDAD6 83EA04 sub edx, +$04
- 004CDAD9 B904000000 mov ecx, $00000004
- 004CDADE 33C0 xor eax, eax
- 004CDAE0 E85B2EF4FF call 00410940
- 004CDAE5 8D45E0 lea eax, [ebp-$20]
- 004CDAE8 50 push eax
- 004CDAE9 A1DC495400 mov eax, dword ptr [$5449DC]
- 004CDAEE 8B00 mov eax, [eax]
- 004CDAF0 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CDAF6 E89558F5FF call 00423390
- 004CDAFB 50 push eax
- 004CDAFC 8BC3 mov eax, ebx
- 004CDAFE E8FDF9F7FF call 0044D500
- 004CDB03 59 pop ecx
- 004CDB04 5A pop edx
- 004CDB05 E84205F5FF call 0041E04C
- 004CDB0A 6A04 push $04
- 004CDB0C 8D45F0 lea eax, [ebp-$10]
- 004CDB0F 50 push eax
- 004CDB10 B904000000 mov ecx, $00000004
- 004CDB15 BA1C000000 mov edx, $0000001C
- 004CDB1A B830000000 mov eax, $00000030
- 004CDB1F E81C2EF4FF call 00410940
- 004CDB24 8D45F0 lea eax, [ebp-$10]
- 004CDB27 50 push eax
- 004CDB28 6A04 push $04
- 004CDB2A 8D45E0 lea eax, [ebp-$20]
- 004CDB2D 50 push eax
- 004CDB2E 8B533C mov edx, [ebx+$3C]
- 004CDB31 83EA04 sub edx, +$04
- 004CDB34 8B4338 mov eax, [ebx+$38]
- 004CDB37 83E804 sub eax, +$04
- 004CDB3A B904000000 mov ecx, $00000004
- 004CDB3F E8FC2DF4FF call 00410940
- 004CDB44 8D45E0 lea eax, [ebp-$20]
- 004CDB47 50 push eax
- 004CDB48 A1DC495400 mov eax, dword ptr [$5449DC]
- 004CDB4D 8B00 mov eax, [eax]
- 004CDB4F 8B80E80A0000 mov eax, [eax+$0AE8]
- 004CDB55 E83658F5FF call 00423390
- 004CDB5A 50 push eax
- 004CDB5B 8BC3 mov eax, ebx
- 004CDB5D E89EF9F7FF call 0044D500
- 004CDB62 59 pop ecx
- 004CDB63 5A pop edx
- 004CDB64 E8E304F5FF call 0041E04C
- 004CDB69 8BC3 mov eax, ebx
- 004CDB6B E890F9F7FF call 0044D500
- 004CDB70 8B4014 mov eax, [eax+$14]
- 004CDB73 8B15DC495400 mov edx, [$5449DC]
- 004CDB79 8B12 mov edx, [edx]
- 004CDB7B 8B92180B0000 mov edx, [edx+$0B18]
- 004CDB81 E896FFF4FF call 0041DB1C
- 004CDB86 8B433C mov eax, [ebx+$3C]
- 004CDB89 83E81C sub eax, +$1C
- 004CDB8C 50 push eax
- 004CDB8D 8D45F0 lea eax, [ebp-$10]
- 004CDB90 50 push eax
- 004CDB91 8B4B38 mov ecx, [ebx+$38]
- 004CDB94 83E908 sub ecx, +$08
- 004CDB97 BA18000000 mov edx, $00000018
- 004CDB9C B804000000 mov eax, $00000004
- 004CDBA1 E89A2DF4FF call 00410940
- 004CDBA6 8D45F0 lea eax, [ebp-$10]
- 004CDBA9 50 push eax
- 004CDBAA 8BC3 mov eax, ebx
- 004CDBAC E84FF9F7FF call 0044D500
- 004CDBB1 5A pop edx
- 004CDBB2 E84506F5FF call 0041E1FC
- 004CDBB7 33C0 xor eax, eax
- 004CDBB9 5A pop edx
- 004CDBBA 59 pop ecx
- 004CDBBB 59 pop ecx
- 004CDBBC 648910 mov fs:[eax], edx
- 004CDBBF EB0A jmp 004CDBCB
- ****** EXCEPT
- |
- 004CDBC1 E99258F3FF jmp 00403458
- 004CDBC6 E83D5BF3FF call 00403708
- ****** END
- |
- 004CDBCB 5F pop edi
- 004CDBCC 5E pop esi
- 004CDBCD 5B pop ebx
- 004CDBCE 8BE5 mov esp, ebp
- 004CDBD0 5D pop ebp
- 004CDBD1 C3 ret
- }
- end ;
- procedure TMsgForm.FormResize(Sender: TObject);
- begin
- {
- 004CDBD4 8B10 mov edx, [eax]
- 004CDBD6 FF5278 call dword ptr [edx+$78]
- 004CDBD9 C3 ret
- }
- end ;
- procedure TMsgForm.OutlookBtn1Click(Sender: TObject);
- begin
- {
- 004CD824 E8A320F8FF call 0044F8CC
- 004CD829 C3 ret
- }
- end ;
- end.
English
