如何获取本机操作系统的system32目录路
解决方案 »
- 我的delphi2007 安装后,新建ActiveX只有两项,ActiveX Library和Type Library,没有以前的Automation Object等内容的,请问是为什么??
- InputQuery显示中文乱码
- DELPHI调用WORD是用olecontainer好还是用SERVER里的WORD相关控件好?
- 一个数据关联的问题!(急!)
- <由于是新手,所以会有很多问题要请教的>关于数据库的问题!
- 很奇怪的问题,因该比较简单!~
- 如何用程序来控制 报表 的 纵向打印 或者 横向打印?请教。
- 再问:如何实现在程序运行期间创建一个控件,并从.ini文件中配置此控件的类型及其他参数
- 有关快捷方式的创建,来拿分
- 关于系统的问题
- 请给我个思路(关于自解压程序)
- 初学,如何获得一个集合中的元素个数?
DWORD GetEnvironmentVariable(
LPCTSTR lpName, // address of environment variable name
LPTSTR lpBuffer, // address of buffer for variable value
DWORD nSize // size of buffer, in characters
);
传入 system
var sysdir : array[0..256] of char;
begin
windows.GetSystemDirectory(sysdir,256);
self.Caption := sysdir;
end;
GetSystemDirectoryhttp://lysoft.7u7.net
var
iLen : Integer ;
begin
iLen := GetSystemDirectory(@Result[1], 0) ;
SetLength(Result, iLen) ;
GetSystemDirectory(@Result[1], iLen) ;
Result[iLen] := '\' ;
end;
//返回system32或者system路径,带 '\'
var sysdir : array[0..256] of char;
begin
windows.GetSystemDirectory(sysdir,256);
self.Caption := sysdir;
end;
var sysdir : array[0..256] of char;
begin
windows.GetSystemDirectory(sysdir,256);
self.Caption := sysdir;
end;