ThreadUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：24k
- unit ThreadUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls;
- type
- TDlg=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- Label1: TLabel;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- cbClass: TFlatComboBox;
- 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);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- Dlg: TDlg;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TDlg.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E2ED4 55 push ebp
- 004E2ED5 8BEC mov ebp, esp
- 004E2ED7 53 push ebx
- 004E2ED8 8BD8 mov ebx, eax
- 004E2EDA 8B83C4020000 mov eax, [ebx+$02C4]
- 004E2EE0 8B4024 mov eax, [eax+$24]
- 004E2EE3 E8F495F5FF call 0043C4DC
- 004E2EE8 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004E2EE9 E88A49F2FF call 00407878
- 004E2EEE C783E4020000FFFFFFFF mov dword ptr [ebx+$02E4], $FFFFFFFF
- 004E2EF8 8B450C mov eax, [ebp+$0C]
- 004E2EFB 8983DC020000 mov [ebx+$02DC], eax
- 004E2F01 8B4508 mov eax, [ebp+$08]
- 004E2F04 8983E0020000 mov [ebx+$02E0], eax
- 004E2F0A 5B pop ebx
- 004E2F0B 5D pop ebp
- 004E2F0C C20C ret $0C
- }
- end ;
- procedure TDlg.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E2F10 55 push ebp
- 004E2F11 8BEC mov ebp, esp
- 004E2F13 53 push ebx
- 004E2F14 56 push esi
- 004E2F15 8BD8 mov ebx, eax
- 004E2F17 83BBE402000000 cmp dword ptr [ebx+$02E4], +$00
- 004E2F1E 7433 jz 004E2F53
- 004E2F20 8B83C4020000 mov eax, [ebx+$02C4]
- 004E2F26 8B7024 mov esi, [eax+$24]
- 004E2F29 8B83DC020000 mov eax, [ebx+$02DC]
- 004E2F2F 2B450C sub eax, dword ptr [ebp+$0C]
- 004E2F32 8B5630 mov edx, [esi+$30]
- 004E2F35 2BD0 sub edx, eax
- 004E2F37 8BC6 mov eax, esi
- 004E2F39 E86E2FF5FF call 00435EAC
- 004E2F3E 8B83E0020000 mov eax, [ebx+$02E0]
- 004E2F44 2B4508 sub eax, dword ptr [ebp+$08]
- 004E2F47 8B5634 mov edx, [esi+$34]
- 004E2F4A 2BD0 sub edx, eax
- 004E2F4C 8BC6 mov eax, esi
- 004E2F4E E87D2FF5FF call 00435ED0
- 004E2F53 5E pop esi
- 004E2F54 5B pop ebx
- 004E2F55 5D pop ebp
- 004E2F56 C208 ret $08
- }
- end ;
- procedure TDlg.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004E2F5C 55 push ebp
- 004E2F5D 8BEC mov ebp, esp
- 004E2F5F 53 push ebx
- 004E2F60 56 push esi
- 004E2F61 8BD8 mov ebx, eax
- 004E2F63 83BBE402000000 cmp dword ptr [ebx+$02E4], +$00
- 004E2F6A 7440 jz 004E2FAC
- 004E2F6C 8B83C4020000 mov eax, [ebx+$02C4]
- 004E2F72 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004E2F75 E8AE48F2FF call 00407828
- 004E2F7A 33C0 xor eax, eax
- 004E2F7C 8983E4020000 mov [ebx+$02E4], eax
- 004E2F82 8B83DC020000 mov eax, [ebx+$02DC]
- 004E2F88 2B450C sub eax, dword ptr [ebp+$0C]
- 004E2F8B 8B5630 mov edx, [esi+$30]
- 004E2F8E 2BD0 sub edx, eax
- 004E2F90 8BC6 mov eax, esi
- 004E2F92 E8152FF5FF call 00435EAC
- 004E2F97 8B83E0020000 mov eax, [ebx+$02E0]
- 004E2F9D 2B4508 sub eax, dword ptr [ebp+$08]
- 004E2FA0 8B5634 mov edx, [esi+$34]
- 004E2FA3 2BD0 sub edx, eax
- 004E2FA5 8BC6 mov eax, esi
- 004E2FA7 E8242FF5FF call 00435ED0
- 004E2FAC 5E pop esi
- 004E2FAD 5B pop ebx
- 004E2FAE 5D pop ebp
- 004E2FAF C20C ret $0C
- }
- end ;
- procedure TDlg.CloseButtonClick(Sender: TObject);
- begin
- {
- 004E2ECC E8FBC9F6FF call 0044F8CC
- 004E2ED1 C3 ret
- }
- end ;
- procedure TDlg.FormCreate(Sender: TObject);
- begin
- {
- 004E2EC4 E87FFEFFFF call 004E2D48
- 004E2EC9 C3 ret
- }
- end ;
- procedure TDlg.FormPaint(Sender: TObject);
- begin
- {
- 004E3098 53 push ebx
- 004E3099 56 push esi
- 004E309A 57 push edi
- 004E309B 55 push ebp
- 004E309C 83C4E0 add esp, -$20
- 004E309F 8BD8 mov ebx, eax
- 004E30A1 8B2DDC495400 mov ebp, [$5449DC]
- 004E30A7 8B733C mov esi, [ebx+$3C]
- 004E30AA 83EE05 sub esi, +$05
- 004E30AD 83EE18 sub esi, +$18
- 004E30B0 7C5D jl 004E310F
- 004E30B2 46 inc esi
- 004E30B3 BF18000000 mov edi, $00000018
- 004E30B8 6A01 push $01
- 004E30BA 8D442404 lea eax, [esp+$04]
- 004E30BE 50 push eax
- 004E30BF B904000000 mov ecx, $00000004
- 004E30C4 BA1A000000 mov edx, $0000001A
- 004E30C9 B801000000 mov eax, $00000001
- 004E30CE E86DD8F2FF call 00410940
- 004E30D3 54 push esp
- 004E30D4 6A01 push $01
- 004E30D6 8D442418 lea eax, [esp+$18]
- 004E30DA 50 push eax
- 004E30DB B904000000 mov ecx, $00000004
- 004E30E0 8BD7 mov edx, edi
- 004E30E2 33C0 xor eax, eax
- 004E30E4 E857D8F2FF call 00410940
- 004E30E9 8D442414 lea eax, [esp+$14]
- 004E30ED 50 push eax
- 004E30EE 8B4500 mov eax, [ebp+$00]
- 004E30F1 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E30F7 E89402F4FF call 00423390
- 004E30FC 50 push eax
- 004E30FD 8BC3 mov eax, ebx
- 004E30FF E8FCA3F6FF call 0044D500
- 004E3104 59 pop ecx
- 004E3105 5A pop edx
- 004E3106 E841AFF3FF call 0041E04C
- 004E310B 47 inc edi
- 004E310C 4E dec esi
- 004E310D 75A9 jnz 004E30B8
- 004E310F 8B733C mov esi, [ebx+$3C]
- 004E3112 83EE05 sub esi, +$05
- 004E3115 83EE18 sub esi, +$18
- 004E3118 7C61 jl 004E317B
- 004E311A 46 inc esi
- 004E311B BF18000000 mov edi, $00000018
- 004E3120 6A01 push $01
- 004E3122 8D442404 lea eax, [esp+$04]
- 004E3126 50 push eax
- 004E3127 B904000000 mov ecx, $00000004
- 004E312C BA1A000000 mov edx, $0000001A
- 004E3131 B830000000 mov eax, $00000030
- 004E3136 E805D8F2FF call 00410940
- 004E313B 54 push esp
- 004E313C 6A01 push $01
- 004E313E 8D442418 lea eax, [esp+$18]
- 004E3142 50 push eax
- 004E3143 8B4338 mov eax, [ebx+$38]
- 004E3146 83E804 sub eax, +$04
- 004E3149 B904000000 mov ecx, $00000004
- 004E314E 8BD7 mov edx, edi
- 004E3150 E8EBD7F2FF call 00410940
- 004E3155 8D442414 lea eax, [esp+$14]
- 004E3159 50 push eax
- 004E315A 8B4500 mov eax, [ebp+$00]
- 004E315D 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E3163 E82802F4FF call 00423390
- 004E3168 50 push eax
- 004E3169 8BC3 mov eax, ebx
- 004E316B E890A3F6FF call 0044D500
- 004E3170 59 pop ecx
- 004E3171 5A pop edx
- 004E3172 E8D5AEF3FF call 0041E04C
- 004E3177 47 inc edi
- 004E3178 4E dec esi
- 004E3179 75A5 jnz 004E3120
- 004E317B 8B7338 mov esi, [ebx+$38]
- 004E317E 83EE18 sub esi, +$18
- 004E3181 83EE18 sub esi, +$18
- 004E3184 7C5D jl 004E31E3
- 004E3186 46 inc esi
- 004E3187 BF18000000 mov edi, $00000018
- 004E318C 6A18 push $18
- 004E318E 8D442404 lea eax, [esp+$04]
- 004E3192 50 push eax
- 004E3193 B901000000 mov ecx, $00000001
- 004E3198 BA01000000 mov edx, $00000001
- 004E319D B81A000000 mov eax, $0000001A
- 004E31A2 E899D7F2FF call 00410940
- 004E31A7 54 push esp
- 004E31A8 6A18 push $18
- 004E31AA 8D442418 lea eax, [esp+$18]
- 004E31AE 50 push eax
- 004E31AF B901000000 mov ecx, $00000001
- 004E31B4 33D2 xor edx, edx
- 004E31B6 8BC7 mov eax, edi
- 004E31B8 E883D7F2FF call 00410940
- 004E31BD 8D442414 lea eax, [esp+$14]
- 004E31C1 50 push eax
- 004E31C2 8B4500 mov eax, [ebp+$00]
- 004E31C5 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E31CB E8C001F4FF call 00423390
- 004E31D0 50 push eax
- 004E31D1 8BC3 mov eax, ebx
- 004E31D3 E828A3F6FF call 0044D500
- 004E31D8 59 pop ecx
- 004E31D9 5A pop edx
- 004E31DA E86DAEF3FF call 0041E04C
- 004E31DF 47 inc edi
- 004E31E0 4E dec esi
- 004E31E1 75A9 jnz 004E318C
- 004E31E3 8B7338 mov esi, [ebx+$38]
- 004E31E6 83EE04 sub esi, +$04
- 004E31E9 83EE04 sub esi, +$04
- 004E31EC 7C61 jl 004E324F
- 004E31EE 46 inc esi
- 004E31EF BF04000000 mov edi, $00000004
- 004E31F4 6A04 push $04
- 004E31F6 8D442404 lea eax, [esp+$04]
- 004E31FA 50 push eax
- 004E31FB B901000000 mov ecx, $00000001
- 004E3200 BA1C000000 mov edx, $0000001C
- 004E3205 B81A000000 mov eax, $0000001A
- 004E320A E831D7F2FF call 00410940
- 004E320F 54 push esp
- 004E3210 6A04 push $04
- 004E3212 8D442418 lea eax, [esp+$18]
- 004E3216 50 push eax
- 004E3217 8B533C mov edx, [ebx+$3C]
- 004E321A 83EA04 sub edx, +$04
- 004E321D B901000000 mov ecx, $00000001
- 004E3222 8BC7 mov eax, edi
- 004E3224 E817D7F2FF call 00410940
- 004E3229 8D442414 lea eax, [esp+$14]
- 004E322D 50 push eax
- 004E322E 8B4500 mov eax, [ebp+$00]
- 004E3231 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E3237 E85401F4FF call 00423390
- 004E323C 50 push eax
- 004E323D 8BC3 mov eax, ebx
- 004E323F E8BCA2F6FF call 0044D500
- 004E3244 59 pop ecx
- 004E3245 5A pop edx
- 004E3246 E801AEF3FF call 0041E04C
- 004E324B 47 inc edi
- 004E324C 4E dec esi
- 004E324D 75A5 jnz 004E31F4
- 004E324F 6A18 push $18
- 004E3251 8D442404 lea eax, [esp+$04]
- 004E3255 50 push eax
- 004E3256 B918000000 mov ecx, $00000018
- 004E325B BA01000000 mov edx, $00000001
- 004E3260 B801000000 mov eax, $00000001
- 004E3265 E8D6D6F2FF call 00410940
- 004E326A 54 push esp
- 004E326B 6A18 push $18
- 004E326D 8D442418 lea eax, [esp+$18]
- 004E3271 50 push eax
- 004E3272 B918000000 mov ecx, $00000018
- 004E3277 33D2 xor edx, edx
- 004E3279 33C0 xor eax, eax
- 004E327B E8C0D6F2FF call 00410940
- 004E3280 8D442414 lea eax, [esp+$14]
- 004E3284 50 push eax
- 004E3285 8B4500 mov eax, [ebp+$00]
- 004E3288 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E328E E8FD00F4FF call 00423390
- 004E3293 50 push eax
- 004E3294 8BC3 mov eax, ebx
- 004E3296 E865A2F6FF call 0044D500
- 004E329B 59 pop ecx
- 004E329C 5A pop edx
- 004E329D E8AAADF3FF call 0041E04C
- 004E32A2 6A18 push $18
- 004E32A4 8D442404 lea eax, [esp+$04]
- 004E32A8 50 push eax
- 004E32A9 B918000000 mov ecx, $00000018
- 004E32AE BA01000000 mov edx, $00000001
- 004E32B3 B81C000000 mov eax, $0000001C
- 004E32B8 E883D6F2FF call 00410940
- 004E32BD 54 push esp
- 004E32BE 6A18 push $18
- 004E32C0 8D442418 lea eax, [esp+$18]
- 004E32C4 50 push eax
- 004E32C5 8B4338 mov eax, [ebx+$38]
- 004E32C8 83E818 sub eax, +$18
- 004E32CB B918000000 mov ecx, $00000018
- 004E32D0 33D2 xor edx, edx
- 004E32D2 E869D6F2FF call 00410940
- 004E32D7 8D442414 lea eax, [esp+$14]
- 004E32DB 50 push eax
- 004E32DC 8B4500 mov eax, [ebp+$00]
- 004E32DF 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E32E5 E8A600F4FF call 00423390
- 004E32EA 50 push eax
- 004E32EB 8BC3 mov eax, ebx
- 004E32ED E80EA2F6FF call 0044D500
- 004E32F2 59 pop ecx
- 004E32F3 5A pop edx
- 004E32F4 E853ADF3FF call 0041E04C
- 004E32F9 6A04 push $04
- 004E32FB 8D442404 lea eax, [esp+$04]
- 004E32FF 50 push eax
- 004E3300 B904000000 mov ecx, $00000004
- 004E3305 BA1C000000 mov edx, $0000001C
- 004E330A B801000000 mov eax, $00000001
- 004E330F E82CD6F2FF call 00410940
- 004E3314 54 push esp
- 004E3315 6A04 push $04
- 004E3317 8D442418 lea eax, [esp+$18]
- 004E331B 50 push eax
- 004E331C 8B533C mov edx, [ebx+$3C]
- 004E331F 83EA04 sub edx, +$04
- 004E3322 B904000000 mov ecx, $00000004
- 004E3327 33C0 xor eax, eax
- 004E3329 E812D6F2FF call 00410940
- 004E332E 8D442414 lea eax, [esp+$14]
- 004E3332 50 push eax
- 004E3333 8B4500 mov eax, [ebp+$00]
- 004E3336 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E333C E84F00F4FF call 00423390
- 004E3341 50 push eax
- 004E3342 8BC3 mov eax, ebx
- 004E3344 E8B7A1F6FF call 0044D500
- 004E3349 59 pop ecx
- 004E334A 5A pop edx
- 004E334B E8FCACF3FF call 0041E04C
- 004E3350 6A04 push $04
- 004E3352 8D442404 lea eax, [esp+$04]
- 004E3356 50 push eax
- 004E3357 B904000000 mov ecx, $00000004
- 004E335C BA1C000000 mov edx, $0000001C
- 004E3361 B830000000 mov eax, $00000030
- 004E3366 E8D5D5F2FF call 00410940
- 004E336B 54 push esp
- 004E336C 6A04 push $04
- 004E336E 8D442418 lea eax, [esp+$18]
- 004E3372 50 push eax
- 004E3373 8B533C mov edx, [ebx+$3C]
- 004E3376 83EA04 sub edx, +$04
- 004E3379 8B4338 mov eax, [ebx+$38]
- 004E337C 83E804 sub eax, +$04
- 004E337F B904000000 mov ecx, $00000004
- 004E3384 E8B7D5F2FF call 00410940
- 004E3389 8D442414 lea eax, [esp+$14]
- 004E338D 50 push eax
- 004E338E 8B4500 mov eax, [ebp+$00]
- 004E3391 8B80E80A0000 mov eax, [eax+$0AE8]
- 004E3397 E8F4FFF3FF call 00423390
- 004E339C 50 push eax
- 004E339D 8BC3 mov eax, ebx
- 004E339F E85CA1F6FF call 0044D500
- 004E33A4 59 pop ecx
- 004E33A5 5A pop edx
- 004E33A6 E8A1ACF3FF call 0041E04C
- 004E33AB 8BC3 mov eax, ebx
- 004E33AD E84EA1F6FF call 0044D500
- 004E33B2 8B4014 mov eax, [eax+$14]
- 004E33B5 8B5500 mov edx, [ebp+$00]
- 004E33B8 8B92180B0000 mov edx, [edx+$0B18]
- 004E33BE E859A7F3FF call 0041DB1C
- 004E33C3 8B433C mov eax, [ebx+$3C]
- 004E33C6 83E81C sub eax, +$1C
- 004E33C9 50 push eax
- 004E33CA 8D442404 lea eax, [esp+$04]
- 004E33CE 50 push eax
- 004E33CF 8B4B38 mov ecx, [ebx+$38]
- 004E33D2 83E908 sub ecx, +$08
- 004E33D5 BA18000000 mov edx, $00000018
- 004E33DA B804000000 mov eax, $00000004
- 004E33DF E85CD5F2FF call 00410940
- 004E33E4 54 push esp
- 004E33E5 8BC3 mov eax, ebx
- 004E33E7 E814A1F6FF call 0044D500
- 004E33EC 5A pop edx
- 004E33ED E80AAEF3FF call 0041E1FC
- 004E33F2 83C420 add esp, +$20
- 004E33F5 5D pop ebp
- 004E33F6 5F pop edi
- 004E33F7 5E pop esi
- 004E33F8 5B pop ebx
- 004E33F9 C3 ret
- }
- end ;
- procedure TDlg.FormResize(Sender: TObject);
- begin
- {
- 004E33FC 8B10 mov edx, [eax]
- 004E33FE FF5278 call dword ptr [edx+$78]
- 004E3401 C3 ret
- }
- end ;
- procedure TDlg.OutlookBtn1Click(Sender: TObject);
- begin
- {
- 004E2FBC 55 push ebp
- 004E2FBD 8BEC mov ebp, esp
- 004E2FBF 6A00 push $00
- 004E2FC1 6A00 push $00
- 004E2FC3 6A00 push $00
- 004E2FC5 53 push ebx
- 004E2FC6 8BD8 mov ebx, eax
- 004E2FC8 33C0 xor eax, eax
- 004E2FCA 55 push ebp
- 004E2FCB 6850304E00 push $004E3050
- ***** TRY
- |
- 004E2FD0 64FF30 push dword ptr fs:[eax]
- 004E2FD3 648920 mov fs:[eax], esp
- * Possible String Reference to: "2.1"
- |
- 004E2FD6 6864304E00 push $004E3064
- * Possible String Reference to: "CTP"
- |
- 004E2FDB 6870304E00 push $004E3070
- 004E2FE0 8B83CC020000 mov eax, [ebx+$02CC]
- 004E2FE6 E879B1F4FF call 0042E164
- 004E2FEB 8D55F8 lea edx, [ebp-$08]
- 004E2FEE E8795EF2FF call 00408E6C
- 004E2FF3 FF75F8 push dword ptr [ebp-$08]
- 004E2FF6 A1A84C5400 mov eax, dword ptr [$544CA8]
- 004E2FFB 8B00 mov eax, [eax]
- 004E2FFD E8F60E0000 call 004E3EF8
- 004E3002 8D55F4 lea edx, [ebp-$0C]
- 004E3005 E8625EF2FF call 00408E6C
- 004E300A FF75F4 push dword ptr [ebp-$0C]
- 004E300D 8D45FC lea eax, [ebp-$04]
- 004E3010 BA03000000 mov edx, $00000003
- 004E3015 E87E0FF2FF call 00403F98
- 004E301A 8B55FC mov edx, [ebp-$04]
- 004E301D A1DC495400 mov eax, dword ptr [$5449DC]
- 004E3022 8B00 mov eax, [eax]
- * Possible String Reference to: "changing thread priority..."
- |
- 004E3024 B97C304E00 mov ecx, $004E307C
- 004E3029 E8D64D0400 call 00527E04
- 004E302E 8BC3 mov eax, ebx
- 004E3030 E897C8F6FF call 0044F8CC
- 004E3035 33C0 xor eax, eax
- 004E3037 5A pop edx
- 004E3038 59 pop ecx
- 004E3039 59 pop ecx
- 004E303A 648910 mov fs:[eax], edx
- ****** FINALLY
- |
- 004E303D 6857304E00 push $004E3057
- 004E3042 8D45F4 lea eax, [ebp-$0C]
- 004E3045 BA03000000 mov edx, $00000003
- 004E304A E8310CF2FF call 00403C80
- 004E304F C3 ret
- 004E3050 E90B06F2FF jmp 00403660
- 004E3055 EBEB jmp 004E3042
- ****** END
- |
- 004E3057 5B pop ebx
- 004E3058 8BE5 mov esp, ebp
- 004E305A 5D pop ebp
- 004E305B C3 ret
- }
- end ;
- procedure TDlg.OutlookBtn2Click(Sender: TObject);
- begin
- {
- 004E2FB4 E813C9F6FF call 0044F8CC
- 004E2FB9 C3 ret
- }
- end ;
- end.
English
