subsystem.pas

WindPE for Borland Delphi 7.0: {*******************************************************} { } { Wi

{******************************************************************************}
{Copyright(C) 2007,Pefine Security Lab                                         }
{All rights reserved.                                                          }
{                                                                              }
{Abstract:View Win32 PE file information.                                      }
{                                                                              }
{Version:1.01                                                                  }
{Author:WindRand                                                               }
{Date:2007-01-20                                                               }
{******************************************************************************}
unit SubSystem;

interface

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

type
  TSubSystemFrm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    FlagRadio: TRadioGroup;
    ValueLabel: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FlagRadioClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SubSystemFrm: TSubSystemFrm;

implementation

{$R *.dfm}

procedure TSubSystemFrm.Button1Click(Sender: TObject);
begin
  ModalResult:=mrok;
end;

procedure TSubSystemFrm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TSubSystemFrm.FlagRadioClick(Sender: TObject);
begin
  Case FlagRadio.ItemIndex of
    0:ValueLabel.Caption:='0000';
    1:ValueLabel.Caption:='0001';
    2:ValueLabel.Caption:='0002';
    3:ValueLabel.Caption:='0003';
    4:ValueLabel.Caption:='0005';
    5:ValueLabel.Caption:='0007';
    6:ValueLabel.Caption:='0008';
    7:ValueLabel.Caption:='0009';
    8:ValueLabel.Caption:='000A';
    9:ValueLabel.Caption:='000B';
    10:ValueLabel.Caption:='000C';
    11:ValueLabel.Caption:='000D';
    12:ValueLabel.Caption:='000E';
  end;
end;

end.