aboutformunit.pas

来自「用DELPHI做的记事本 类似与WINDOWS中的记事本一样,包括删除,新建」· PAS 代码 · 共 74 行

unit AboutFormUnit;

interface

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

type
  TAboutForm = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    Label10: TLabel;
    procedure Label5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation

{$R *.dfm}

procedure TAboutForm.Label5Click(Sender: TObject);
begin
  ShellExecute(handle,'Open','c:\WINDOWS\SYSTEM32\EULA.txt',NIL,NIL,SW_SHOWNORMAL);
end;

procedure TAboutForm.FormCreate(Sender: TObject);
Var
  MemInfo:MEMORYSTATUS;
  s:integer;
  Reg:TRegistry;
begin
  MemInfo.dwLength:=sizeof(MEMORYSTATUS);
  GlobalMemoryStatus(MemInfo);
  s:=meminfo.dwTotalPhys div 1024;
  label9.Caption:='WINDOWS 的可用物理内存共有:    '+inttostr(s)+' KB';
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion',False);
  label8.Caption:=Reg.ReadString('RegisteredOrganization');
  label7.Caption:=Reg.ReadString('RegisteredOwner');

  Reg.CloseKey;
Reg.Free;

end;


procedure TAboutForm.BitBtn1Click(Sender: TObject);
begin
  AboutForm.Close;
end;

end.