?? about.pas
字號(hào):
unit about;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls,Dialogs, jpeg;
type
Tfrm_about = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
BitBtn1: TBitBtn;
Bevel1: TBevel;
lblOs: TLabel;
lblMemory: TLabel;
Panel2: TPanel;
Image1: TImage;
Others: TLabel;
Author: TLabel;
Bevel2: TBevel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
s:string;
procedure GetOSInfo; //系統(tǒng)信息程序
Procedure GetMemoryInfo ; //可用資源程序
public
{ Public declarations }
end;
var
frm_about: Tfrm_about;
const
ver='沸點(diǎn)版';
implementation
{$R *.DFM}
Procedure Tfrm_about.GetMemoryInfo ;//可用資源
var
MS: TMemoryStatus;
begin
MS.dwLength:=SizeOf(TMemoryStatus);
GlobalMemoryStatus(MS);
lblMemory.Caption:=lblMemory.Caption +FormatFloat('#,###" KB"',MS.dwTotalPhys div 1024);
end;
procedure Tfrm_about.GetOSInfo; //獲取系統(tǒng)信息
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 lblOS.Caption := lblOS.Caption+Format('%s%s %d.%d (Build %d)',[Platform,#13,Win32MajorVersion,Win32MinorVersion,BuildNumber])
else lblOS.Caption := lblOS.Caption+Format('%s%s %d.%d (Build %d: %s)',[Platform,#13,Win32MajorVersion,Win32MinorVersion, BuildNumber,Win32CSDVersion]);
end else lblOS.Caption := lblOS.Caption+Format('%s%s %d.%d', [Platform,#13,Win32MajorVersion,Win32MinorVersion])
end;
procedure Tfrm_about.FormCreate(Sender: TObject);
begin
try
Caption:='關(guān)于 '+application.Title;
ProgramIcon.Picture.icon:=Application.Icon;
ProductName.Caption:=ProductName.Caption+Application.Title;
version.Caption:=version.Caption+ver;
Copyright.Caption:=Copyright.Caption+'龍泉三力工作室';
Author.Caption:=Author.Caption+'帥在龍淵';
Others.Caption:='警告:未經(jīng)允許,任何個(gè)人、單位可以以任何方式非法拷貝、盜用!'+
'但是,系統(tǒng)在運(yùn)行過程中出現(xiàn)的任何問題作者將不負(fù)任何連帶責(zé)任!'+#13+#13+
'程序運(yùn)行于WinAny,access 2000支持!';
//初始化---------------------------
GetMemoryInfo;
GetOsinfo;
{***********************}
//初始化變量s...
s:='';
except
MessageBox(handle,'某些信息不能取得','提示',MB_OK);
end;
end;
procedure Tfrm_about.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -