procUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：43k
- unit procUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls, ComCtrls;
- type
- TprocM=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- OutlookBtn3: TOutlookBtn;
- Lista: TListView;
- tmpList: TMemo;
- 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);
- procedure OutlookBtn3Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- procM: TprocM;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TprocM.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E3C94 55 push ebp
- 004E3C95 8BEC mov ebp, esp
- 004E3C97 53 push ebx
- 004E3C98 8BD8 mov ebx, eax
- 004E3C9A 8B83C4020000 mov eax, [ebx+$02C4]
- 004E3CA0 8B4024 mov eax, [eax+$24]
- 004E3CA3 E83488F5FF call 0043C4DC
- 004E3CA8 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004E3CA9 E8CA3BF2FF call 00407878
- 004E3CAE C783E8020000FFFFFFFF mov dword ptr [ebx+$02E8], $FFFFFFFF
- 004E3CB8 8B450C mov eax, [ebp+$0C]
- 004E3CBB 8983E0020000 mov [ebx+$02E0], eax
- 004E3CC1 8B4508 mov eax, [ebp+$08]
- 004E3CC4 8983E4020000 mov [ebx+$02E4], eax
- 004E3CCA 5B pop ebx
- 004E3CCB 5D pop ebp
- 004E3CCC C20C ret $0C
- }
- end ;
- procedure TprocM.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E3CD0 55 push ebp
- 004E3CD1 8BEC mov ebp, esp
- 004E3CD3 53 push ebx
- 004E3CD4 56 push esi
- 004E3CD5 8BD8 mov ebx, eax
- 004E3CD7 83BBE802000000 cmp dword ptr [ebx+$02E8], +$00
- 004E3CDE 7433 jz 004E3D13
- 004E3CE0 8B83C4020000 mov eax, [ebx+$02C4]
- 004E3CE6 8B7024 mov esi, [eax+$24]
- 004E3CE9 8B83E0020000 mov eax, [ebx+$02E0]
- 004E3CEF 2B450C sub eax, dword ptr [ebp+$0C]
- 004E3CF2 8B5630 mov edx, [esi+$30]
- 004E3CF5 2BD0 sub edx, eax
- 004E3CF7 8BC6 mov eax, esi
- 004E3CF9 E8AE21F5FF call 00435EAC
- 004E3CFE 8B83E4020000 mov eax, [ebx+$02E4]
- 004E3D04 2B4508 sub eax, dword ptr [ebp+$08]
- 004E3D07 8B5634 mov edx, [esi+$34]
- 004E3D0A 2BD0 sub edx, eax
- 004E3D0C 8BC6 mov eax, esi
- 004E3D0E E8BD21F5FF call 00435ED0
- 004E3D13 5E pop esi
- 004E3D14 5B pop ebx
- 004E3D15 5D pop ebp
- 004E3D16 C208 ret $08
- }
- end ;
- procedure TprocM.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E3D1C 55 push ebp
- 004E3D1D 8BEC mov ebp, esp
- 004E3D1F 53 push ebx
- 004E3D20 56 push esi
- 004E3D21 8BD8 mov ebx, eax
- 004E3D23 83BBE802000000 cmp dword ptr [ebx+$02E8], +$00
- 004E3D2A 7440 jz 004E3D6C
- 004E3D2C 8B83C4020000 mov eax, [ebx+$02C4]
- 004E3D32 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004E3D35 E8EE3AF2FF call 00407828
- 004E3D3A 33C0 xor eax, eax
- 004E3D3C 8983E8020000 mov [ebx+$02E8], eax
- 004E3D42 8B83E0020000 mov eax, [ebx+$02E0]
- 004E3D48 2B450C sub eax, dword ptr [ebp+$0C]
- 004E3D4B 8B5630 mov edx, [esi+$30]
- 004E3D4E 2BD0 sub edx, eax
- 004E3D50 8BC6 mov eax, esi
- 004E3D52 E85521F5FF call 00435EAC
- 004E3D57 8B83E4020000 mov eax, [ebx+$02E4]
- 004E3D5D 2B4508 sub eax, dword ptr [ebp+$08]
- 004E3D60 8B5634 mov edx, [esi+$34]
- 004E3D63 2BD0 sub edx, eax
- 004E3D65 8BC6 mov eax, esi
- 004E3D67 E86421F5FF call 00435ED0
- 004E3D6C 5E pop esi
- 004E3D6D 5B pop ebx
- 004E3D6E 5D pop ebp
- 004E3D6F C20C ret $0C
- }
- end ;
- procedure TprocM.CloseButtonClick(Sender: TObject);
- begin
- {
- 004E3C8C E8EBBDF6FF call 0044FA7C
- 004E3C91 C3 ret
- }
- end ;
- procedure TprocM.FormCreate(Sender: TObject);
- begin
- {
- 004E3A44 55 push ebp
- 004E3A45 8BEC mov ebp, esp
- 004E3A47 6A00 push $00
- 004E3A49 6A00 push $00
- 004E3A4B 53 push ebx
- 004E3A4C 56 push esi
- 004E3A4D 8BD8 mov ebx, eax
- 004E3A4F 8B35DC495400 mov esi, [$5449DC]
- 004E3A55 33C0 xor eax, eax
- 004E3A57 55 push ebp
- * Possible String Reference to: "辁
English
