characteristics.pas

Delphi写的PE查看器

{******************************************************************************}
{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 Characteristics;

interface

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

type
  TCharacteristicsFrm = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    ValueLabel: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
  private
    { Private declarations }
  public
    function CharCount():Integer;  
    { Public declarations }
  end;

var
  CharacteristicsFrm: TCharacteristicsFrm;

implementation

{$R *.dfm}

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

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

function TCharacteristicsFrm.CharCount():Integer;
var
  TempInt:Integer;
begin
  TempInt:=0;
  if CheckBox1.Checked=True then
    TempInt:=TempInt+HexToInt('0001');
  if CheckBox2.Checked=True then
    TempInt:=TempInt+HexToInt('0002');
  if CheckBox3.Checked=True then
    TempInt:=TempInt+HexToInt('0004');
  if CheckBox4.Checked=True then
    TempInt:=TempInt+HexToInt('0008');
  if CheckBox5.Checked=True then
    TempInt:=TempInt+HexToInt('0010');
  if CheckBox6.Checked=True then
    TempInt:=TempInt+HexToInt('0020');
  if CheckBox7.Checked=True then
    TempInt:=TempInt+HexToInt('0080');
  if CheckBox8.Checked=True then
    TempInt:=TempInt+HexToInt('0100');
  if CheckBox9.Checked=True then
    TempInt:=TempInt+HexToInt('0200');
  if CheckBox10.Checked=True then
    TempInt:=TempInt+HexToInt('0400');
  if CheckBox11.Checked=True then
    TempInt:=TempInt+HexToInt('0800');
  if CheckBox12.Checked=True then
    TempInt:=TempInt+HexToInt('1000');
  if CheckBox13.Checked=True then
    TempInt:=TempInt+HexToInt('2000');
  if CheckBox14.Checked=True then
    TempInt:=TempInt+HexToInt('4000');
  if CheckBox15.Checked=True then
    TempInt:=TempInt+HexToInt('8000');
  Result:=TempInt;  
end;

procedure TCharacteristicsFrm.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox1.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox2Click(Sender: TObject);
begin
  if CheckBox2.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox2.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox3Click(Sender: TObject);
begin
  if CheckBox3.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox3.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox4Click(Sender: TObject);
begin
  if CheckBox4.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox4.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox5Click(Sender: TObject);
begin
  if CheckBox5.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox5.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox6Click(Sender: TObject);
begin
  if CheckBox6.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox6.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox7Click(Sender: TObject);
begin
  if CheckBox7.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox7.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox8Click(Sender: TObject);
begin
  if CheckBox8.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox8.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox9Click(Sender: TObject);
begin
  if CheckBox9.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox9.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox10Click(Sender: TObject);
begin
  if CheckBox10.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox10.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox11Click(Sender: TObject);
begin
  if CheckBox11.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox11.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox12Click(Sender: TObject);
begin
  if CheckBox12.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox12.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox13Click(Sender: TObject);
begin
  if CheckBox13.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox13.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox14Click(Sender: TObject);
begin
  if CheckBox14.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox14.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

procedure TCharacteristicsFrm.CheckBox15Click(Sender: TObject);
begin
  if CheckBox15.Checked=True then
    ValueLabel.Caption:=IntToHex(CharCount,4);
  if CheckBox15.Checked=False then
    ValueLabel.Caption:=IntToHex(CharCount,4);
end;

end.