winmUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：56k
- unit winmUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls;
- type
- TwinM=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- OutlookBtn3: TOutlookBtn;
- OutlookBtn4: TOutlookBtn;
- OutlookBtn5: TOutlookBtn;
- OutlookBtn6: TOutlookBtn;
- OutlookBtn7: TOutlookBtn;
- OutlookBtn8: TOutlookBtn;
- apps: TListBox;
- ShowAll: TFlatCheckBox;
- 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);
- procedure OutlookBtn4Click(Sender: TObject);
- procedure OutlookBtn5Click(Sender: TObject);
- procedure OutlookBtn6Click(Sender: TObject);
- procedure OutlookBtn7Click(Sender: TObject);
- procedure OutlookBtn8Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- winM: TwinM;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TwinM.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004DF91C 55 push ebp
- 004DF91D 8BEC mov ebp, esp
- 004DF91F 53 push ebx
- 004DF920 8BD8 mov ebx, eax
- 004DF922 8B83C4020000 mov eax, [ebx+$02C4]
- 004DF928 8B4024 mov eax, [eax+$24]
- 004DF92B E8ACCBF5FF call 0043C4DC
- 004DF930 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004DF931 E8427FF2FF call 00407878
- 004DF936 C783FC020000FFFFFFFF mov dword ptr [ebx+$02FC], $FFFFFFFF
- 004DF940 8B450C mov eax, [ebp+$0C]
- 004DF943 8983F4020000 mov [ebx+$02F4], eax
- 004DF949 8B4508 mov eax, [ebp+$08]
- 004DF94C 8983F8020000 mov [ebx+$02F8], eax
- 004DF952 5B pop ebx
- 004DF953 5D pop ebp
- 004DF954 C20C ret $0C
- }
- end ;
- procedure TwinM.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004DF958 55 push ebp
- 004DF959 8BEC mov ebp, esp
- 004DF95B 53 push ebx
- 004DF95C 56 push esi
- 004DF95D 8BD8 mov ebx, eax
- 004DF95F 83BBFC02000000 cmp dword ptr [ebx+$02FC], +$00
- 004DF966 7433 jz 004DF99B
- 004DF968 8B83C4020000 mov eax, [ebx+$02C4]
- 004DF96E 8B7024 mov esi, [eax+$24]
- 004DF971 8B83F4020000 mov eax, [ebx+$02F4]
- 004DF977 2B450C sub eax, dword ptr [ebp+$0C]
- 004DF97A 8B5630 mov edx, [esi+$30]
- 004DF97D 2BD0 sub edx, eax
- 004DF97F 8BC6 mov eax, esi
- 004DF981 E82665F5FF call 00435EAC
- 004DF986 8B83F8020000 mov eax, [ebx+$02F8]
- 004DF98C 2B4508 sub eax, dword ptr [ebp+$08]
- 004DF98F 8B5634 mov edx, [esi+$34]
- 004DF992 2BD0 sub edx, eax
- 004DF994 8BC6 mov eax, esi
- 004DF996 E83565F5FF call 00435ED0
- 004DF99B 5E pop esi
- 004DF99C 5B pop ebx
- 004DF99D 5D pop ebp
- 004DF99E C208 ret $08
- }
- end ;
- procedure TwinM.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004DF9A4 55 push ebp
- 004DF9A5 8BEC mov ebp, esp
- 004DF9A7 53 push ebx
- 004DF9A8 56 push esi
- 004DF9A9 8BD8 mov ebx, eax
- 004DF9AB 83BBFC02000000 cmp dword ptr [ebx+$02FC], +$00
- 004DF9B2 7440 jz 004DF9F4
- 004DF9B4 8B83C4020000 mov eax, [ebx+$02C4]
- 004DF9BA 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004DF9BD E8667EF2FF call 00407828
- 004DF9C2 33C0 xor eax, eax
- 004DF9C4 8983FC020000 mov [ebx+$02FC], eax
- 004DF9CA 8B83F4020000 mov eax, [ebx+$02F4]
- 004DF9D0 2B450C sub eax, dword ptr [ebp+$0C]
- 004DF9D3 8B5630 mov edx, [esi+$30]
- 004DF9D6 2BD0 sub edx, eax
- 004DF9D8 8BC6 mov eax, esi
- 004DF9DA E8CD64F5FF call 00435EAC
- 004DF9DF 8B83F8020000 mov eax, [ebx+$02F8]
- 004DF9E5 2B4508 sub eax, dword ptr [ebp+$08]
- 004DF9E8 8B5634 mov edx, [esi+$34]
- 004DF9EB 2BD0 sub edx, eax
- 004DF9ED 8BC6 mov eax, esi
- 004DF9EF E8DC64F5FF call 00435ED0
- 004DF9F4 5E pop esi
- 004DF9F5 5B pop ebx
- 004DF9F6 5D pop ebp
- 004DF9F7 C20C ret $0C
- }
- end ;
- procedure TwinM.CloseButtonClick(Sender: TObject);
- begin
- {
- 004DF914 E86301F7FF call 0044FA7C
- 004DF919 C3 ret
- }
- end ;
- procedure TwinM.FormCreate(Sender: TObject);
- begin
- {
- 004DF6CC 55 push ebp
- 004DF6CD 8BEC mov ebp, esp
- 004DF6CF 6A00 push $00
- 004DF6D1 6A00 push $00
- 004DF6D3 53 push ebx
- 004DF6D4 56 push esi
- 004DF6D5 8BD8 mov ebx, eax
- 004DF6D7 8B35DC495400 mov esi, [$5449DC]
- 004DF6DD 33C0 xor eax, eax
- 004DF6DF 55 push ebp
- * Possible String Reference to: "閰=
English
