ClientChatUnit.pas
上传用户：gdszzsp
上传日期：2007-01-08
资源大小：621k
文件大小：37k
- unit ClientChatUnit;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics,
- Controls, Forms, Dialogs, StdCtrls;
- type
- TClientChat=class(TForm)
- CaptionLabel: TLabel;
- CloseButton: TFlatSpeedButton;
- OutlookBtn1: TOutlookBtn;
- OutlookBtn2: TOutlookBtn;
- FlatEdit1: TFlatEdit;
- Memo1: 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 FlatEdit1KeyPress(Sender: TObject; var Key: Char);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- 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
- ClientChat: TClientChat;
- {This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
- implementation
- {$R *.DFM}
- procedure TClientChat.CaptionLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CE500 55 push ebp
- 004CE501 8BEC mov ebp, esp
- 004CE503 53 push ebx
- 004CE504 8BD8 mov ebx, eax
- 004CE506 8B83C4020000 mov eax, [ebx+$02C4]
- 004CE50C 8B4024 mov eax, [eax+$24]
- 004CE50F E8C8DFF6FF call 0043C4DC
- 004CE514 50 push eax
- * Reference to: SHBrowseForFolderA.SetCapture
- |
- 004CE515 E85E93F3FF call 00407878
- 004CE51A C783E4020000FFFFFFFF mov dword ptr [ebx+$02E4], $FFFFFFFF
- 004CE524 8B450C mov eax, [ebp+$0C]
- 004CE527 8983DC020000 mov [ebx+$02DC], eax
- 004CE52D 8B4508 mov eax, [ebp+$08]
- 004CE530 8983E0020000 mov [ebx+$02E0], eax
- 004CE536 5B pop ebx
- 004CE537 5D pop ebp
- 004CE538 C20C ret $0C
- }
- end ;
- procedure TClientChat.CaptionLabelMouseMove(Sender: TObject; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CE53C 55 push ebp
- 004CE53D 8BEC mov ebp, esp
- 004CE53F 53 push ebx
- 004CE540 56 push esi
- 004CE541 8BD8 mov ebx, eax
- 004CE543 83BBE402000000 cmp dword ptr [ebx+$02E4], +$00
- 004CE54A 7433 jz 004CE57F
- 004CE54C 8B83C4020000 mov eax, [ebx+$02C4]
- 004CE552 8B7024 mov esi, [eax+$24]
- 004CE555 8B83DC020000 mov eax, [ebx+$02DC]
- 004CE55B 2B450C sub eax, dword ptr [ebp+$0C]
- 004CE55E 8B5630 mov edx, [esi+$30]
- 004CE561 2BD0 sub edx, eax
- 004CE563 8BC6 mov eax, esi
- 004CE565 E84279F6FF call 00435EAC
- 004CE56A 8B83E0020000 mov eax, [ebx+$02E0]
- 004CE570 2B4508 sub eax, dword ptr [ebp+$08]
- 004CE573 8B5634 mov edx, [esi+$34]
- 004CE576 2BD0 sub edx, eax
- 004CE578 8BC6 mov eax, esi
- 004CE57A E85179F6FF call 00435ED0
- 004CE57F 5E pop esi
- 004CE580 5B pop ebx
- 004CE581 5D pop ebp
- 004CE582 C208 ret $08
- }
- end ;
- procedure TClientChat.CaptionLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
- begin
- {
- 004CE588 55 push ebp
- 004CE589 8BEC mov ebp, esp
- 004CE58B 53 push ebx
- 004CE58C 56 push esi
- 004CE58D 8BD8 mov ebx, eax
- 004CE58F 83BBE402000000 cmp dword ptr [ebx+$02E4], +$00
- 004CE596 7440 jz 004CE5D8
- 004CE598 8B83C4020000 mov eax, [ebx+$02C4]
- 004CE59E 8B7024 mov esi, [eax+$24]
- * Reference to: SHBrowseForFolderA.ReleaseCapture
- |
- 004CE5A1 E88292F3FF call 00407828
- 004CE5A6 33C0 xor eax, eax
- 004CE5A8 8983E4020000 mov [ebx+$02E4], eax
- 004CE5AE 8B83DC020000 mov eax, [ebx+$02DC]
- 004CE5B4 2B450C sub eax, dword ptr [ebp+$0C]
- 004CE5B7 8B5630 mov edx, [esi+$30]
- 004CE5BA 2BD0 sub edx, eax
- 004CE5BC 8BC6 mov eax, esi
- 004CE5BE E8E978F6FF call 00435EAC
- 004CE5C3 8B83E0020000 mov eax, [ebx+$02E0]
- 004CE5C9 2B4508 sub eax, dword ptr [ebp+$08]
- 004CE5CC 8B5634 mov edx, [esi+$34]
- 004CE5CF 2BD0 sub edx, eax
- 004CE5D1 8BC6 mov eax, esi
- 004CE5D3 E8F878F6FF call 00435ED0
- 004CE5D8 5E pop esi
- 004CE5D9 5B pop ebx
- 004CE5DA 5D pop ebp
- 004CE5DB C20C ret $0C
- }
- end ;
- procedure TClientChat.FlatEdit1KeyPress(Sender: TObject; var Key: Char);
- begin
- {
- 004CE788 53 push ebx
- 004CE789 8BD9 mov ebx, ecx
- 004CE78B 803B0D cmp byte ptr [ebx], $0D
- 004CE78E 7508 jnz 004CE798
- * Reference to : TClientChat.OutlookBtn1Click
- |
- 004CE790 E823FFFFFF call 004CE6B8
- 004CE795 C60300 mov byte ptr [ebx], $00
- 004CE798 5B pop ebx
- 004CE799 C3 ret
- }
- end ;
- procedure TClientChat.FormClose(Sender: TObject; var Action: TCloseAction);
- begin
- {
- 004CE79C A1DC495400 mov eax, dword ptr [$5449DC]
- 004CE7A1 8B00 mov eax, [eax]
- 004CE7A3 8B8014050000 mov eax, [eax+$0514]
- 004CE7A9 8B8080000000 mov eax, [eax+$0080]
- * Possible String Reference to: "CCC"
- |
- 004CE7AF BAC4E74C00 mov edx, $004CE7C4
- 004CE7B4 E86BEEFAFF call 0047D624
- 004CE7B9 C3 ret
- }
- end ;
- procedure TClientChat.FormCreate(Sender: TObject);
- begin
- {
- 004CE2B0 55 push ebp
- 004CE2B1 8BEC mov ebp, esp
- 004CE2B3 6A00 push $00
- 004CE2B5 6A00 push $00
- 004CE2B7 53 push ebx
- 004CE2B8 56 push esi
- 004CE2B9 8BD8 mov ebx, eax
- 004CE2BB 8B35DC495400 mov esi, [$5449DC]
- 004CE2C1 33C0 xor eax, eax
- 004CE2C3 55 push ebp
- * Possible String Reference to: "椤Q
English
