abouts.~pas

很不错的软件请使用

unit abouts;

interface

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

type
  Tabout = class(Tform)
    Label4: TLabel;
    Panel3: TPanel;
    Label7: TLabel;
    Panel4: TPanel;
    Image2: TImage;
    Label8: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button5: TButton;
    Panel5: TPanel;
    RxLabel1: TRxLabel;
    RxLabel2: TRxLabel;
    RxGIFAnimator1: TRxGIFAnimator;
    Label1: TLabel;
    RegLabel: TLabel;
    Panel1: TPanel;
    Edit1: TEdit;
    Label3: TLabel;
    Label9: TLabel;
    Edit2: TEdit;
    Label10: TLabel;
    Edit3: TEdit;
    Label11: TLabel;
    Edit4: TEdit;
    Label12: TLabel;
    Edit5: TEdit;
    UserName: TLabel;
    UserProduct: TLabel;
    Label2: TLabel;
    lblos: TLabel;
    lblMemory: TLabel;
    Bevel1: TBevel;
    RxLabel3: TRxLabel;
    procedure Button1Click(Sender: TObject);
    procedure clickimage(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure onclose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  Registryed:boolean;
   procedure GetOSInfo;
   procedure GetMemoryInfo;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  about: Tabout;

implementation
uses mainformunit;
{$R *.dfm}
procedure Tabout.Button1Click(Sender: TObject);
var
Reg:TRegistry;
begin
 if not Registryed then
 begin
  if (edit1.Text+'-'+edit2.text+'-'+edit3.text+'-'+edit4.text+'-'+edit5.text)='59308-67204-36297-87520-26497' then
   begin
    Reg:=TRegistry.Create;
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    try
     Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Install', True);
     Reg.WriteBool('Urlencoding',true);
     Reg.CloseKey;
    except
    end;
    Reg.Free;
    MessageBox(Handle,'注册成功,请重新启动程序！','信息',MB_OK or MB_ICONinformation);
    exit;
   end else
    begin
    MessageBox(Handle,'注册码错误,请重新输入！','信息',MB_OK or MB_ICONstop);
    exit;
    end;
   end;
 close;
end;

procedure Tabout.clickimage(Sender: TObject);
begin
inherited;
ShellExecute(handle,nil,pchar('http://www.sfply.com'),nil,nil,sw_shownormal);
end;

procedure Tabout.Label6Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure Tabout.onclose(Sender: TObject; var Action: TCloseAction);
begin
Action:=cafree;
end;

procedure Tabout.Button3Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('MSINFO32.EXE'),nil,nil,sw_shownormal);
end;

procedure Tabout.Button5Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar(MainAppMail),nil,nil,sw_shownormal);
end;

procedure Tabout.FormCreate(Sender: TObject);
var
Reg:TRegistry;
UserTimes:integer;
begin
 Rxlabel1.Caption:=MainAppAboutTitle_1;
 Rxlabel2.Caption:=MainAppAboutTitle_2;
 usertimes:=0;
 Reg:=TRegistry.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 try
  Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Install', True);
  Registryed:=Reg.ReadBool('Urlencoding');
  UserTimes:=Reg.ReadInteger('ActiveXCash');
  Reg.CloseKey;
 except
  end;
 Reg.Free;
 if Not Registryed then
  begin
  RegLabel.caption:='您还没有注册,您还有 '+inttostr(UserTimes)+' 次使用机会！';
  Panel1.Visible:=true;
  Rxlabel3.Caption:='请尊重作者的劳动，注册使用本程序！';
  end else
  Panel1.Visible:=false;
  UserProduct.Caption:='59308-67204-36297-87520-26497';
  GetMemoryInfo;
  GetOsinfo;
end;

procedure Tabout.GetOSInfo; //获取系统信息
var
  Platform: string;
  BuildNumber: Integer;
begin
  case Win32Platform of
  VER_PLATFORM_WIN32_WINDOWS:
    begin
      Platform := 'Windows 98';
      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 lblOS.Caption := lblOS.Caption+Format('%s  %d.%d (Build %d)',[Platform,Win32MajorVersion,Win32MinorVersion,BuildNumber])
    else lblOS.Caption := lblOS.Caption+Format('%s  %d.%d (Build %d: %s)',[Platform,Win32MajorVersion,Win32MinorVersion, BuildNumber,Win32CSDVersion]);
  end else lblOS.Caption := lblOS.Caption+Format('%s  %d.%d', [Platform,Win32MajorVersion,Win32MinorVersion])
end;

Procedure Tabout.GetMemoryInfo ;//可用资源
var
  MS: TMemoryStatus;
begin
  MS.dwLength:=SizeOf(TMemoryStatus);
  GlobalMemoryStatus(MS);
  lblMemory.Caption:=lblMemory.Caption +FormatFloat('#,###" KB"',MS.dwTotalPhys div 1024);
end;

end.