Delphi 获取系统信息（1）

最新推荐文章于 2025-05-10 00:57:48 发布

原创

最新推荐文章于 2025-05-10 00:57:48 发布 · 5.4k 阅读

标签

#Delphi

收录于

本文介绍了如何使用Delphi通过Windows API获取系统信息，包括利用GetDriveType获取磁盘信息，使用GlobalMemoryStatus获取内存使用情况，以及调用GetSystemInfo函数来获取CPU详细信息。

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信息