unit HostInfo;

interface

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

type
  THostInfoForm=class(TForm)
    InfoView: TListView;
    CloseBtn: TBitBtn;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  HostInfoForm: THostInfoForm;


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

implementation

{$R *.DFM}


procedure THostInfoForm.CloseBtnClick(Sender: TObject);
begin
{
004A8024   55                     push    ebp
004A8025   8BEC                   mov     ebp, esp
004A8027   83C4F8                 add     esp, -$08
004A802A   8955F8                 mov     [ebp-$08], edx
004A802D   8945FC                 mov     [ebp-$04], eax
004A8030   8B45FC                 mov     eax, [ebp-$04]
004A8033   E86031FAFF             call    0044B198
004A8038   59                     pop     ecx
004A8039   59                     pop     ecx
004A803A   5D                     pop     ebp
004A803B   C3                     ret


}
 end ; 

procedure THostInfoForm.FormCreate(Sender: TObject);
begin
{
004A7EF4   55                     push    ebp
004A7EF5   8BEC                   mov     ebp, esp
004A7EF7   83C4F8                 add     esp, -$08
004A7EFA   8955F8                 mov     [ebp-$08], edx
004A7EFD   8945FC                 mov     [ebp-$04], eax
004A7F00   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A7F05   8B00                   mov     eax, [eax]
004A7F07   8B55FC                 mov     edx, [ebp-$04]
004A7F0A   8990B0000000           mov     [eax+$00B0], edx
004A7F10   C780AC000000487F4A00   mov     dword ptr [eax+$00AC], $004A7F48
004A7F1A   8B45FC                 mov     eax, [ebp-$04]
004A7F1D   8B80C8020000           mov     eax, [eax+$02C8]
004A7F23   E85899FCFF             call    00471880
004A7F28   8BC8                   mov     ecx, eax
004A7F2A   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004A7F2F   8B00                   mov     eax, [eax]
004A7F31   8B80B4030000           mov     eax, [eax+$03B4]
004A7F37   BA40000000             mov     edx, $00000040
004A7F3C   E83F5AF9FF             call    0043D980
004A7F41   59                     pop     ecx
004A7F42   59                     pop     ecx
004A7F43   5D                     pop     ebp
004A7F44   C3                     ret


}
 end ; 

procedure THostInfoForm.FormShow(Sender: TObject);
begin
{
004A803C   55                     push    ebp
004A803D   8BEC                   mov     ebp, esp
004A803F   83C4F8                 add     esp, -$08
004A8042   8955F8                 mov     [ebp-$08], edx
004A8045   8945FC                 mov     [ebp-$04], eax
004A8048   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004A804D   8B00                   mov     eax, [eax]
004A804F   E81496FEFF             call    00491668
004A8054   59                     pop     ecx
004A8055   59                     pop     ecx
004A8056   5D                     pop     ebp
004A8057   C3                     ret


}
 end ; 

end.
