用什么代码获取系统信息???
用什么代码获取系统信息?能不能做一个给我这个初学者看一下看啊<BR>谢谢!!<P>interface</P>
<P>uses<BR> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<BR> Dialogs, StdCtrls;</P>
<P>type<BR> TForm1 = class(TForm)<BR> Button1: TButton;<BR> ListBox1: TListBox;<BR> procedure Button1Click(Sender: TObject);<BR> private<BR> { Private declarations }<BR> public<BR> { Public declarations }<BR> procedure showMemInfo();<BR> procedure getVerSionInfo();<BR> end;</P>
<P>var<BR> Form1: TForm1;</P>
<P>implementation</P>
<P>{$R *.dfm}</P>
<P><BR>procedure TForm1.showMemInfo();<BR>var<BR> aMemStastus: TMemoryStatus;<BR>begin<BR> aMemStastus.dwLength := SizeOf(aMemStastus);<BR> GlobalMemoryStatus(aMemStastus);<BR> with ListBox1.Items, aMemStastus do<BR> begin<BR> Add('内存状态:') ;<BR> Add('内存使用百分比' + IntToStr(dwMemoryLoad));//内存使用百分比<BR> Add('物理内存总数' + IntToStr(dwTotalPhys));//物理内存总数<BR> Add(IntToStr(dwAvailPhys));//空余内存<BR> Add(IntToStr(dwTotalPageFile));//可调度页面文件总数<BR> Add(IntToStr(dwAvailVirtual));//空余调用页面数<BR> end; // with</P>
<P>end;<BR>procedure TForm1.Button1Click(Sender: TObject);<BR>begin<BR> showMemInfo();<BR> getVerSionInfo();<BR>end;</P>
<P>procedure TForm1.getVerSionInfo();<BR>var<BR> aOSVersionInfo: TOSVersionInfo;<BR>begin<BR> aOSVersionInfo.dwOSVersionInfoSize := SizeOf(aOSVersionInfo);<BR> GetVersionEx(aOSVersionInfo);<BR> with ListBox1.Items, aOSVersionInfo do<BR> begin<BR> add('');<BR> add('系统信息:');<BR> add('主版本号:' + IntToStr(dwMajorVersion));<BR> add('副版本号:' + IntToStr(dwMinorVersion));<BR> case dwPlatformId of //<BR> VER_PLATFORM_WIN32s:<BR> add('操作系统：Windows3.1' );<BR> VER_PLATFORM_WIN32_WINDOWS:<BR> add('操作系统：Windows98以下' );<BR> VER_PLATFORM_WIN32_NT:<BR> add('操作系统：Windows2000/Nt' );<BR> end; // case<BR> Add('.....');<BR> end; // with<BR>end;</P>
<P>end.<BR></P> <P>谢谢,以上楼主,我先先试试</P> <P>谢谢,以上楼主,我先试试</P>
页:
[1]