about.pas

人事管理系统人事管理系统人事管理系统人事管理系统人事管理系统

unit About;

interface

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

type
  TForm4 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    Memo1: TMemo;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label9MouseLeave(Sender: TObject);
    procedure Label9Click(Sender: TObject);
  private
    { Private declarations }
   // procedure GetMemoryInfo;
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
var
  verinfo:tosversioninfo;//定义一个tosversioninfo实例
  str:string;
  i:word;
begin
  verinfo.dwOSVersionInfoSize:=sizeof(tosversioninfo);
  if getversionex(verinfo) then
  begin
    case verinfo.dwPlatformId of
      ver_platform_win32s:label7.Caption:='正在运行Win32的Win16';
      ver_platform_win32_windows:label7.Caption:='Win32 Windows, 可能是Win95';
      ver_platform_win32_nt:label7.Caption:='WinNT,完全32位     ';
    end;
  str:='';
  for i:=0to 127do
    str:=str+verinfo.szCSDVersion[i];
  label8.Caption:=inttostr(verinfo.dwMajorVersion)+'.'+inttostr(verinfo.dwMinorVersion)+'('+'Builder:'+inttostr(verinfo.dwBuildNumber)+str+')';
  end;
end;
//procedure tform4.GetMemoryInfo;
//var
  //MS: TMemoryStatus;
//begin
//  MS.dwLength:=SizeOf(TMemoryStatus);
//  GlobalMemoryStatus(MS);
//  label10.Caption:=label10.Caption +FormatFloat('#,###" KB"',MS.dwTotalPhys div 1024);
//end;
procedure TForm4.Label9MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label9.Font.Color:=clblue;
end;

procedure TForm4.Label9MouseLeave(Sender: TObject);
begin
  label9.Font.Color:=clblack;
end;
procedure URlink(URL:pchar);
begin
 shellexecute(0,nil,URL,nil,nil,sw_normal);
end;
procedure TForm4.Label9Click(Sender: TObject);
begin
  URlink('www.zhaobinbin.com.cn');
end;

end.