?? onlinemsg.pas
字號:
unit OnlineMsg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmOnlineMsg=class(TForm)
ComboBoxMsg: TComboBox;
MemoMsg: TMemo;
Label1: TLabel;
StringGrid: TStringGrid;
ButtonAdd: TButton;
ButtonDelete: TButton;
ButtonSend: TButton;
procedure ComboBoxMsgKeyPress(Sender : TObject);
procedure ComboBoxMsgChange(Sender : TObject);
procedure StringGridClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure ButtonAddClick(Sender : TObject);
procedure StringGridDblClick(Sender : TObject);
procedure ButtonDeleteClick(Sender : TObject);
procedure MemoMsgChange(Sender : TObject);
procedure ButtonSendClick(Sender : TObject);
procedure _PROC_00553BD0(Sender : TObject);
procedure _PROC_00553BE8(Sender : TObject);
procedure _PROC_00553C18(Sender : TObject);
procedure _PROC_00553C20(Sender : TObject);
procedure _PROC_00553C33(Sender : TObject);
procedure _PROC_00553C43(Sender : TObject);
procedure _PROC_00553D1E(Sender : TObject);
procedure _PROC_0055416B(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmOnlineMsg: TfrmOnlineMsg;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmOnlineMsg.ComboBoxMsgKeyPress(Sender : TObject);
begin
(*
00553468 55 push ebp
00553469 8BEC mov ebp, esp
0055346B 83C4E8 add esp, -$18
0055346E 53 push ebx
0055346F 33DB xor ebx, ebx
00553471 895DE8 mov [ebp-$18], ebx
00553474 895DEC mov [ebp-$14], ebx
00553477 895DF4 mov [ebp-$0C], ebx
0055347A 894DF8 mov [ebp-$08], ecx
0055347D 8955F0 mov [ebp-$10], edx
00553480 8945FC mov [ebp-$04], eax
00553483 33C0 xor eax, eax
00553485 55 push ebp
00553486 68C7355500 push $005535C7
***** TRY
|
0055348B 64FF30 push dword ptr fs:[eax]
0055348E 648920 mov fs:[eax], esp
00553491 33C0 xor eax, eax
00553493 55 push ebp
00553494 689D355500 push $0055359D
***** TRY
|
00553499 64FF30 push dword ptr fs:[eax]
0055349C 648920 mov fs:[eax], esp
0055349F 8B45F8 mov eax, [ebp-$08]
005534A2 8A00 mov al, byte ptr [eax]
005534A4 2C0D sub al, $0D
005534A6 0F85E3000000 jnz 0055358F
005534AC 8D55F4 lea edx, [ebp-$0C]
005534AF 8B45FC mov eax, [ebp-$04]
005534B2 8B80F8020000 mov eax, [eax+$02F8]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
005534B8 E88B5BF1FF call 00469048
005534BD 8D55EC lea edx, [ebp-$14]
005534C0 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
005534C3 E8C07BEBFF call 0040B088
005534C8 837DEC00 cmp dword ptr [ebp-$14], +$00
005534CC 0F848A000000 jz 0055355C
005534D2 8B45FC mov eax, [ebp-$04]
005534D5 8B80F8020000 mov eax, [eax+$02F8]
005534DB 8B803C020000 mov eax, [eax+$023C]
005534E1 8B10 mov edx, [eax]
005534E3 FF5214 call dword ptr [edx+$14]
005534E6 85C0 test eax, eax
005534E8 7517 jnz 00553501
005534EA 8B45FC mov eax, [ebp-$04]
005534ED 8B80F8020000 mov eax, [eax+$02F8]
005534F3 8B803C020000 mov eax, [eax+$023C]
005534F9 8B55F4 mov edx, [ebp-$0C]
005534FC 8B08 mov ecx, [eax]
005534FE FF5138 call dword ptr [ecx+$38]
00553501 8B45FC mov eax, [ebp-$04]
00553504 8B80F8020000 mov eax, [eax+$02F8]
0055350A 8B803C020000 mov eax, [eax+$023C]
00553510 8B4DF4 mov ecx, [ebp-$0C]
00553513 BA01000000 mov edx, $00000001
00553518 8B18 mov ebx, [eax]
0055351A FF5360 call dword ptr [ebx+$60]
0055351D A1ACB46500 mov eax, dword ptr [$0065B4AC]
00553522 8B00 mov eax, [eax]
00553524 B103 mov cl, $03
00553526 8B55F4 mov edx, [ebp-$0C]
|
00553529 E866FE0400 call 005A3394
0055352E 8B15A4B56500 mov edx, [$0065B5A4]
00553534 8B92DF150000 mov edx, [edx+$15DF]
0055353A 8D45E8 lea eax, [ebp-$18]
0055353D 8B4DF4 mov ecx, [ebp-$0C]
* Reference to: System.@LStrCat3;
|
00553540 E8E71DEBFF call 0040532C
00553545 8B55E8 mov edx, [ebp-$18]
00553548 8B45FC mov eax, [ebp-$04]
0055354B 8B80FC020000 mov eax, [eax+$02FC]
00553551 8B8020020000 mov eax, [eax+$0220]
00553557 8B08 mov ecx, [eax]
00553559 FF5138 call dword ptr [ecx+$38]
0055355C 8B45FC mov eax, [ebp-$04]
0055355F 8B80F8020000 mov eax, [eax+$02F8]
00553565 33D2 xor edx, edx
00553567 8B08 mov ecx, [eax]
00553569 FF91D0000000 call dword ptr [ecx+$00D0]
0055356F 8B45FC mov eax, [ebp-$04]
00553572 8B80F8020000 mov eax, [eax+$02F8]
00553578 33D2 xor edx, edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0055357A E8F95AF1FF call 00469078
0055357F 8B45FC mov eax, [ebp-$04]
00553582 8B8008030000 mov eax, [eax+$0308]
00553588 33D2 xor edx, edx
0055358A 8B08 mov ecx, [eax]
0055358C FF5164 call dword ptr [ecx+$64]
0055358F 33C0 xor eax, eax
00553591 5A pop edx
00553592 59 pop ecx
00553593 59 pop ecx
00553594 648910 mov fs:[eax], edx
****** FINALLY
|
00553597 68A4355500 push $005535A4
0055359C C3 ret
* Reference to: System.@HandleFinally;
|
0055359D E9D613EBFF jmp 00404978
005535A2 EBF8 jmp 0055359C
****** END
|
005535A4 33C0 xor eax, eax
005535A6 5A pop edx
005535A7 59 pop ecx
005535A8 59 pop ecx
005535A9 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[嬪]脨U嬱兡?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -