messagefilterconfig.pas

BLUE源码 BLUE源码 BLUE源码

unit MessageFilterConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmMessageFilterConfig=class(TForm)
    GroupBox1: TGroupBox;
    ListBoxFilterText: TListBox;
    ButtonAdd: TButton;
    ButtonDel: TButton;
    ButtonOK: TButton;
    ButtonMod: TButton;
    EditReplaceWord: TEdit;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    CheckBoxFilter: TCheckBox;
    RadioButtonFiltset1: TRadioButton;
    RadioButtonFiltset2: TRadioButton;
    RadioButtonFiltset3: TRadioButton;
    procedure ListBoxFilterTextClick(Sender : TObject);
    procedure ButtonOKClick(Sender : TObject);
    procedure ButtonModClick(Sender : TObject);
    procedure ListBoxFilterTextDblClick(Sender : TObject);
    procedure ButtonAddClick(Sender : TObject);
    procedure ButtonDelClick(Sender : TObject);
    procedure CheckBoxFilterClick(Sender : TObject);
    procedure RadioButtonFiltset1Click(Sender : TObject);
    procedure RadioButtonFiltset2Click(Sender : TObject);
    procedure RadioButtonFiltset3Click(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmMessageFilterConfig: TfrmMessageFilterConfig;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmMessageFilterConfig.ListBoxFilterTextClick(Sender : TObject);
begin
(*
004836BC   53                     push    ebx
004836BD   56                     push    esi
004836BE   8BD8                   mov     ebx, eax
004836C0   8B83FC020000           mov     eax, [ebx+$02FC]
004836C6   8B10                   mov     edx, [eax]
004836C8   FF92CC000000           call    dword ptr [edx+$00CC]
004836CE   85C0                   test    eax, eax
004836D0   7C3F                   jl      00483711
004836D2   8B83FC020000           mov     eax, [ebx+$02FC]
004836D8   8B10                   mov     edx, [eax]
004836DA   FF92CC000000           call    dword ptr [edx+$00CC]
004836E0   8BF0                   mov     esi, eax
004836E2   8B83FC020000           mov     eax, [ebx+$02FC]
004836E8   8B8018020000           mov     eax, [eax+$0218]
004836EE   8B10                   mov     edx, [eax]
004836F0   FF5214                 call    dword ptr [edx+$14]
004836F3   3BF0                   cmp     esi, eax
004836F5   7D1A                   jnl     00483711
004836F7   B201                   mov     dl, $01
004836F9   8B8304030000           mov     eax, [ebx+$0304]
004836FF   8B08                   mov     ecx, [eax]
00483701   FF5164                 call    dword ptr [ecx+$64]
00483704   B201                   mov     dl, $01
00483706   8B830C030000           mov     eax, [ebx+$030C]
0048370C   8B08                   mov     ecx, [eax]
0048370E   FF5164                 call    dword ptr [ecx+$64]
00483711   5E                     pop     esi
00483712   5B                     pop     ebx
00483713   C3                     ret

*)
end;

procedure TfrmMessageFilterConfig.ButtonOKClick(Sender : TObject);
begin
(*
00483714   55                     push    ebp
00483715   8BEC                   mov     ebp, esp
00483717   6A00                   push    $00
00483719   6A00                   push    $00
0048371B   6A00                   push    $00
0048371D   53                     push    ebx
0048371E   56                     push    esi
0048371F   57                     push    edi
00483720   8945FC                 mov     [ebp-$04], eax
00483723   33C0                   xor     eax, eax
00483725   55                     push    ebp
00483726   684C384800             push    $0048384C

***** TRY
|
0048372B   64FF30                 push    dword ptr fs:[eax]
0048372E   648920                 mov     fs:[eax], esp
00483731   33C0                   xor     eax, eax
00483733   55                     push    ebp
00483734   68BF374800             push    $004837BF

***** TRY
|
00483739   64FF30                 push    dword ptr fs:[eax]
0048373C   648920                 mov     fs:[eax], esp
0048373F   A154314C00             mov     eax, dword ptr [$004C3154]
00483744   8B4004                 mov     eax, [eax+$04]

|
00483747   E83461FAFF             call    00429880
0048374C   A154314C00             mov     eax, dword ptr [$004C3154]
00483751   8B4042                 mov     eax, [eax+$42]
00483754   8B10                   mov     edx, [eax]
00483756   FF5244                 call    dword ptr [edx+$44]
00483759   8B45FC                 mov     eax, [ebp-$04]
0048375C   8B80FC020000           mov     eax, [eax+$02FC]
00483762   8B8018020000           mov     eax, [eax+$0218]
00483768   8B10                   mov     edx, [eax]
0048376A   FF5214                 call    dword ptr [edx+$14]
0048376D   8BD8                   mov     ebx, eax
0048376F   4B                     dec     ebx
00483770   85DB                   test    ebx, ebx
00483772   7C30                   jl      004837A4
00483774   43                     inc     ebx
00483775   33F6                   xor     esi, esi
00483777   8D4DF8                 lea     ecx, [ebp-$08]
0048377A   8B45FC                 mov     eax, [ebp-$04]
0048377D   8B80FC020000           mov     eax, [eax+$02FC]
00483783   8B8018020000           mov     eax, [eax+$0218]
00483789   8BD6                   mov     edx, esi
0048378B   8B38                   mov     edi, [eax]
0048378D   FF570C                 call    dword ptr [edi+$0C]
00483790   8B55F8                 mov     edx, [ebp-$08]
00483793   A154314C00             mov     eax, dword ptr [$004C3154]
00483798   8B4042                 mov     eax, [eax+$42]
0048379B   8B08                   mov     ecx, [eax]
0048379D   FF5138                 call    dword ptr [ecx+$38]
004837A0   46                     inc     esi
004837A1   4B                     dec     ebx
004837A2   75D3                   jnz     00483777
004837A4   33C0                   xor     eax, eax
004837A6   5A                     pop     edx
004837A7   59                     pop     ecx
004837A8   59                     pop     ecx
004837A9   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '