delphi有关系统路径的问题

Question

我要获取服务器的系统路径:
   如:98,xp,wime是windows\system32
      2000,2003,nt是winnt\system32
      能否用通用的语句,来获取系统路径啊
   如果不能,如何获取服务器的操作系统的类型,看看是什么操作系统,然后在作处理
  新人学delphi,谢谢大哥大姐们赐教

Answer 1

getsystemdirectory 返回windows系统目录路径 getsysteminfo 返回系统信息 getsystemmenu 访问系统菜单

Answer 2

UINT GetSystemDirectory(
    LPTSTR lpBuffer, // 系统目录的地址缓冲区，一个是一个字符数组
    UINT uSize  // 缓冲区的大小，一般是数组的大小 
   );通用

Answer 3

全套的，楼主要的是SysDir，哈哈，抢分了：
Function WinDir: String;
Var
  WinDir: PChar;
Begin
  GetMem(WinDir, 256);
  GetWindowsDirectory(WinDir, 255);
  Result := IncludeTrailingBackslash(String(WinDir));
  FreeMem(WinDir);
End;Function TempDir: String;
Var
  Dir: PChar;
Begin
  GetMem(Dir, 256);
  GetTempPath(255,Dir);
  Result := IncludeTrailingBackslash(String(Dir));
  FreeMem(Dir);
End;Function SysDir: String;
Var
  Dir: PChar;
Begin
  GetMem(Dir, 256);
  GetSystemDirectory(Dir,255);
  Result := IncludeTrailingBackslash(String(Dir));
  FreeMem(Dir);
End;