umain.pas

在delphi中实现windows核心编程.原书光盘代码核心编程.原书光盘代码

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, ComCtrls, ToolWin, StdCtrls, jpeg, ExtCtrls;

type

  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    O1: TMenuItem;
    X1: TMenuItem;
    T1: TMenuItem;
    R1: TMenuItem;
    V161: TMenuItem;
    I1: TMenuItem;
    H1: TMenuItem;
    A1: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    OpenDialog1: TOpenDialog;
    StatusBar1: TStatusBar;
    P1: TMenuItem;
    ToolButton3: TToolButton;
    Image1: TImage;
    ImageList1: TImageList;
    procedure R1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure V161Click(Sender: TObject);
    procedure I1Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FileName: string;


  end;

var
  frmMain: TfrmMain;

implementation

uses UResource, UHexView, UFileInfo, UPEEntry;

{$R *.DFM}
{$R rximages.res}

procedure TfrmMain.R1Click(Sender: TObject);
begin
  frmResource.showmodal;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  {载入图标资源}
  StatusBar1.Panels[0].Text := '未打开任何文件';
end;


procedure TfrmMain.O1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    FileName := OpenDialog1.FileName;
    StatusBar1.Panels[0].Text := '已打开文件:' + Filename;
     if FileExists(frmMain.FileName) then
        frmPEEntry.Load(frmMain.FileName); {设置文件}
  end;
end;

procedure TfrmMain.V161Click(Sender: TObject);
begin
  frmHexView.showmodal;
end;

procedure TfrmMain.I1Click(Sender: TObject);
begin
  frmFileInfo.showmodal;
end;

procedure TfrmMain.P1Click(Sender: TObject);
begin
  frmPEEntry.showmodal;
end;

procedure TfrmMain.X1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmMain.ToolButton8Click(Sender: TObject);
begin
  P1Click(sender);
end;

procedure TfrmMain.ToolButton10Click(Sender: TObject);
begin
  V161Click(sender);
end;

procedure TfrmMain.ToolButton7Click(Sender: TObject);
begin
  I1Click(sender);
end;

procedure TfrmMain.ToolButton2Click(Sender: TObject);
begin
  R1Click(sender);
end;

procedure TfrmMain.ToolButton1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmMain.ToolButton3Click(Sender: TObject);
begin
  O1Click(sender);
end;

end.