ShortcutUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：47k
- unit ShortcutUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls;
- type
- TShortcutForm=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- Label1: TLabel;
- Label2: TLabel;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- OutlookBtn3: TOutlookBtn;
- OutlookBtn4: TOutlookBtn;
- OutlookBtn5: TOutlookBtn;
- ListBox1: TListBox;
- ListBox2: TListBox;
- 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 FormShow(Sender: TObject);
- procedure OutlookBtn1Click(Sender: TObject);
- procedure OutlookBtn2Click(Sender: TObject);
- procedure OutlookBtn3Click(Sender: TObject);
- procedure OutlookBtn4Click(Sender: TObject);
- procedure OutlookBtn5Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- ShortcutForm: TShortcutForm;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TShortcutForm.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E09B8 55 push ebp
- 004E09B9 8BEC mov ebp, esp
- 004E09BB 53 push ebx
- 004E09BC 8BD8 mov ebx, eax
- 004E09BE 8B83C4020000 mov eax, [ebx+$02C4]
- 004E09C4 8B4024 mov eax, [eax+$24]
- 004E09C7 E810BBF5FF call 0043C4DC
- 004E09CC 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004E09CD E8A66EF2FF call 00407878
- 004E09D2 C783F8020000FFFFFFFF mov dword ptr [ebx+$02F8], $FFFFFFFF
- 004E09DC 8B450C mov eax, [ebp+$0C]
- 004E09DF 8983F0020000 mov [ebx+$02F0], eax
- 004E09E5 8B4508 mov eax, [ebp+$08]
- 004E09E8 8983F4020000 mov [ebx+$02F4], eax
- 004E09EE 5B pop ebx
- 004E09EF 5D pop ebp
- 004E09F0 C20C ret $0C
- }
- end ;
- procedure TShortcutForm.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E09F4 55 push ebp
- 004E09F5 8BEC mov ebp, esp
- 004E09F7 53 push ebx
- 004E09F8 56 push esi
- 004E09F9 8BD8 mov ebx, eax
- 004E09FB 83BBF802000000 cmp dword ptr [ebx+$02F8], +$00
- 004E0A02 7433 jz 004E0A37
- 004E0A04 8B83C4020000 mov eax, [ebx+$02C4]
- 004E0A0A 8B7024 mov esi, [eax+$24]
- 004E0A0D 8B83F0020000 mov eax, [ebx+$02F0]
- 004E0A13 2B450C sub eax, dword ptr [ebp+$0C]
- 004E0A16 8B5630 mov edx, [esi+$30]
- 004E0A19 2BD0 sub edx, eax
- 004E0A1B 8BC6 mov eax, esi
- 004E0A1D E88A54F5FF call 00435EAC
- 004E0A22 8B83F4020000 mov eax, [ebx+$02F4]
- 004E0A28 2B4508 sub eax, dword ptr [ebp+$08]
- 004E0A2B 8B5634 mov edx, [esi+$34]
- 004E0A2E 2BD0 sub edx, eax
- 004E0A30 8BC6 mov eax, esi
- 004E0A32 E89954F5FF call 00435ED0
- 004E0A37 5E pop esi
- 004E0A38 5B pop ebx
- 004E0A39 5D pop ebp
- 004E0A3A C208 ret $08
- }
- end ;
- procedure TShortcutForm.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E0A40 55 push ebp
- 004E0A41 8BEC mov ebp, esp
- 004E0A43 53 push ebx
- 004E0A44 56 push esi
- 004E0A45 8BD8 mov ebx, eax
- 004E0A47 83BBF802000000 cmp dword ptr [ebx+$02F8], +$00
- 004E0A4E 7440 jz 004E0A90
- 004E0A50 8B83C4020000 mov eax, [ebx+$02C4]
- 004E0A56 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004E0A59 E8CA6DF2FF call 00407828
- 004E0A5E 33C0 xor eax, eax
- 004E0A60 8983F8020000 mov [ebx+$02F8], eax
- 004E0A66 8B83F0020000 mov eax, [ebx+$02F0]
- 004E0A6C 2B450C sub eax, dword ptr [ebp+$0C]
- 004E0A6F 8B5630 mov edx, [esi+$30]
- 004E0A72 2BD0 sub edx, eax
- 004E0A74 8BC6 mov eax, esi
- 004E0A76 E83154F5FF call 00435EAC
- 004E0A7B 8B83F4020000 mov eax, [ebx+$02F4]
- 004E0A81 2B4508 sub eax, dword ptr [ebp+$08]
- 004E0A84 8B5634 mov edx, [esi+$34]
- 004E0A87 2BD0 sub edx, eax
- 004E0A89 8BC6 mov eax, esi
- 004E0A8B E84054F5FF call 00435ED0
- 004E0A90 5E pop esi
- 004E0A91 5B pop ebx
- 004E0A92 5D pop ebp
- 004E0A93 C20C ret $0C
- }
- end ;
- procedure TShortcutForm.CloseButtonClick(Sender: TObject);
- begin
- {
- 004E09B0 E8C7F0F6FF call 0044FA7C
- 004E09B5 C3 ret
- }
- end ;
- procedure TShortcutForm.FormCreate(Sender: TObject);
- begin
- {
- 004E09A8 E8ABFEFFFF call 004E0858
- 004E09AD C3 ret
- }
- end ;
- procedure TShortcutForm.FormPaint(Sender: TObject);
- begin
- {
- 004E1080 53 push ebx
- 004E1081 56 push esi
- 004E1082 57 push edi
- 004E1083 55 push ebp
- 004E1084 83C4E0 add esp, -$20
- 004E1087 8BD8 mov ebx, eax
- 004E1089 8B2DDC495400 mov ebp, [$5449DC]
- 004E108F 8B733C mov esi, [ebx+$3C]
- 004E1092 83EE05 sub esi, +$05
- 004E1095 83EE18 sub esi, +$18
- 004E1098 7C5D jl 004E10F7
- 004E109A 46 inc esi
- 004E109B BF18000000 mov edi, $00000018
- 004E10A0 6A01 push $01
- 004E10A2 8D442404 lea eax, [esp+$04]
- 004E10A6 50 push eax
- 004E10A7 B904000000 mov ecx, $00000004
- 004E10AC BA1A000000 mov edx, $0000001A
- 004E10B1 B801000000 mov eax, $00000001
- 004E10B6 E885F8F2FF call 00410940
- 004E10BB 54 push esp
- 004E10BC 6A01 push $01
- 004E10BE 8D442418 lea eax, [esp+$18]
- 004E10C2 50 push eax
- 004E10C3 B904000000 mov ecx, $00000004
- 004E10C8 8BD7 mov edx, edi
- 004E10CA 33C0 xor eax, eax
- 004E10CC E86FF8F2FF call 00410940
- 004E10D1 8D442414 lea eax, [esp+$14]
- 004E10D5 50 push eax
- 004E10D6 8B4500 mov eax, [ebp+$00]
- 004E10D9 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E10DF E8AC22F4FF call 00423390
- 004E10E4 50 push eax
- 004E10E5 8BC3 mov eax, ebx
- 004E10E7 E814C4F6FF call 0044D500
- 004E10EC 59 pop ecx
- 004E10ED 5A pop edx
- 004E10EE E859CFF3FF call 0041E04C
- 004E10F3 47 inc edi
- 004E10F4 4E dec esi
- 004E10F5 75A9 jnz 004E10A0
- 004E10F7 8B733C mov esi, [ebx+$3C]
- 004E10FA 83EE05 sub esi, +$05
- 004E10FD 83EE18 sub esi, +$18
- 004E1100 7C61 jl 004E1163
- 004E1102 46 inc esi
- 004E1103 BF18000000 mov edi, $00000018
- 004E1108 6A01 push $01
- 004E110A 8D442404 lea eax, [esp+$04]
- 004E110E 50 push eax
- 004E110F B904000000 mov ecx, $00000004
- 004E1114 BA1A000000 mov edx, $0000001A
- 004E1119 B830000000 mov eax, $00000030
- 004E111E E81DF8F2FF call 00410940
- 004E1123 54 push esp
- 004E1124 6A01 push $01
- 004E1126 8D442418 lea eax, [esp+$18]
- 004E112A 50 push eax
- 004E112B 8B4338 mov eax, [ebx+$38]
- 004E112E 83E804 sub eax, +$04
- 004E1131 B904000000 mov ecx, $00000004
- 004E1136 8BD7 mov edx, edi
- 004E1138 E803F8F2FF call 00410940
- 004E113D 8D442414 lea eax, [esp+$14]
- 004E1141 50 push eax
- 004E1142 8B4500 mov eax, [ebp+$00]
- 004E1145 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E114B E84022F4FF call 00423390
- 004E1150 50 push eax
- 004E1151 8BC3 mov eax, ebx
- 004E1153 E8A8C3F6FF call 0044D500
- 004E1158 59 pop ecx
- 004E1159 5A pop edx
- 004E115A E8EDCEF3FF call 0041E04C
- 004E115F 47 inc edi
- 004E1160 4E dec esi
- 004E1161 75A5 jnz 004E1108
- 004E1163 8B7338 mov esi, [ebx+$38]
- 004E1166 83EE18 sub esi, +$18
- 004E1169 83EE18 sub esi, +$18
- 004E116C 7C5D jl 004E11CB
- 004E116E 46 inc esi
- 004E116F BF18000000 mov edi, $00000018
- 004E1174 6A18 push $18
- 004E1176 8D442404 lea eax, [esp+$04]
- 004E117A 50 push eax
- 004E117B B901000000 mov ecx, $00000001
- 004E1180 BA01000000 mov edx, $00000001
- 004E1185 B81A000000 mov eax, $0000001A
- 004E118A E8B1F7F2FF call 00410940
- 004E118F 54 push esp
- 004E1190 6A18 push $18
- 004E1192 8D442418 lea eax, [esp+$18]
- 004E1196 50 push eax
- 004E1197 B901000000 mov ecx, $00000001
- 004E119C 33D2 xor edx, edx
- 004E119E 8BC7 mov eax, edi
- 004E11A0 E89BF7F2FF call 00410940
- 004E11A5 8D442414 lea eax, [esp+$14]
- 004E11A9 50 push eax
- 004E11AA 8B4500 mov eax, [ebp+$00]
- 004E11AD 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E11B3 E8D821F4FF call 00423390
- 004E11B8 50 push eax
- 004E11B9 8BC3 mov eax, ebx
- 004E11BB E840C3F6FF call 0044D500
- 004E11C0 59 pop ecx
- 004E11C1 5A pop edx
- 004E11C2 E885CEF3FF call 0041E04C
- 004E11C7 47 inc edi
- 004E11C8 4E dec esi
- 004E11C9 75A9 jnz 004E1174
- 004E11CB 8B7338 mov esi, [ebx+$38]
- 004E11CE 83EE04 sub esi, +$04
- 004E11D1 83EE04 sub esi, +$04
- 004E11D4 7C61 jl 004E1237
- 004E11D6 46 inc esi
- 004E11D7 BF04000000 mov edi, $00000004
- 004E11DC 6A04 push $04
- 004E11DE 8D442404 lea eax, [esp+$04]
- 004E11E2 50 push eax
- 004E11E3 B901000000 mov ecx, $00000001
- 004E11E8 BA1C000000 mov edx, $0000001C
- 004E11ED B81A000000 mov eax, $0000001A
- 004E11F2 E849F7F2FF call 00410940
- 004E11F7 54 push esp
- 004E11F8 6A04 push $04
- 004E11FA 8D442418 lea eax, [esp+$18]
- 004E11FE 50 push eax
- 004E11FF 8B533C mov edx, [ebx+$3C]
- 004E1202 83EA04 sub edx, +$04
- 004E1205 B901000000 mov ecx, $00000001
- 004E120A 8BC7 mov eax, edi
- 004E120C E82FF7F2FF call 00410940
- 004E1211 8D442414 lea eax, [esp+$14]
- 004E1215 50 push eax
- 004E1216 8B4500 mov eax, [ebp+$00]
- 004E1219 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E121F E86C21F4FF call 00423390
- 004E1224 50 push eax
- 004E1225 8BC3 mov eax, ebx
- 004E1227 E8D4C2F6FF call 0044D500
- 004E122C 59 pop ecx
- 004E122D 5A pop edx
- 004E122E E819CEF3FF call 0041E04C
- 004E1233 47 inc edi
- 004E1234 4E dec esi
- 004E1235 75A5 jnz 004E11DC
- 004E1237 6A18 push $18
- 004E1239 8D442404 lea eax, [esp+$04]
- 004E123D 50 push eax
- 004E123E B918000000 mov ecx, $00000018
- 004E1243 BA01000000 mov edx, $00000001
- 004E1248 B801000000 mov eax, $00000001
- 004E124D E8EEF6F2FF call 00410940
- 004E1252 54 push esp
- 004E1253 6A18 push $18
- 004E1255 8D442418 lea eax, [esp+$18]
- 004E1259 50 push eax
- 004E125A B918000000 mov ecx, $00000018
- 004E125F 33D2 xor edx, edx
- 004E1261 33C0 xor eax, eax
- 004E1263 E8D8F6F2FF call 00410940
- 004E1268 8D442414 lea eax, [esp+$14]
- 004E126C 50 push eax
- 004E126D 8B4500 mov eax, [ebp+$00]
- 004E1270 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E1276 E81521F4FF call 00423390
- 004E127B 50 push eax
- 004E127C 8BC3 mov eax, ebx
- 004E127E E87DC2F6FF call 0044D500
- 004E1283 59 pop ecx
- 004E1284 5A pop edx
- 004E1285 E8C2CDF3FF call 0041E04C
- 004E128A 6A18 push $18
- 004E128C 8D442404 lea eax, [esp+$04]
- 004E1290 50 push eax
- 004E1291 B918000000 mov ecx, $00000018
- 004E1296 BA01000000 mov edx, $00000001
- 004E129B B81C000000 mov eax, $0000001C
- 004E12A0 E89BF6F2FF call 00410940
- 004E12A5 54 push esp
- 004E12A6 6A18 push $18
- 004E12A8 8D442418 lea eax, [esp+$18]
- 004E12AC 50 push eax
- 004E12AD 8B4338 mov eax, [ebx+$38]
- 004E12B0 83E818 sub eax, +$18
- 004E12B3 B918000000 mov ecx, $00000018
- 004E12B8 33D2 xor edx, edx
- 004E12BA E881F6F2FF call 00410940
- 004E12BF 8D442414 lea eax, [esp+$14]
- 004E12C3 50 push eax
- 004E12C4 8B4500 mov eax, [ebp+$00]
- 004E12C7 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E12CD E8BE20F4FF call 00423390
- 004E12D2 50 push eax
- 004E12D3 8BC3 mov eax, ebx
- 004E12D5 E826C2F6FF call 0044D500
- 004E12DA 59 pop ecx
- 004E12DB 5A pop edx
- 004E12DC E86BCDF3FF call 0041E04C
- 004E12E1 6A04 push $04
- 004E12E3 8D442404 lea eax, [esp+$04]
- 004E12E7 50 push eax
- 004E12E8 B904000000 mov ecx, $00000004
- 004E12ED BA1C000000 mov edx, $0000001C
- 004E12F2 B801000000 mov eax, $00000001
- 004E12F7 E844F6F2FF call 00410940
- 004E12FC 54 push esp
- 004E12FD 6A04 push $04
- 004E12FF 8D442418 lea eax, [esp+$18]
- 004E1303 50 push eax
- 004E1304 8B533C mov edx, [ebx+$3C]
- 004E1307 83EA04 sub edx, +$04
- 004E130A B904000000 mov ecx, $00000004
- 004E130F 33C0 xor eax, eax
- 004E1311 E82AF6F2FF call 00410940
- 004E1316 8D442414 lea eax, [esp+$14]
- 004E131A 50 push eax
- 004E131B 8B4500 mov eax, [ebp+$00]
- 004E131E 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E1324 E86720F4FF call 00423390
- 004E1329 50 push eax
- 004E132A 8BC3 mov eax, ebx
- 004E132C E8CFC1F6FF call 0044D500
- 004E1331 59 pop ecx
- 004E1332 5A pop edx
- 004E1333 E814CDF3FF call 0041E04C
- 004E1338 6A04 push $04
- 004E133A 8D442404 lea eax, [esp+$04]
- 004E133E 50 push eax
- 004E133F B904000000 mov ecx, $00000004
- 004E1344 BA1C000000 mov edx, $0000001C
- 004E1349 B830000000 mov eax, $00000030
- 004E134E E8EDF5F2FF call 00410940
- 004E1353 54 push esp
- 004E1354 6A04 push $04
- 004E1356 8D442418 lea eax, [esp+$18]
- 004E135A 50 push eax
- 004E135B 8B533C mov edx, [ebx+$3C]
- 004E135E 83EA04 sub edx, +$04
- 004E1361 8B4338 mov eax, [ebx+$38]
- 004E1364 83E804 sub eax, +$04
- 004E1367 B904000000 mov ecx, $00000004
- 004E136C E8CFF5F2FF call 00410940
- 004E1371 8D442414 lea eax, [esp+$14]
- 004E1375 50 push eax
- 004E1376 8B4500 mov eax, [ebp+$00]
- 004E1379 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E137F E80C20F4FF call 00423390
- 004E1384 50 push eax
- 004E1385 8BC3 mov eax, ebx
- 004E1387 E874C1F6FF call 0044D500
- 004E138C 59 pop ecx
- 004E138D 5A pop edx
- 004E138E E8B9CCF3FF call 0041E04C
- 004E1393 8BC3 mov eax, ebx
- 004E1395 E866C1F6FF call 0044D500
- 004E139A 8B4014 mov eax, [eax+$14]
- 004E139D 8B5500 mov edx, [ebp+$00]
- 004E13A0 8B92180B0000 mov edx, [edx+$0B18]
- 004E13A6 E871C7F3FF call 0041DB1C
- 004E13AB 8B433C mov eax, [ebx+$3C]
- 004E13AE 83E81C sub eax, +$1C
- 004E13B1 50 push eax
- 004E13B2 8D442404 lea eax, [esp+$04]
- 004E13B6 50 push eax
- 004E13B7 8B4B38 mov ecx, [ebx+$38]
- 004E13BA 83E908 sub ecx, +$08
- 004E13BD BA18000000 mov edx, $00000018
- 004E13C2 B804000000 mov eax, $00000004
- 004E13C7 E874F5F2FF call 00410940
- 004E13CC 54 push esp
- 004E13CD 8BC3 mov eax, ebx
- 004E13CF E82CC1F6FF call 0044D500
- 004E13D4 5A pop edx
- 004E13D5 E822CEF3FF call 0041E1FC
- 004E13DA 83C420 add esp, +$20
- 004E13DD 5D pop ebp
- 004E13DE 5F pop edi
- 004E13DF 5E pop esi
- 004E13E0 5B pop ebx
- 004E13E1 C3 ret
- }
- end ;
- procedure TShortcutForm.FormResize(Sender: TObject);
- begin
- {
- 004E13E4 8B10 mov edx, [eax]
- 004E13E6 FF5278 call dword ptr [edx+$78]
- 004E13E9 C3 ret
- }
- end ;
- procedure TShortcutForm.FormShow(Sender: TObject);
- begin
- {
- 004E0A98 55 push ebp
- 004E0A99 8BEC mov ebp, esp
- 004E0A9B 83C4EC add esp, -$14
- 004E0A9E 53 push ebx
- 004E0A9F 56 push esi
- 004E0AA0 57 push edi
- 004E0AA1 33C9 xor ecx, ecx
- 004E0AA3 894DF0 mov [ebp-$10], ecx
- 004E0AA6 894DEC mov [ebp-$14], ecx
- 004E0AA9 8BD8 mov ebx, eax
- 004E0AAB 33C0 xor eax, eax
- 004E0AAD 55 push ebp
- * Possible String Reference to: "镴*
English
