VictimChatUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：35k
- unit VictimChatUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls, ComCtrls;
- type
- TVictimChat=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- FlatEdit1: TFlatEdit;
- MyMemo: TRichEdit;
- 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 FlatEdit1KeyPress(Sender: TObject; var Key: Char);
- procedure FormCreate(Sender: TObject);
- procedure FormPaint(Sender: TObject);
- procedure FormResize(Sender: TObject);
- procedure MyMemoChange(Sender: TObject);
- procedure OutlookBtn1Click(Sender: TObject);
- procedure OutlookBtn2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end ;
- var
- VictimChat: TVictimChat;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TVictimChat.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CF5E8 55 push ebp
- 004CF5E9 8BEC mov ebp, esp
- 004CF5EB 53 push ebx
- 004CF5EC 8BD8 mov ebx, eax
- 004CF5EE 8B83C4020000 mov eax, [ebx+$02C4]
- 004CF5F4 8B4024 mov eax, [eax+$24]
- 004CF5F7 E8E0CEF6FF call 0043C4DC
- 004CF5FC 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004CF5FD E87682F3FF call 00407878
- 004CF602 C783E4020000FFFFFFFF mov dword ptr [ebx+$02E4], $FFFFFFFF
- 004CF60C 8B450C mov eax, [ebp+$0C]
- 004CF60F 8983DC020000 mov [ebx+$02DC], eax
- 004CF615 8B4508 mov eax, [ebp+$08]
- 004CF618 8983E0020000 mov [ebx+$02E0], eax
- 004CF61E 5B pop ebx
- 004CF61F 5D pop ebp
- 004CF620 C20C ret $0C
- }
- end ;
- procedure TVictimChat.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CF624 55 push ebp
- 004CF625 8BEC mov ebp, esp
- 004CF627 53 push ebx
- 004CF628 56 push esi
- 004CF629 8BD8 mov ebx, eax
- 004CF62B 83BBE402000000 cmp dword ptr [ebx+$02E4], +$00
- 004CF632 7433 jz 004CF667
- 004CF634 8B83C4020000 mov eax, [ebx+$02C4]
- 004CF63A 8B7024 mov esi, [eax+$24]
- 004CF63D 8B83DC020000 mov eax, [ebx+$02DC]
- 004CF643 2B450C sub eax, dword ptr [ebp+$0C]
- 004CF646 8B5630 mov edx, [esi+$30]
- 004CF649 2BD0 sub edx, eax
- 004CF64B 8BC6 mov eax, esi
- 004CF64D E85A68F6FF call 00435EAC
- 004CF652 8B83E0020000 mov eax, [ebx+$02E0]
- 004CF658 2B4508 sub eax, dword ptr [ebp+$08]
- 004CF65B 8B5634 mov edx, [esi+$34]
- 004CF65E 2BD0 sub edx, eax
- 004CF660 8BC6 mov eax, esi
- 004CF662 E86968F6FF call 00435ED0
- 004CF667 5E pop esi
- 004CF668 5B pop ebx
- 004CF669 5D pop ebp
- 004CF66A C208 ret $08
- }
- end ;
- procedure TVictimChat.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CF670 55 push ebp
- 004CF671 8BEC mov ebp, esp
- 004CF673 53 push ebx
- 004CF674 56 push esi
- 004CF675 8BD8 mov ebx, eax
- 004CF677 83BBE402000000 cmp dword ptr [ebx+$02E4], +$00
- 004CF67E 7440 jz 004CF6C0
- 004CF680 8B83C4020000 mov eax, [ebx+$02C4]
- 004CF686 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004CF689 E89A81F3FF call 00407828
- 004CF68E 33C0 xor eax, eax
- 004CF690 8983E4020000 mov [ebx+$02E4], eax
- 004CF696 8B83DC020000 mov eax, [ebx+$02DC]
- 004CF69C 2B450C sub eax, dword ptr [ebp+$0C]
- 004CF69F 8B5630 mov edx, [esi+$30]
- 004CF6A2 2BD0 sub edx, eax
- 004CF6A4 8BC6 mov eax, esi
- 004CF6A6 E80168F6FF call 00435EAC
- 004CF6AB 8B83E0020000 mov eax, [ebx+$02E0]
- 004CF6B1 2B4508 sub eax, dword ptr [ebp+$08]
- 004CF6B4 8B5634 mov edx, [esi+$34]
- 004CF6B7 2BD0 sub edx, eax
- 004CF6B9 8BC6 mov eax, esi
- 004CF6BB E81068F6FF call 00435ED0
- 004CF6C0 5E pop esi
- 004CF6C1 5B pop ebx
- 004CF6C2 5D pop ebp
- 004CF6C3 C20C ret $0C
- }
- end ;
- procedure TVictimChat.FlatEdit1KeyPress(Sender: TObject; var Key: Char);
- begin
- {
- 004CF74C 53 push ebx
- 004CF74D 8BD9 mov ebx, ecx
- 004CF74F 803B0D cmp byte ptr [ebx], $0D
- 004CF752 7508 jnz 004CF75C
- * Reference to : TVictimChat.OutlookBtn1Click
- |
- 004CF754 E807000000 call 004CF760
- 004CF759 C60300 mov byte ptr [ebx], $00
- 004CF75C 5B pop ebx
- 004CF75D C3 ret
- }
- end ;
- procedure TVictimChat.FormCreate(Sender: TObject);
- begin
- {
- 004CF398 55 push ebp
- 004CF399 8BEC mov ebp, esp
- 004CF39B 6A00 push $00
- 004CF39D 6A00 push $00
- 004CF39F 53 push ebx
- 004CF3A0 56 push esi
- 004CF3A1 8BD8 mov ebx, eax
- 004CF3A3 8B35DC495400 mov esi, [$5449DC]
- 004CF3A9 33C0 xor eax, eax
- 004CF3AB 55 push ebp
- * Possible String Reference to: "楣@
English
