几个获取Windows系统信息的Delphi程序

领测软件测试网

S.~0J ]U J~*D8~软件测试技术门户*C0D&i:l5rT(B
软件测试技术门户,Q)Wp pmr
4、获取Windows和系统路径 
6F8@nQ:O6u'z)K;f2z软件测试技术门户.KS#gU!Z)R
可以通过Windows API函数来获得 
,MU C-@y4N
8Ms+GM T*kPz具体程序如下：  软件测试技术门户V+S"??_~"\'j+P
软件测试技术门户c-k$@\2_2|a
procedure TForm1.Button1Click(Sender: TObject);  软件测试技术门户 Sq%mnJ6B;y}
Var  软件测试技术门户,Ic!L0q
P/C6t.e
]
SysDir:array[0..128] of char;  软件测试技术门户T7Ty5h1cW
begin 
N~O`"NWj2vGetWindowsDirectory(SysDir,128);  软件测试技术门户3tI^)jW[.p
Edit1.Text:=’Windows 路径：’+SysDir; 
#U:J4|.]e"oGetSystemDirectory(SysDir,128);