msnUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：21k
- unit msnUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls;
- type
- TmsnForm=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- Label1: TLabel;
- CuCine: TLabel;
- OutlookBtn1: TOutlookBtn;
- ToolbarButton971: TToolbarButton97;
- Memo1: TMemo;
- ImageList1: TImageList;
- 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 FormCreate(Sender: TObject);
- procedure FormPaint(Sender: TObject);
- procedure FormResize(Sender: TObject);
- procedure OutlookBtn1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- msnForm: TmsnForm;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TmsnForm.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E6294 55 push ebp
- 004E6295 8BEC mov ebp, esp
- 004E6297 53 push ebx
- 004E6298 8BD8 mov ebx, eax
- 004E629A 8B83C4020000 mov eax, [ebx+$02C4]
- 004E62A0 8B4024 mov eax, [eax+$24]
- 004E62A3 E83462F5FF call 0043C4DC
- 004E62A8 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004E62A9 E8CA15F2FF call 00407878
- 004E62AE C783EC020000FFFFFFFF mov dword ptr [ebx+$02EC], $FFFFFFFF
- 004E62B8 8B450C mov eax, [ebp+$0C]
- 004E62BB 8983E4020000 mov [ebx+$02E4], eax
- 004E62C1 8B4508 mov eax, [ebp+$08]
- 004E62C4 8983E8020000 mov [ebx+$02E8], eax
- 004E62CA 5B pop ebx
- 004E62CB 5D pop ebp
- 004E62CC C20C ret $0C
- }
- end ;
- procedure TmsnForm.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E62D0 55 push ebp
- 004E62D1 8BEC mov ebp, esp
- 004E62D3 53 push ebx
- 004E62D4 56 push esi
- 004E62D5 8BD8 mov ebx, eax
- 004E62D7 83BBEC02000000 cmp dword ptr [ebx+$02EC], +$00
- 004E62DE 7433 jz 004E6313
- 004E62E0 8B83C4020000 mov eax, [ebx+$02C4]
- 004E62E6 8B7024 mov esi, [eax+$24]
- 004E62E9 8B83E4020000 mov eax, [ebx+$02E4]
- 004E62EF 2B450C sub eax, dword ptr [ebp+$0C]
- 004E62F2 8B5630 mov edx, [esi+$30]
- 004E62F5 2BD0 sub edx, eax
- 004E62F7 8BC6 mov eax, esi
- 004E62F9 E8AEFBF4FF call 00435EAC
- 004E62FE 8B83E8020000 mov eax, [ebx+$02E8]
- 004E6304 2B4508 sub eax, dword ptr [ebp+$08]
- 004E6307 8B5634 mov edx, [esi+$34]
- 004E630A 2BD0 sub edx, eax
- 004E630C 8BC6 mov eax, esi
- 004E630E E8BDFBF4FF call 00435ED0
- 004E6313 5E pop esi
- 004E6314 5B pop ebx
- 004E6315 5D pop ebp
- 004E6316 C208 ret $08
- }
- end ;
- procedure TmsnForm.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E631C 55 push ebp
- 004E631D 8BEC mov ebp, esp
- 004E631F 53 push ebx
- 004E6320 56 push esi
- 004E6321 8BD8 mov ebx, eax
- 004E6323 83BBEC02000000 cmp dword ptr [ebx+$02EC], +$00
- 004E632A 7440 jz 004E636C
- 004E632C 8B83C4020000 mov eax, [ebx+$02C4]
- 004E6332 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004E6335 E8EE14F2FF call 00407828
- 004E633A 33C0 xor eax, eax
- 004E633C 8983EC020000 mov [ebx+$02EC], eax
- 004E6342 8B83E4020000 mov eax, [ebx+$02E4]
- 004E6348 2B450C sub eax, dword ptr [ebp+$0C]
- 004E634B 8B5630 mov edx, [esi+$30]
- 004E634E 2BD0 sub edx, eax
- 004E6350 8BC6 mov eax, esi
- 004E6352 E855FBF4FF call 00435EAC
- 004E6357 8B83E8020000 mov eax, [ebx+$02E8]
- 004E635D 2B4508 sub eax, dword ptr [ebp+$08]
- 004E6360 8B5634 mov edx, [esi+$34]
- 004E6363 2BD0 sub edx, eax
- 004E6365 8BC6 mov eax, esi
- 004E6367 E864FBF4FF call 00435ED0
- 004E636C 5E pop esi
- 004E636D 5B pop ebx
- 004E636E 5D pop ebp
- 004E636F C20C ret $0C
- }
- end ;
- procedure TmsnForm.FormCreate(Sender: TObject);
- begin
- {
- 004E6284 E88BFEFFFF call 004E6114
- 004E6289 C3 ret
- }
- end ;
- procedure TmsnForm.FormPaint(Sender: TObject);
- begin
- {
- 004E6398 53 push ebx
- 004E6399 56 push esi
- 004E639A 57 push edi
- 004E639B 55 push ebp
- 004E639C 83C4E0 add esp, -$20
- 004E639F 8BD8 mov ebx, eax
- 004E63A1 8B2DDC495400 mov ebp, [$5449DC]
- 004E63A7 8B733C mov esi, [ebx+$3C]
- 004E63AA 83EE05 sub esi, +$05
- 004E63AD 83EE18 sub esi, +$18
- 004E63B0 7C5D jl 004E640F
- 004E63B2 46 inc esi
- 004E63B3 BF18000000 mov edi, $00000018
- 004E63B8 6A01 push $01
- 004E63BA 8D442404 lea eax, [esp+$04]
- 004E63BE 50 push eax
- 004E63BF B904000000 mov ecx, $00000004
- 004E63C4 BA1A000000 mov edx, $0000001A
- 004E63C9 B801000000 mov eax, $00000001
- 004E63CE E86DA5F2FF call 00410940
- 004E63D3 54 push esp
- 004E63D4 6A01 push $01
- 004E63D6 8D442418 lea eax, [esp+$18]
- 004E63DA 50 push eax
- 004E63DB B904000000 mov ecx, $00000004
- 004E63E0 8BD7 mov edx, edi
- 004E63E2 33C0 xor eax, eax
- 004E63E4 E857A5F2FF call 00410940
- 004E63E9 8D442414 lea eax, [esp+$14]
- 004E63ED 50 push eax
- 004E63EE 8B4500 mov eax, [ebp+$00]
- 004E63F1 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E63F7 E894CFF3FF call 00423390
- 004E63FC 50 push eax
- 004E63FD 8BC3 mov eax, ebx
- 004E63FF E8FC70F6FF call 0044D500
- 004E6404 59 pop ecx
- 004E6405 5A pop edx
- 004E6406 E8417CF3FF call 0041E04C
- 004E640B 47 inc edi
- 004E640C 4E dec esi
- 004E640D 75A9 jnz 004E63B8
- 004E640F 8B733C mov esi, [ebx+$3C]
- 004E6412 83EE05 sub esi, +$05
- 004E6415 83EE18 sub esi, +$18
- 004E6418 7C61 jl 004E647B
- 004E641A 46 inc esi
- 004E641B BF18000000 mov edi, $00000018
- 004E6420 6A01 push $01
- 004E6422 8D442404 lea eax, [esp+$04]
- 004E6426 50 push eax
- 004E6427 B904000000 mov ecx, $00000004
- 004E642C BA1A000000 mov edx, $0000001A
- 004E6431 B830000000 mov eax, $00000030
- 004E6436 E805A5F2FF call 00410940
- 004E643B 54 push esp
- 004E643C 6A01 push $01
- 004E643E 8D442418 lea eax, [esp+$18]
- 004E6442 50 push eax
- 004E6443 8B4338 mov eax, [ebx+$38]
- 004E6446 83E804 sub eax, +$04
- 004E6449 B904000000 mov ecx, $00000004
- 004E644E 8BD7 mov edx, edi
- 004E6450 E8EBA4F2FF call 00410940
- 004E6455 8D442414 lea eax, [esp+$14]
- 004E6459 50 push eax
- 004E645A 8B4500 mov eax, [ebp+$00]
- 004E645D 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E6463 E828CFF3FF call 00423390
- 004E6468 50 push eax
- 004E6469 8BC3 mov eax, ebx
- 004E646B E89070F6FF call 0044D500
- 004E6470 59 pop ecx
- 004E6471 5A pop edx
- 004E6472 E8D57BF3FF call 0041E04C
- 004E6477 47 inc edi
- 004E6478 4E dec esi
- 004E6479 75A5 jnz 004E6420
- 004E647B 8B7338 mov esi, [ebx+$38]
- 004E647E 83EE18 sub esi, +$18
- 004E6481 83EE18 sub esi, +$18
- 004E6484 7C5D jl 004E64E3
- 004E6486 46 inc esi
- 004E6487 BF18000000 mov edi, $00000018
- 004E648C 6A18 push $18
- 004E648E 8D442404 lea eax, [esp+$04]
- 004E6492 50 push eax
- 004E6493 B901000000 mov ecx, $00000001
- 004E6498 BA01000000 mov edx, $00000001
- 004E649D B81A000000 mov eax, $0000001A
- 004E64A2 E899A4F2FF call 00410940
- 004E64A7 54 push esp
- 004E64A8 6A18 push $18
- 004E64AA 8D442418 lea eax, [esp+$18]
- 004E64AE 50 push eax
- 004E64AF B901000000 mov ecx, $00000001
- 004E64B4 33D2 xor edx, edx
- 004E64B6 8BC7 mov eax, edi
- 004E64B8 E883A4F2FF call 00410940
- 004E64BD 8D442414 lea eax, [esp+$14]
- 004E64C1 50 push eax
- 004E64C2 8B4500 mov eax, [ebp+$00]
- 004E64C5 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E64CB E8C0CEF3FF call 00423390
- 004E64D0 50 push eax
- 004E64D1 8BC3 mov eax, ebx
- 004E64D3 E82870F6FF call 0044D500
- 004E64D8 59 pop ecx
- 004E64D9 5A pop edx
- 004E64DA E86D7BF3FF call 0041E04C
- 004E64DF 47 inc edi
- 004E64E0 4E dec esi
- 004E64E1 75A9 jnz 004E648C
- 004E64E3 8B7338 mov esi, [ebx+$38]
- 004E64E6 83EE04 sub esi, +$04
- 004E64E9 83EE04 sub esi, +$04
- 004E64EC 7C61 jl 004E654F
- 004E64EE 46 inc esi
- 004E64EF BF04000000 mov edi, $00000004
- 004E64F4 6A04 push $04
- 004E64F6 8D442404 lea eax, [esp+$04]
- 004E64FA 50 push eax
- 004E64FB B901000000 mov ecx, $00000001
- 004E6500 BA1C000000 mov edx, $0000001C
- 004E6505 B81A000000 mov eax, $0000001A
- 004E650A E831A4F2FF call 00410940
- 004E650F 54 push esp
- 004E6510 6A04 push $04
- 004E6512 8D442418 lea eax, [esp+$18]
- 004E6516 50 push eax
- 004E6517 8B533C mov edx, [ebx+$3C]
- 004E651A 83EA04 sub edx, +$04
- 004E651D B901000000 mov ecx, $00000001
- 004E6522 8BC7 mov eax, edi
- 004E6524 E817A4F2FF call 00410940
- 004E6529 8D442414 lea eax, [esp+$14]
- 004E652D 50 push eax
- 004E652E 8B4500 mov eax, [ebp+$00]
- 004E6531 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E6537 E854CEF3FF call 00423390
- 004E653C 50 push eax
- 004E653D 8BC3 mov eax, ebx
- 004E653F E8BC6FF6FF call 0044D500
- 004E6544 59 pop ecx
- 004E6545 5A pop edx
- 004E6546 E8017BF3FF call 0041E04C
- 004E654B 47 inc edi
- 004E654C 4E dec esi
- 004E654D 75A5 jnz 004E64F4
- 004E654F 6A18 push $18
- 004E6551 8D442404 lea eax, [esp+$04]
- 004E6555 50 push eax
- 004E6556 B918000000 mov ecx, $00000018
- 004E655B BA01000000 mov edx, $00000001
- 004E6560 B801000000 mov eax, $00000001
- 004E6565 E8D6A3F2FF call 00410940
- 004E656A 54 push esp
- 004E656B 6A18 push $18
- 004E656D 8D442418 lea eax, [esp+$18]
- 004E6571 50 push eax
- 004E6572 B918000000 mov ecx, $00000018
- 004E6577 33D2 xor edx, edx
- 004E6579 33C0 xor eax, eax
- 004E657B E8C0A3F2FF call 00410940
- 004E6580 8D442414 lea eax, [esp+$14]
- 004E6584 50 push eax
- 004E6585 8B4500 mov eax, [ebp+$00]
- 004E6588 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E658E E8FDCDF3FF call 00423390
- 004E6593 50 push eax
- 004E6594 8BC3 mov eax, ebx
- 004E6596 E8656FF6FF call 0044D500
- 004E659B 59 pop ecx
- 004E659C 5A pop edx
- 004E659D E8AA7AF3FF call 0041E04C
- 004E65A2 6A18 push $18
- 004E65A4 8D442404 lea eax, [esp+$04]
- 004E65A8 50 push eax
- 004E65A9 B918000000 mov ecx, $00000018
- 004E65AE BA01000000 mov edx, $00000001
- 004E65B3 B81C000000 mov eax, $0000001C
- 004E65B8 E883A3F2FF call 00410940
- 004E65BD 54 push esp
- 004E65BE 6A18 push $18
- 004E65C0 8D442418 lea eax, [esp+$18]
- 004E65C4 50 push eax
- 004E65C5 8B4338 mov eax, [ebx+$38]
- 004E65C8 83E818 sub eax, +$18
- 004E65CB B918000000 mov ecx, $00000018
- 004E65D0 33D2 xor edx, edx
- 004E65D2 E869A3F2FF call 00410940
- 004E65D7 8D442414 lea eax, [esp+$14]
- 004E65DB 50 push eax
- 004E65DC 8B4500 mov eax, [ebp+$00]
- 004E65DF 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E65E5 E8A6CDF3FF call 00423390
- 004E65EA 50 push eax
- 004E65EB 8BC3 mov eax, ebx
- 004E65ED E80E6FF6FF call 0044D500
- 004E65F2 59 pop ecx
- 004E65F3 5A pop edx
- 004E65F4 E8537AF3FF call 0041E04C
- 004E65F9 6A04 push $04
- 004E65FB 8D442404 lea eax, [esp+$04]
- 004E65FF 50 push eax
- 004E6600 B904000000 mov ecx, $00000004
- 004E6605 BA1C000000 mov edx, $0000001C
- 004E660A B801000000 mov eax, $00000001
- 004E660F E82CA3F2FF call 00410940
- 004E6614 54 push esp
- 004E6615 6A04 push $04
- 004E6617 8D442418 lea eax, [esp+$18]
- 004E661B 50 push eax
- 004E661C 8B533C mov edx, [ebx+$3C]
- 004E661F 83EA04 sub edx, +$04
- 004E6622 B904000000 mov ecx, $00000004
- 004E6627 33C0 xor eax, eax
- 004E6629 E812A3F2FF call 00410940
- 004E662E 8D442414 lea eax, [esp+$14]
- 004E6632 50 push eax
- 004E6633 8B4500 mov eax, [ebp+$00]
- 004E6636 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E663C E84FCDF3FF call 00423390
- 004E6641 50 push eax
- 004E6642 8BC3 mov eax, ebx
- 004E6644 E8B76EF6FF call 0044D500
- 004E6649 59 pop ecx
- 004E664A 5A pop edx
- 004E664B E8FC79F3FF call 0041E04C
- 004E6650 6A04 push $04
- 004E6652 8D442404 lea eax, [esp+$04]
- 004E6656 50 push eax
- 004E6657 B904000000 mov ecx, $00000004
- 004E665C BA1C000000 mov edx, $0000001C
- 004E6661 B830000000 mov eax, $00000030
- 004E6666 E8D5A2F2FF call 00410940
- 004E666B 54 push esp
- 004E666C 6A04 push $04
- 004E666E 8D442418 lea eax, [esp+$18]
- 004E6672 50 push eax
- 004E6673 8B533C mov edx, [ebx+$3C]
- 004E6676 83EA04 sub edx, +$04
- 004E6679 8B4338 mov eax, [ebx+$38]
- 004E667C 83E804 sub eax, +$04
- 004E667F B904000000 mov ecx, $00000004
- 004E6684 E8B7A2F2FF call 00410940
- 004E6689 8D442414 lea eax, [esp+$14]
- 004E668D 50 push eax
- 004E668E 8B4500 mov eax, [ebp+$00]
- 004E6691 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E6697 E8F4CCF3FF call 00423390
- 004E669C 50 push eax
- 004E669D 8BC3 mov eax, ebx
- 004E669F E85C6EF6FF call 0044D500
- 004E66A4 59 pop ecx
- 004E66A5 5A pop edx
- 004E66A6 E8A179F3FF call 0041E04C
- 004E66AB 8BC3 mov eax, ebx
- 004E66AD E84E6EF6FF call 0044D500
- 004E66B2 8B4014 mov eax, [eax+$14]
- 004E66B5 8B5500 mov edx, [ebp+$00]
- 004E66B8 8B92180B0000 mov edx, [edx+$0B18]
- 004E66BE E85974F3FF call 0041DB1C
- 004E66C3 8B433C mov eax, [ebx+$3C]
- 004E66C6 83E81C sub eax, +$1C
- 004E66C9 50 push eax
- 004E66CA 8D442404 lea eax, [esp+$04]
- 004E66CE 50 push eax
- 004E66CF 8B4B38 mov ecx, [ebx+$38]
- 004E66D2 83E908 sub ecx, +$08
- 004E66D5 BA18000000 mov edx, $00000018
- 004E66DA B804000000 mov eax, $00000004
- 004E66DF E85CA2F2FF call 00410940
- 004E66E4 54 push esp
- 004E66E5 8BC3 mov eax, ebx
- 004E66E7 E8146EF6FF call 0044D500
- 004E66EC 5A pop edx
- 004E66ED E80A7BF3FF call 0041E1FC
- 004E66F2 83C420 add esp, +$20
- 004E66F5 5D pop ebp
- 004E66F6 5F pop edi
- 004E66F7 5E pop esi
- 004E66F8 5B pop ebx
- 004E66F9 C3 ret
- }
- end ;
- procedure TmsnForm.FormResize(Sender: TObject);
- begin
- {
- 004E66FC 8B10 mov edx, [eax]
- 004E66FE FF5278 call dword ptr [edx+$78]
- 004E6701 C3 ret
- }
- end ;
- procedure TmsnForm.OutlookBtn1Click(Sender: TObject);
- begin
- {
- 004E6374 53 push ebx
- 004E6375 8BD8 mov ebx, eax
- 004E6377 A1DC495400 mov eax, dword ptr [$5449DC]
- 004E637C 8B00 mov eax, [eax]
- 004E637E 8B530C mov edx, [ebx+$0C]
- 004E6381 8D8490340B0000 lea eax, [eax+edx*4+$0B34]
- 004E6388 E8CFD8F1FF call 00403C5C
- 004E638D B201 mov dl, $01
- 004E638F 8BC3 mov eax, ebx
- 004E6391 8B08 mov ecx, [eax]
- 004E6393 FF51FC call dword ptr [ecx-$04]
- 004E6396 5B pop ebx
- 004E6397 C3 ret
- }
- end ;
- end.
English
