unit WinMgr;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls,
  Buttons;

type
  TWinMgrForm=class(TForm)
    WindowView: TTreeView;
    WindowGroup: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Image1: TImage;
    ClassEdit: TEdit;
    CaptionEdit: TEdit;
    LeftEdit: TEdit;
    TopEdit: TEdit;
    WidthEdit: TEdit;
    HeightEdit: TEdit;
    PwdCharEdit: TEdit;
    OnlyVisibleBox: TCheckBox;
    OnlyNamedBox: TCheckBox;
    OnTopBox: TCheckBox;
    VisibleBox: TCheckBox;
    CheckedBox: TCheckBox;
    EnabledBox: TCheckBox;
    CloseWndBtn: TBitBtn;
    FocusBtn: TButton;
    CloseBtn: TBitBtn;
    procedure CaptionEditChange(Sender: TObject);
    procedure CloseBtnClick(Sender: TObject);
    procedure CloseWndBtnClick(Sender: TObject);
    procedure FocusBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure LeftEditExit(Sender: TObject);
    procedure OnlyVisibleBoxClick(Sender: TObject);
    procedure VisibleBoxClick(Sender: TObject);
    procedure WindowViewClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  WinMgrForm: TWinMgrForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TWinMgrForm.CaptionEditChange(Sender: TObject);
begin
{
004A8E08   55                     push    ebp
004A8E09   8BEC                   mov     ebp, esp
004A8E0B   83C4F0                 add     esp, -$10
004A8E0E   8955F0                 mov     [ebp-$10], edx
004A8E11   8945FC                 mov     [ebp-$04], eax
004A8E14   8B45FC                 mov     eax, [ebp-$04]
004A8E17   80B82403000000         cmp     byte ptr [eax+$0324], $00
004A8E1E   752B                   jnz     004A8E4B
004A8E20   8B45FC                 mov     eax, [ebp-$04]
004A8E23   E8FCFCFFFF             call    004A8B24
004A8E28   8945F8                 mov     [ebp-$08], eax
004A8E2B   8B55F8                 mov     edx, [ebp-$08]
004A8E2E   8B45FC                 mov     eax, [ebp-$04]
004A8E31   E84EFEFFFF             call    004A8C84
004A8E36   8B45F8                 mov     eax, [ebp-$08]
004A8E39   8945F4                 mov     [ebp-$0C], eax
004A8E3C   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A8E41   8B00                   mov     eax, [eax]
004A8E43   8B55F8                 mov     edx, [ebp-$08]
004A8E46   E82D8EFEFF             call    00491C78
004A8E4B   8BE5                   mov     esp, ebp
004A8E4D   5D                     pop     ebp
004A8E4E   C3                     ret


}
 end ; 

procedure TWinMgrForm.CloseBtnClick(Sender: TObject);
begin
{
004A8B0C   55                     push    ebp
004A8B0D   8BEC                   mov     ebp, esp
004A8B0F   83C4F8                 add     esp, -$08
004A8B12   8955F8                 mov     [ebp-$08], edx
004A8B15   8945FC                 mov     [ebp-$04], eax
004A8B18   8B45FC                 mov     eax, [ebp-$04]
004A8B1B   E87826FAFF             call    0044B198
004A8B20   59                     pop     ecx
004A8B21   59                     pop     ecx
004A8B22   5D                     pop     ebp
004A8B23   C3                     ret


}
 end ; 

procedure TWinMgrForm.CloseWndBtnClick(Sender: TObject);
begin
{
004A9060   55                     push    ebp
004A9061   8BEC                   mov     ebp, esp
004A9063   83C4F4                 add     esp, -$0C
004A9066   8955F4                 mov     [ebp-$0C], edx
004A9069   8945FC                 mov     [ebp-$04], eax
004A906C   8B45FC                 mov     eax, [ebp-$04]
004A906F   E8B0FAFFFF             call    004A8B24
004A9074   8945F8                 mov     [ebp-$08], eax
004A9077   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A907C   8B00                   mov     eax, [eax]
004A907E   8B55F8                 mov     edx, [ebp-$08]
004A9081   8B4A04                 mov     ecx, [edx+$04]
004A9084   33D2                   xor     edx, edx
004A9086   E8258DFEFF             call    00491DB0
004A908B   8BE5                   mov     esp, ebp
004A908D   5D                     pop     ebp
004A908E   C3                     ret


}
 end ; 

procedure TWinMgrForm.FocusBtnClick(Sender: TObject);
begin
{
004A9090   55                     push    ebp
004A9091   8BEC                   mov     ebp, esp
004A9093   83C4F4                 add     esp, -$0C
004A9096   8955F4                 mov     [ebp-$0C], edx
004A9099   8945FC                 mov     [ebp-$04], eax
004A909C   8B45FC                 mov     eax, [ebp-$04]
004A909F   E880FAFFFF             call    004A8B24
004A90A4   8945F8                 mov     [ebp-$08], eax
004A90A7   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A90AC   8B00                   mov     eax, [eax]
004A90AE   8B55F8                 mov     edx, [ebp-$08]
004A90B1   8B4A04                 mov     ecx, [edx+$04]
004A90B4   B201                   mov     dl, $01
004A90B6   E8F58CFEFF             call    00491DB0
004A90BB   8BE5                   mov     esp, ebp
004A90BD   5D                     pop     ebp
004A90BE   C3                     ret


}
 end ; 

procedure TWinMgrForm.FormCreate(Sender: TObject);
begin
{
004A8BA4   55                     push    ebp
004A8BA5   8BEC                   mov     ebp, esp
004A8BA7   83C4F8                 add     esp, -$08
004A8BAA   8955F8                 mov     [ebp-$08], edx
004A8BAD   8945FC                 mov     [ebp-$04], eax
004A8BB0   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A8BB5   8B00                   mov     eax, [eax]
004A8BB7   8B55FC                 mov     edx, [ebp-$04]
004A8BBA   8990F8000000           mov     [eax+$00F8], edx
004A8BC0   C780F4000000688C4A00   mov     dword ptr [eax+$00F4], $004A8C68
004A8BCA   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A8BCF   8B00                   mov     eax, [eax]
004A8BD1   8B55FC                 mov     edx, [ebp-$04]
004A8BD4   899030010000           mov     [eax+$0130], edx
004A8BDA   C7802C010000108C4A00   mov     dword ptr [eax+$012C], $004A8C10
004A8BE4   8B45FC                 mov     eax, [ebp-$04]
004A8BE7   8B8004030000           mov     eax, [eax+$0304]
004A8BED   E88E8CFCFF             call    00471880
004A8BF2   8BC8                   mov     ecx, eax
004A8BF4   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004A8BF9   8B00                   mov     eax, [eax]
004A8BFB   8B80B4030000           mov     eax, [eax+$03B4]
004A8C01   BA40000000             mov     edx, $00000040
004A8C06   E8754DF9FF             call    0043D980
004A8C0B   59                     pop     ecx
004A8C0C   59                     pop     ecx
004A8C0D   5D                     pop     ebp
004A8C0E   C3                     ret


}
 end ; 

procedure TWinMgrForm.FormShow(Sender: TObject);
begin
{
004A8B6C   55                     push    ebp
004A8B6D   8BEC                   mov     ebp, esp
004A8B6F   83C4F8                 add     esp, -$08
004A8B72   8955F8                 mov     [ebp-$08], edx
004A8B75   8945FC                 mov     [ebp-$04], eax
004A8B78   8B55F8                 mov     edx, [ebp-$08]
004A8B7B   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TWinMgrForm.OnlyVisibleBoxClick
|
004A8B7E   E805000000             call    004A8B88
004A8B83   59                     pop     ecx
004A8B84   59                     pop     ecx
004A8B85   5D                     pop     ebp
004A8B86   C3                     ret


}
 end ; 

procedure TWinMgrForm.LeftEditExit(Sender: TObject);
begin
{
004A9044   55                     push    ebp
004A9045   8BEC                   mov     ebp, esp
004A9047   83C4F8                 add     esp, -$08
004A904A   8955F8                 mov     [ebp-$08], edx
004A904D   8945FC                 mov     [ebp-$04], eax
004A9050   8B55F8                 mov     edx, [ebp-$08]
004A9053   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TWinMgrForm.CaptionEditChange
|
004A9056   E8ADFDFFFF             call    004A8E08
004A905B   59                     pop     ecx
004A905C   59                     pop     ecx
004A905D   5D                     pop     ebp
004A905E   C3                     ret


}
 end ; 

procedure TWinMgrForm.OnlyVisibleBoxClick(Sender: TObject);
begin
{
004A8B88   55                     push    ebp
004A8B89   8BEC                   mov     ebp, esp
004A8B8B   83C4F8                 add     esp, -$08
004A8B8E   8955F8                 mov     [ebp-$08], edx
004A8B91   8945FC                 mov     [ebp-$04], eax
004A8B94   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A8B99   8B00                   mov     eax, [eax]
004A8B9B   E88490FEFF             call    00491C24
004A8BA0   59                     pop     ecx
004A8BA1   59                     pop     ecx
004A8BA2   5D                     pop     ebp
004A8BA3   C3                     ret


}
 end ; 

procedure TWinMgrForm.VisibleBoxClick(Sender: TObject);
begin
{
004A8E50   55                     push    ebp
004A8E51   8BEC                   mov     ebp, esp
004A8E53   83C4F0                 add     esp, -$10
004A8E56   8955F0                 mov     [ebp-$10], edx
004A8E59   8945FC                 mov     [ebp-$04], eax
004A8E5C   8B45FC                 mov     eax, [ebp-$04]
004A8E5F   80B82403000000         cmp     byte ptr [eax+$0324], $00
004A8E66   752B                   jnz     004A8E93
004A8E68   8B45FC                 mov     eax, [ebp-$04]
004A8E6B   E8B4FCFFFF             call    004A8B24
004A8E70   8945F8                 mov     [ebp-$08], eax
004A8E73   8B55F8                 mov     edx, [ebp-$08]
004A8E76   8B45FC                 mov     eax, [ebp-$04]
004A8E79   E806FEFFFF             call    004A8C84
004A8E7E   8B45F8                 mov     eax, [ebp-$08]
004A8E81   8945F4                 mov     [ebp-$0C], eax
004A8E84   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A8E89   8B00                   mov     eax, [eax]
004A8E8B   8B55F8                 mov     edx, [ebp-$08]
004A8E8E   E8E58DFEFF             call    00491C78
004A8E93   8BE5                   mov     esp, ebp
004A8E95   5D                     pop     ebp
004A8E96   C3                     ret


}
 end ; 

procedure TWinMgrForm.WindowViewClick(Sender: TObject);
begin
{
004A8E98   55                     push    ebp
004A8E99   8BEC                   mov     ebp, esp
004A8E9B   83C4EC                 add     esp, -$14
004A8E9E   33C9                   xor     ecx, ecx
004A8EA0   894DEC                 mov     [ebp-$14], ecx
004A8EA3   8955F0                 mov     [ebp-$10], edx
004A8EA6   8945FC                 mov     [ebp-$04], eax
004A8EA9   33C0                   xor     eax, eax
004A8EAB   55                     push    ebp
004A8EAC   6838904A00             push    $004A9038

***** TRY
|
004A8EB1   64FF30                 push    dword ptr fs:[eax]
004A8EB4   648920                 mov     fs:[eax], esp
004A8EB7   8B45FC                 mov     eax, [ebp-$04]
004A8EBA   E865FCFFFF             call    004A8B24
004A8EBF   8945F8                 mov     [ebp-$08], eax
004A8EC2   8B45FC                 mov     eax, [ebp-$04]
004A8EC5   C6802403000001         mov     byte ptr [eax+$0324], $01
004A8ECC   8B45F8                 mov     eax, [ebp-$08]
004A8ECF   8945F4                 mov     [ebp-$0C], eax
004A8ED2   33C0                   xor     eax, eax
004A8ED4   55                     push    ebp
004A8ED5   681B904A00             push    $004A901B

***** TRY
|
004A8EDA   64FF30                 push    dword ptr fs:[eax]
004A8EDD   648920                 mov     fs:[eax], esp
004A8EE0   8B45F4                 mov     eax, [ebp-$0C]
004A8EE3   8B5010                 mov     edx, [eax+$10]
004A8EE6   8B45FC                 mov     eax, [ebp-$04]
004A8EE9   8B80D0020000           mov     eax, [eax+$02D0]
004A8EEF   E8C48AF8FF             call    004319B8
004A8EF4   8B45F4                 mov     eax, [ebp-$0C]
004A8EF7   8B500C                 mov     edx, [eax+$0C]
004A8EFA   8B45FC                 mov     eax, [ebp-$04]
004A8EFD   8B80DC020000           mov     eax, [eax+$02DC]
004A8F03   E8B08AF8FF             call    004319B8
004A8F08   8D55EC                 lea     edx, [ebp-$14]
004A8F0B   8B45F4                 mov     eax, [ebp-$0C]
004A8F0E   0FB74014               movzx   eax, word ptr [eax+$14]
004A8F12   E895FDF5FF             call    00408CAC
004A8F17   8B55EC                 mov     edx, [ebp-$14]
004A8F1A   8B45FC                 mov     eax, [ebp-$04]
004A8F1D   8B80E0020000           mov     eax, [eax+$02E0]
004A8F23   E8908AF8FF             call    004319B8
004A8F28   8D55EC                 lea     edx, [ebp-$14]
004A8F2B   8B45F4                 mov     eax, [ebp-$0C]
004A8F2E   0FB74016               movzx   eax, word ptr [eax+$16]
004A8F32   E875FDF5FF             call    00408CAC
004A8F37   8B55EC                 mov     edx, [ebp-$14]
004A8F3A   8B45FC                 mov     eax, [ebp-$04]
004A8F3D   8B80E4020000           mov     eax, [eax+$02E4]
004A8F43   E8708AF8FF             call    004319B8
004A8F48   8D55EC                 lea     edx, [ebp-$14]
004A8F4B   8B45F4                 mov     eax, [ebp-$0C]
004A8F4E   0FB74018               movzx   eax, word ptr [eax+$18]
004A8F52   E855FDF5FF             call    00408CAC
004A8F57   8B55EC                 mov     edx, [ebp-$14]
004A8F5A   8B45FC                 mov     eax, [ebp-$04]
004A8F5D   8B80EC020000           mov     eax, [eax+$02EC]
004A8F63   E8508AF8FF             call    004319B8
004A8F68   8D55EC                 lea     edx, [ebp-$14]
004A8F6B   8B45F4                 mov     eax, [ebp-$0C]
004A8F6E   0FB7401A               movzx   eax, word ptr [eax+$1A]
004A8F72   E835FDF5FF             call    00408CAC
004A8F77   8B55EC                 mov     edx, [ebp-$14]
004A8F7A   8B45FC                 mov     eax, [ebp-$04]
004A8F7D   8B80F0020000           mov     eax, [eax+$02F0]
004A8F83   E8308AF8FF             call    004319B8
004A8F88   8D45EC                 lea     eax, [ebp-$14]
004A8F8B   8B55F4                 mov     edx, [ebp-$0C]
004A8F8E   8A521C                 mov     dl, byte ptr [edx+$1C]
004A8F91   E88EAEF5FF             call    00403E24
004A8F96   8B55EC                 mov     edx, [ebp-$14]
004A8F99   8B45FC                 mov     eax, [ebp-$04]
004A8F9C   8B80F8020000           mov     eax, [eax+$02F8]
004A8FA2   E8118AF8FF             call    004319B8
004A8FA7   8B45F4                 mov     eax, [ebp-$0C]
004A8FAA   8A501D                 mov     dl, byte ptr [eax+$1D]
004A8FAD   8B45FC                 mov     eax, [ebp-$04]
004A8FB0   8B8010030000           mov     eax, [eax+$0310]
004A8FB6   8B08                   mov     ecx, [eax]
004A8FB8   FF91BC000000           call    dword ptr [ecx+$00BC]
004A8FBE   8B45F4                 mov     eax, [ebp-$0C]
004A8FC1   8A501E                 mov     dl, byte ptr [eax+$1E]
004A8FC4   8B45FC                 mov     eax, [ebp-$04]
004A8FC7   8B8018030000           mov     eax, [eax+$0318]
004A8FCD   8B08                   mov     ecx, [eax]
004A8FCF   FF91BC000000           call    dword ptr [ecx+$00BC]
004A8FD5   8B45F4                 mov     eax, [ebp-$0C]
004A8FD8   8A501E                 mov     dl, byte ptr [eax+$1E]
004A8FDB   8B45FC                 mov     eax, [ebp-$04]
004A8FDE   8B8014030000           mov     eax, [eax+$0314]
004A8FE4   8B08                   mov     ecx, [eax]
004A8FE6   FF91BC000000           call    dword ptr [ecx+$00BC]
004A8FEC   8B45F4                 mov     eax, [ebp-$0C]
004A8FEF   8A5020                 mov     dl, byte ptr [eax+$20]
004A8FF2   8B45FC                 mov     eax, [ebp-$04]
004A8FF5   8B800C030000           mov     eax, [eax+$030C]
004A8FFB   8B08                   mov     ecx, [eax]
004A8FFD   FF91BC000000           call    dword ptr [ecx+$00BC]
004A9003   33C0                   xor     eax, eax
004A9005   5A                     pop     edx
004A9006   59                     pop     ecx
004A9007   59                     pop     ecx
004A9008   648910                 mov     fs:[eax], edx

****** FINALLY
|
004A900B   6822904A00             push    $004A9022
004A9010   8B45FC                 mov     eax, [ebp-$04]
004A9013   C6802403000000         mov     byte ptr [eax+$0324], $00
004A901A   C3                     ret

004A901B   E980A6F5FF             jmp     004036A0
004A9020   EBEE                   jmp     004A9010

****** END
|
004A9022   33C0                   xor     eax, eax
004A9024   5A                     pop     edx
004A9025   59                     pop     ecx
004A9026   59                     pop     ecx
004A9027   648910                 mov     fs:[eax], edx

****** FINALLY
|
004A902A   683F904A00             push    $004A903F
004A902F   8D45EC                 lea     eax, [ebp-$14]
004A9032   E849ACF5FF             call    00403C80
004A9037   C3                     ret

004A9038   E963A6F5FF             jmp     004036A0
004A903D   EBF0                   jmp     004A902F

****** END
|
004A903F   8BE5                   mov     esp, ebp
004A9041   5D                     pop     ebp
004A9042   C3                     ret


}
 end ; 

end.
