machine.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 Machine;

interface

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

type
  TMachineFrm = class(TForm)
    MFlags: TRadioGroup;
    Panel1: TPanel;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure MFlagsClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MachineFrm: TMachineFrm;

implementation

uses PEHeader;

{$R *.dfm}

procedure TMachineFrm.FormCreate(Sender: TObject);
begin
  Case PEHeaderFrm.mFlag of
    $0000:MFlags.ItemIndex:=0;
    $014C:MFlags.ItemIndex:=1;
    $0162:MFlags.ItemIndex:=2;
    $0166:MFlags.ItemIndex:=3;
    $0168:MFlags.ItemIndex:=4;
    $0169:MFlags.ItemIndex:=5;
    $0184:MFlags.ItemIndex:=6;
    $01F0:MFlags.ItemIndex:=7;
    $01A2:MFlags.ItemIndex:=8;
    $01A4:MFlags.ItemIndex:=9;
    $01A6:MFlags.ItemIndex:=10;
    $01C0:MFlags.ItemIndex:=11;
    $01C2:MFlags.ItemIndex:=12;
    $0200:MFlags.ItemIndex:=13;
    $0266:MFlags.ItemIndex:=14;
    $0366:MFlags.ItemIndex:=15;
    $0466:MFlags.ItemIndex:=16;
    $0284:MFlags.ItemIndex:=17;
    $0520:MFlags.ItemIndex:=18;
    $8664:MFlags.ItemIndex:=19;
    $9041:MFlags.ItemIndex:=20;
    $0EBC:MFlags.ItemIndex:=21;
    $0CEF:MFlags.ItemIndex:=22;
    $C0EE:MFlags.ItemIndex:=23;                                                                                    
  end;
end;

procedure TMachineFrm.MFlagsClick(Sender: TObject);
begin
  Case MFlags.ItemIndex of
    0:Label1.Caption:='0000';
    1:Label1.Caption:='014C';
    2:Label1.Caption:='0162';
    3:Label1.Caption:='0166';
    4:Label1.Caption:='0168';
    5:Label1.Caption:='0169';
    6:Label1.Caption:='0184';
    7:Label1.Caption:='01F0';
    8:Label1.Caption:='01A2';
    9:Label1.Caption:='01A4';
    10:Label1.Caption:='01A6';
    11:Label1.Caption:='01C0';
    12:Label1.Caption:='01C2';
    13:Label1.Caption:='0200';
    14:Label1.Caption:='0266';
    15:Label1.Caption:='0366';
    16:Label1.Caption:='0466';
    17:Label1.Caption:='0284';
    18:Label1.Caption:='0520';
    19:Label1.Caption:='8664';
    20:Label1.Caption:='9041';
    21:Label1.Caption:='0EBC';
    22:Label1.Caption:='0CEF';
    23:Label1.Caption:='C0EE';
  end;
end;

procedure TMachineFrm.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TMachineFrm.FormShow(Sender: TObject);
begin
  //Interface center
  With MachineFrm do
    begin
      Left:=(Screen.Width div 2)-(Width div 2);
      Top:=(Screen.Height div 2)-(Height div 2);
    end;
end;

end.