1. DELPHI获得系统信息
1. 获得系统本地信息
Windows API中有一个函数GetLocaleInfo可以用来获得系统信息比如系统语言, 货币符号等代码如下:
function TForm1.GetLocaleInformation(Flag: Integer): String;
var
pcLCA: Array[0..20] of Char;
begin
if( GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,Flag,pcLCA,19) <= 0 ) then
begin
pcLCA[0] := #0;
end;
Result := pcLCA;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE));
end;
一、 用GetDriveType函数获取磁盘信息
二、 用GlobalMemoryStatus函数获取内存使用信息
三、 用GetSystemInfo函数获取CPU信息
1、获取windows版本信息
可以通过Windows API函数GetVersionEx来获得。
具体程序如下: