如何取windows的system路径

[lorentz]

如题！

[hfycl]

GetWindowsDirectory

[axcyy]

var SysDir: array [0..255] of char;
begin
GetSystemDirectory(SysDir,255);
showmessage(sysdir);//显示系统目录
end;

[Sumie@Sam]

var
SysDir: array [0..255] of char;
begin
GetSystemDirectory(SysDir,255);
end;
//SysDir就是当前Windows的System路径

[xzhifei]

var
WinDir:PChar;
begin
GetWindowsDirectory(WinDir,255);
Application.MessageBox(WinDir,Pchar(Caption),0);

[killer2008]

var
SysDir:array[0..255] of char
begin
GetWindowsDirectory(sysDir,255); //sysDir是windows路径
GetSystemDirectory(SysDir,255); //SysDir是Windows/system路径如果是nt，者是winnt/System32

end;

用第2 个函数就可以了，记住在uses中加shellapi

[zzg40280614]

1、GetSystemDirectory='c:\winnt\system'
2、GetwindowsDirectory='c:\winnt'

[sanjianxia]

对呀！采用两年API函数就可以完成了。
首先:在uses中加shellapi
//sysDir是windows路径
GetWindowsDirectory(sysDir,255);
//SysDir是Windows/system路径如果是nt，者是
GetSystemDirectory(SysDir,255); winnt/System32

[ly_liuyang]

function GetSysDir:string;
var dirsys:pchar;
begin
dirsys:=stralloc(1024);
getsystemdirectory(dirsys,1024);
result:=dirsys;
strdispose(dirsys);
end;