about.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 About;

interface

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

type
  TAboutFrm = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    procedure Label7Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutFrm: TAboutFrm;

implementation

{$R *.dfm}

procedure TAboutFrm.Label7Click(Sender: TObject);
begin
  ShellExecute(Handle,nil,'mailto:[e-mail]',nil,nil,SW_SHOWNORMAL);
end;

procedure TAboutFrm.Label5Click(Sender: TObject);
begin
  ShellExecute(Handle,nil,'http://www.pefine.com',nil,nil,SW_SHOWNORMAL);
end;

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

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

end.