获取系统信息(10分)

  • 主题发起人 主题发起人 longwx
  • 开始时间 开始时间
L

longwx

Unregistered / Unconfirmed
GUEST, unregistred user!
在程序中怎样获取系统信息,如:Windows安装目录、Program Files安装目录
等等
 
var _WinPath:array[0..255] of Char;
WinPath:string;
AppPath:string;


AppPath:=ExtractFilePath(Application.Exename);//你的应用程序启动全路径
GetTempPath(255,@_WinPath);
WinPath:=_WinPath;// 你的 Windows 路径
 
const
WINBUF = 144;
var
WinArray, WinSysArray: array [0..144] of char;

1.Get /Windows directory
GetWindowsDirectory (WinArray, WINBUF);

2.Get /Windows/System directory
GetSystemDirectory (WinSysArray, WINBUF);
 
问:又是如何获取Delphi启动界面的信息呢?如果我想修改她的话。
 
接受答案了.
 
后退
顶部