about_form.pas

Delphi7和ACCESS开发的用户权限管理的源程序．

unit About_Form;

interface

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

type
  TAbout_F = class(TForm)
    Panel1: TPanel;
    CZXT_L: TLabel;
    Icon: TImage;
    RJMC_L: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    Author: TLabel;
    NC_L: TLabel;
    Others: TLabel;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Label3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label3MouseEnter(Sender: TObject);
    procedure Label3MouseLeave(Sender: TObject);
    procedure Label5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label5MouseEnter(Sender: TObject);
    procedure Label5MouseLeave(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    s:string;
    procedure GetOSInfo;
    Procedure GetMemoryInfo ;
  public
    { Public declarations }
  end;

var
  About_F: TAbout_F;

implementation

uses share;

{$R *.dfm}
//******************************************************************************
Procedure TAbout_F.GetMemoryInfo ;
var
   MS: TMemoryStatus;
begin
   MS.dwLength:=SizeOf(TMemoryStatus);
   GlobalMemoryStatus(MS);
   NC_L.Caption:=NC_L.Caption +FormatFloat('#,###" KB"',MS.dwTotalPhys div 1024);
end;
//******************************************************************************
procedure TAbout_F.GetOSInfo;
var
   Platform: string;
   BuildNumber: Integer;
begin
   case Win32Platform of
   VER_PLATFORM_WIN32_WINDOWS:
     begin
       Platform := 'Windows 95';
       BuildNumber := Win32BuildNumber and $0000FFFF;
     end;
   VER_PLATFORM_WIN32_NT:
     begin
       Platform := 'Windows NT';
       BuildNumber := Win32BuildNumber;
     end;
    else
    begin
      Platform := 'Windows';
      BuildNumber := 0;
    end;
  end;

  if(Win32Platform = VER_PLATFORM_WIN32_WINDOWS)
    or(Win32Platform = VER_PLATFORM_WIN32_NT) then
  begin
    if Win32CSDVersion = ''
    then CZXT_L.Caption := CZXT_L.Caption+Format('%s%s          %d.%d (Build %d)',[Platform,#13,Win32MajorVersion,Win32MinorVersion,BuildNumber])
    else CZXT_L.Caption := CZXT_L.Caption+Format('%s%s          %d.%d (Build %d: %s)',[Platform,#13,Win32MajorVersion,Win32MinorVersion, BuildNumber,Win32CSDVersion]);
  end else CZXT_L.Caption := CZXT_L.Caption+Format('%s%s          %d.%d', [Platform,#13,Win32MajorVersion,Win32MinorVersion])
end;
//******************************************************************************youren
procedure TAbout_F.FormCreate(Sender: TObject);
begin
  try
    Icon.Picture.icon:=Application.Icon;
    GetMemoryInfo;
    GetOsinfo;
    s:='';
  except
    MessageBox(handle,'某些信息不能取得','提示',MB_OK);
  end;
end;
//******************************************************************************
procedure TAbout_F.Label3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   shellexecute(handle,nil,Pchar('http://go.6to23.com/yourensl'),nil,nil,sw_shownormal);
end;
//******************************************************************************
procedure TAbout_F.Label3MouseEnter(Sender: TObject);
begin
   label3.Font.Color:=clred;
   label3.Cursor:=crhandpoint;
end;
//******************************************************************************
procedure TAbout_F.Label3MouseLeave(Sender: TObject);
begin
   label3.Font.Color:=clblack;
end;
//******************************************************************************
procedure TAbout_F.Label5MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ShellExecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_ShowNormal);
end;
//******************************************************************************
procedure TAbout_F.Label5MouseEnter(Sender: TObject);
begin
   label5.Font.Color:=clblue;
   label5.Cursor:=crhandpoint;
end;
//******************************************************************************
procedure TAbout_F.Label5MouseLeave(Sender: TObject);
begin
   label5.Font.Color:=clblack;
end;
//******************************************************************************
procedure TAbout_F.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;

end.