1.获取系统目录
procedure TForm1.btn1Click(Sender: TObject);
var
adr:array[0..MAX_PATH] of Char;
begin
GetSystemDirectory(adr,MAX_PATH);
ShowMessage(adr);
end;
2.获取windows目录
procedure TForm1.btn1Click(Sender: TObject);
var
adr:array[0..MAX_PATH] of Char;
begin
GetWindowsDirectory(adr,MAX_PATH);
ShowMessage(adr);
end;
3.系统信息
procedure TForm1.btn1Click(Sender: TObject);
var
adr:array[0..MAX_PATH] of Char;
info:_SYSTEM_INFO;
begin
mmo1.Clear;
GetSystemInfo(info);
with mmo1.Lines do
begin
Add(Format('处理器的类型:%d',[info.dwProcessorType]));
Add(Format('OEMID是:%d',[info.dwOemId]));
Add(Format('处理器架构:%d',[info.wProcessorArchitecture]));
Add(Format('处理器数量:%d',[info.dwNumberOfProcessors]));
Add(Format('处理器版本:%d',[info.wProcessorRevision]));
Add(Format('分页大小:%d',[info.dwPageSize]));
Add(Format('最小寻址空间:%d',[Integer(info.lpMinimumApplicationAddress)]));
Add(Format('最大寻址空间:%d',[Integer(info.lpMaximumApplicationAddress)]));
Add(Format('处理器掩码:%d',[Integer(info.dwActiveProcessorMask)]));
Add(Format('处理器粒度:%d',[Integer(info.dwAllocationGranularity)]));
Add(Format('处理器等级:%d',[Integer(info.wProcessorLevel)]));
end;
end;