TheMatrixUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：40k
- unit TheMatrixUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
- type
- TTheMatrix=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- Edit1: TEdit;
- FlatCheckBox1: TFlatCheckBox;
- Edit2: TEdit;
- Panel1: TPanel;
- Memo1: TMemo;
- RxSplitter1: TRxSplitter;
- Memo2: 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 Edit1KeyPress(Sender: TObject; var Key: Char);
- 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
- TheMatrix: TTheMatrix;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TTheMatrix.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 00503430 55 push ebp
- 00503431 8BEC mov ebp, esp
- 00503433 53 push ebx
- 00503434 8BD8 mov ebx, eax
- 00503436 8B83C4020000 mov eax, [ebx+$02C4]
- 0050343C 8B4024 mov eax, [eax+$24]
- 0050343F E89890F3FF call 0043C4DC
- 00503444 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 00503445 E82E44F0FF call 00407878
- 0050344A C783F8020000FFFFFFFF mov dword ptr [ebx+$02F8], $FFFFFFFF
- 00503454 8B450C mov eax, [ebp+$0C]
- 00503457 8983F0020000 mov [ebx+$02F0], eax
- 0050345D 8B4508 mov eax, [ebp+$08]
- 00503460 8983F4020000 mov [ebx+$02F4], eax
- 00503466 5B pop ebx
- 00503467 5D pop ebp
- 00503468 C20C ret $0C
- }
- end ;
- procedure TTheMatrix.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 0050346C 55 push ebp
- 0050346D 8BEC mov ebp, esp
- 0050346F 53 push ebx
- 00503470 56 push esi
- 00503471 8BD8 mov ebx, eax
- 00503473 83BBF802000000 cmp dword ptr [ebx+$02F8], +$00
- 0050347A 7433 jz 005034AF
- 0050347C 8B83C4020000 mov eax, [ebx+$02C4]
- 00503482 8B7024 mov esi, [eax+$24]
- 00503485 8B83F0020000 mov eax, [ebx+$02F0]
- 0050348B 2B450C sub eax, dword ptr [ebp+$0C]
- 0050348E 8B5630 mov edx, [esi+$30]
- 00503491 2BD0 sub edx, eax
- 00503493 8BC6 mov eax, esi
- 00503495 E8122AF3FF call 00435EAC
- 0050349A 8B83F4020000 mov eax, [ebx+$02F4]
- 005034A0 2B4508 sub eax, dword ptr [ebp+$08]
- 005034A3 8B5634 mov edx, [esi+$34]
- 005034A6 2BD0 sub edx, eax
- 005034A8 8BC6 mov eax, esi
- 005034AA E8212AF3FF call 00435ED0
- 005034AF 5E pop esi
- 005034B0 5B pop ebx
- 005034B1 5D pop ebp
- 005034B2 C208 ret $08
- }
- end ;
- procedure TTheMatrix.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 005034B8 55 push ebp
- 005034B9 8BEC mov ebp, esp
- 005034BB 53 push ebx
- 005034BC 56 push esi
- 005034BD 8BD8 mov ebx, eax
- 005034BF 83BBF802000000 cmp dword ptr [ebx+$02F8], +$00
- 005034C6 7440 jz 00503508
- 005034C8 8B83C4020000 mov eax, [ebx+$02C4]
- 005034CE 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 005034D1 E85243F0FF call 00407828
- 005034D6 33C0 xor eax, eax
- 005034D8 8983F8020000 mov [ebx+$02F8], eax
- 005034DE 8B83F0020000 mov eax, [ebx+$02F0]
- 005034E4 2B450C sub eax, dword ptr [ebp+$0C]
- 005034E7 8B5630 mov edx, [esi+$30]
- 005034EA 2BD0 sub edx, eax
- 005034EC 8BC6 mov eax, esi
- 005034EE E8B929F3FF call 00435EAC
- 005034F3 8B83F4020000 mov eax, [ebx+$02F4]
- 005034F9 2B4508 sub eax, dword ptr [ebp+$08]
- 005034FC 8B5634 mov edx, [esi+$34]
- 005034FF 2BD0 sub edx, eax
- 00503501 8BC6 mov eax, esi
- 00503503 E8C829F3FF call 00435ED0
- 00503508 5E pop esi
- 00503509 5B pop ebx
- 0050350A 5D pop ebp
- 0050350B C20C ret $0C
- }
- end ;
- procedure TTheMatrix.Edit1KeyPress(Sender: TObject; var Key: Char);
- begin
- {
- 005036CC 53 push ebx
- 005036CD 8A19 mov bl, byte ptr [ecx]
- 005036CF 80FB0D cmp bl, $0D
- 005036D2 7508 jnz 005036DC
- 005036D4 C60103 mov byte ptr [ecx], $03
- * Reference to : TTheMatrix.OutlookBtn1Click
- |
- 005036D7 E834FEFFFF call 00503510
- 005036DC 5B pop ebx
- 005036DD C3 ret
- }
- end ;
- procedure TTheMatrix.FormCreate(Sender: TObject);
- begin
- {
- 005030CC 55 push ebp
- 005030CD 8BEC mov ebp, esp
- 005030CF 6A00 push $00
- 005030D1 6A00 push $00
- 005030D3 6A00 push $00
- 005030D5 53 push ebx
- 005030D6 56 push esi
- 005030D7 57 push edi
- 005030D8 8945FC mov [ebp-$04], eax
- 005030DB 33C0 xor eax, eax
- 005030DD 55 push ebp
- 005030DE 68B0335000 push $005033B0
- ***** TRY
- |
- 005030E3 64FF30 push dword ptr fs:[eax]
- 005030E6 648920 mov fs:[eax], esp
- 005030E9 8B45FC mov eax, [ebp-$04]
- 005030EC E80BFEFFFF call 00502EFC
- 005030F1 33C0 xor eax, eax
- 005030F3 55 push ebp
- 005030F4 6821335000 push $00503321
- ***** TRY
- |
- 005030F9 64FF30 push dword ptr fs:[eax]
- 005030FC 648920 mov fs:[eax], esp
- 005030FF 8B45FC mov eax, [ebp-$04]
- 00503102 C7400C0D000000 mov dword ptr [eax+$0C], $0000000D
- 00503109 A1B44E5400 mov eax, dword ptr [$544EB4]
- 0050310E 8B00 mov eax, [eax]
- 00503110 E8B7D8F4FF call 004509CC
- 00503115 8BD0 mov edx, eax
- 00503117 8B45FC mov eax, [ebp-$04]
- 0050311A 2B5038 sub edx, dword ptr [eax+$38]
- 0050311D D1FA sar edx, 1
- 0050311F 7903 jns 00503124
- 00503121 83D200 adc edx, +$00
- 00503124 8B45FC mov eax, [ebp-$04]
- 00503127 E8802DF3FF call 00435EAC
- 0050312C A1B44E5400 mov eax, dword ptr [$544EB4]
- 00503131 8B00 mov eax, [eax]
- 00503133 E888D8F4FF call 004509C0
- 00503138 8BD0 mov edx, eax
- 0050313A 8B45FC mov eax, [ebp-$04]
- 0050313D 2B503C sub edx, dword ptr [eax+$3C]
- 00503140 D1FA sar edx, 1
- 00503142 7903 jns 00503147
- 00503144 83D200 adc edx, +$00
- 00503147 8B45FC mov eax, [ebp-$04]
- 0050314A E8812DF3FF call 00435ED0
- 0050314F 8D55F4 lea edx, [ebp-$0C]
- 00503152 8B45FC mov eax, [ebp-$04]
- 00503155 8B400C mov eax, [eax+$0C]
- 00503158 E80F5DF0FF call 00408E6C
- 0050315D 8D45F4 lea eax, [ebp-$0C]
- * Possible String Reference to: "_x"
- |
- 00503160 BAC8335000 mov edx, $005033C8
- 00503165 E8760DF0FF call 00403EE0
- 0050316A 8B55F4 mov edx, [ebp-$0C]
- 0050316D 8D4DF8 lea ecx, [ebp-$08]
- 00503170 A1DC495400 mov eax, dword ptr [$5449DC]
- 00503175 8B00 mov eax, [eax]
- 00503177 E8F8FA0000 call 00512C74
- 0050317C 837DF800 cmp dword ptr [ebp-$08], +$00
- 00503180 743F jz 005031C1
- 00503182 8D55F4 lea edx, [ebp-$0C]
- 00503185 8B45FC mov eax, [ebp-$04]
- 00503188 8B400C mov eax, [eax+$0C]
- 0050318B E8DC5CF0FF call 00408E6C
- 00503190 8D45F4 lea eax, [ebp-$0C]
- * Possible String Reference to: "_x"
- |
- 00503193 BAC8335000 mov edx, $005033C8
- 00503198 E8430DF0FF call 00403EE0
- 0050319D 8B55F4 mov edx, [ebp-$0C]
- 005031A0 8D4DF8 lea ecx, [ebp-$08]
- 005031A3 A1DC495400 mov eax, dword ptr [$5449DC]
- 005031A8 8B00 mov eax, [eax]
- 005031AA E8C5FA0000 call 00512C74
- 005031AF 8B45F8 mov eax, [ebp-$08]
- 005031B2 E8195DF0FF call 00408ED0
- 005031B7 8BD0 mov edx, eax
- 005031B9 8B45FC mov eax, [ebp-$04]
- 005031BC E8EB2CF3FF call 00435EAC
- 005031C1 8D55F4 lea edx, [ebp-$0C]
- 005031C4 8B45FC mov eax, [ebp-$04]
- 005031C7 8B400C mov eax, [eax+$0C]
- 005031CA E89D5CF0FF call 00408E6C
- 005031CF 8D45F4 lea eax, [ebp-$0C]
- * Possible String Reference to: "_y"
- |
- 005031D2 BAD4335000 mov edx, $005033D4
- 005031D7 E8040DF0FF call 00403EE0
- 005031DC 8B55F4 mov edx, [ebp-$0C]
- 005031DF 8D4DF8 lea ecx, [ebp-$08]
- 005031E2 A1DC495400 mov eax, dword ptr [$5449DC]
- 005031E7 8B00 mov eax, [eax]
- 005031E9 E886FA0000 call 00512C74
- 005031EE 837DF800 cmp dword ptr [ebp-$08], +$00
- 005031F2 743F jz 00503233
- 005031F4 8D55F4 lea edx, [ebp-$0C]
- 005031F7 8B45FC mov eax, [ebp-$04]
- 005031FA 8B400C mov eax, [eax+$0C]
- 005031FD E86A5CF0FF call 00408E6C
- 00503202 8D45F4 lea eax, [ebp-$0C]
- * Possible String Reference to: "_y"
- |
- 00503205 BAD4335000 mov edx, $005033D4
- 0050320A E8D10CF0FF call 00403EE0
- 0050320F 8B55F4 mov edx, [ebp-$0C]
- 00503212 8D4DF8 lea ecx, [ebp-$08]
- 00503215 A1DC495400 mov eax, dword ptr [$5449DC]
- 0050321A 8B00 mov eax, [eax]
- 0050321C E853FA0000 call 00512C74
- 00503221 8B45F8 mov eax, [ebp-$08]
- 00503224 E8A75CF0FF call 00408ED0
- 00503229 8BD0 mov edx, eax
- 0050322B 8B45FC mov eax, [ebp-$04]
- 0050322E E89D2CF3FF call 00435ED0
- 00503233 8D55F4 lea edx, [ebp-$0C]
- 00503236 8B45FC mov eax, [ebp-$04]
- 00503239 8B400C mov eax, [eax+$0C]
- 0050323C E82B5CF0FF call 00408E6C
- 00503241 8D45F4 lea eax, [ebp-$0C]
- * Possible String Reference to: "_h"
- |
- 00503244 BAE0335000 mov edx, $005033E0
- 00503249 E8920CF0FF call 00403EE0
- 0050324E 8B55F4 mov edx, [ebp-$0C]
- 00503251 8D4DF8 lea ecx, [ebp-$08]
- 00503254 A1DC495400 mov eax, dword ptr [$5449DC]
- 00503259 8B00 mov eax, [eax]
- 0050325B E814FA0000 call 00512C74
- 00503260 837DF800 cmp dword ptr [ebp-$08], +$00
- 00503264 743F jz 005032A5
- 00503266 8D55F4 lea edx, [ebp-$0C]
- 00503269 8B45FC mov eax, [ebp-$04]
- 0050326C 8B400C mov eax, [eax+$0C]
- 0050326F E8F85BF0FF call 00408E6C
- 00503274 8D45F4 lea eax, [ebp-$0C]
- * Possible String Reference to: "_h"
- |
- 00503277 BAE0335000 mov edx, $005033E0
- 0050327C E85F0CF0FF call 00403EE0
- 00503281 8B55F4 mov edx, [ebp-$0C]
- 00503284 8D4DF8 lea ecx, [ebp-$08]
- 00503287 A1DC495400 mov eax, dword ptr [$5449DC]
- 0050328C 8B00 mov eax, [eax]
- 0050328E E8E1F90000 call 00512C74
- 00503293 8B45F8 mov eax, [ebp-$08]
- 00503296 E8355CF0FF call 00408ED0
- 0050329B 8BD0 mov edx, eax
- 0050329D 8B45FC mov eax, [ebp-$04]
- 005032A0 E8772CF3FF call 00435F1C
- 005032A5 8D55F4 lea edx, [ebp-$0C]
- 005032A8 8B45FC mov eax, [ebp-$04]
- 005032AB 8B400C mov eax, [eax+$0C]
- 005032AE E8B95BF0FF call 00408E6C
- 005032B3 8D45F4 lea eax, [ebp-$0C]
- * Possible String Reference to: "_w"
- |
- 005032B6 BAEC335000 mov edx, $005033EC
- 005032BB E8200CF0FF call 00403EE0
- 005032C0 8B55F4 mov edx, [ebp-$0C]
- 005032C3 8D4DF8 lea ecx, [ebp-$08]
- 005032C6 A1DC495400 mov eax, dword ptr [$5449DC]
- 005032CB 8B00 mov eax, [eax]
- 005032CD E8A2F90000 call 00512C74
- 005032D2 837DF800 cmp dword ptr [ebp-$08], +$00
- 005032D6 743F jz 00503317
- 005032D8 8D55F4 lea edx, [ebp-$0C]
- 005032DB 8B45FC mov eax, [ebp-$04]
- 005032DE 8B400C mov eax, [eax+$0C]
- 005032E1 E8865BF0FF call 00408E6C
- 005032E6 8D45F4 lea eax, [ebp-$0C]
- * Possible String Reference to: "_w"
- |
- 005032E9 BAEC335000 mov edx, $005033EC
- 005032EE E8ED0BF0FF call 00403EE0
- 005032F3 8B55F4 mov edx, [ebp-$0C]
- 005032F6 8D4DF8 lea ecx, [ebp-$08]
- 005032F9 A1DC495400 mov eax, dword ptr [$5449DC]
- 005032FE 8B00 mov eax, [eax]
- 00503300 E86FF90000 call 00512C74
- 00503305 8B45F8 mov eax, [ebp-$08]
- 00503308 E8C35BF0FF call 00408ED0
- 0050330D 8BD0 mov edx, eax
- 0050330F 8B45FC mov eax, [ebp-$04]
- 00503312 E8E12BF3FF call 00435EF8
- 00503317 33C0 xor eax, eax
- 00503319 5A pop edx
- 0050331A 59 pop ecx
- 0050331B 59 pop ecx
- 0050331C 648910 mov fs:[eax], edx
- 0050331F EB0A jmp 0050332B
- ****** EXCEPT
- |
- 00503321 E93201F0FF jmp 00403458
- 00503326 E8DD03F0FF call 00403708
- ****** END
- |
- 0050332B 8D4DF8 lea ecx, [ebp-$08]
- 0050332E A1DC495400 mov eax, dword ptr [$5449DC]
- 00503333 8B00 mov eax, [eax]
- * Possible String Reference to: "matrix_prefix"
- |
- 00503335 BAF8335000 mov edx, $005033F8
- 0050333A E835F90000 call 00512C74
- 0050333F 8B45F8 mov eax, [ebp-$08]
- 00503342 BA10345000 mov edx, $00503410
- 00503347 E89C0CF0FF call 00403FE8
- 0050334C 7512 jnz 00503360
- 0050334E 8B45FC mov eax, [ebp-$04]
- 00503351 8B80D8020000 mov eax, [eax+$02D8]
- 00503357 B201 mov dl, $01
- 00503359 E81E3CF7FF call 00476F7C
- 0050335E EB10 jmp 00503370
- 00503360 8B45FC mov eax, [ebp-$04]
- 00503363 8B80D8020000 mov eax, [eax+$02D8]
- 00503369 33D2 xor edx, edx
- 0050336B E80C3CF7FF call 00476F7C
- 00503370 8D4DF8 lea ecx, [ebp-$08]
- 00503373 A1DC495400 mov eax, dword ptr [$5449DC]
- 00503378 8B00 mov eax, [eax]
- * Possible String Reference to: "matrix_nick"
- |
- 0050337A BA1C345000 mov edx, $0050341C
- 0050337F E8F0F80000 call 00512C74
- 00503384 8B55F8 mov edx, [ebp-$08]
- 00503387 8B45FC mov eax, [ebp-$04]
- 0050338A 8B80DC020000 mov eax, [eax+$02DC]
- 00503390 E88B33F3FF call 00436720
- 00503395 33C0 xor eax, eax
- 00503397 5A pop edx
- 00503398 59 pop ecx
- 00503399 59 pop ecx
- 0050339A 648910 mov fs:[eax], edx
- ****** FINALLY
- |
- * Possible String Reference to: "_^[嬪]
English
