怎样找到当前系统windows目录路径或者program files路径

Question

var
    s : string;
begin
    SetLength(s,255);
    GetWindowDirectory(Pchar(s),255);
    SetLength(s,StrLen(Pchar(s)));
end;

Answer 1

var
    s : string;
begin
    SetLength(s,255);
    GetWindowDirectory(Pchar(s),255);
    SetLength(s,StrLen(Pchar(s)));
end;program files路径是固定的

Answer 2

///////Begin Source
uses
  ShlObj;function GetSpecialFolderDir(mFolder: Integer): string;
{ 返回获取系统文件或系统目录 }
(*
    CSIDL_BITBUCKET         *   回收站
    CSIDL_CONTROLS          *   控制面板
    CSIDL_DESKTOP           *   桌面
    CSIDL_DESKTOPDIRECTORY      桌面目录       //如C:\WINDOWS\Desktop
    CSIDL_DRIVES            *   我的电脑
    CSIDL_FONTS                 字体           //如C:\WINDOWS\FONTS
    CSIDL_NETHOOD               网上邻居目录   //如C:\WINDOWS\NetHood
    CSIDL_NETWORK           *   网上邻居
    CSIDL_PERSONAL              我的文档       //如C:\My Documents
    CSIDL_PRINTERS          *   打印机
    CSIDL_PROGRAMS              程序组         //如C:\WINDOWS\Start Menu\Programs
    CSIDL_RECENT                最近文档       //如C:\WINDOWS\Recent
    CSIDL_SENDTO                发送到         //如C:\WINDOWS\SentTo
    CSIDL_STARTMENU             开始菜单       //如C:\WINDOWS\Start Menu
    CSIDL_STARTUP               启动           //如C:\WINDOWS\启动
    CSIDL_TEMPLATES             模版           //如C:\WINDOWS\ShellNew
*)
var
  vItemIDList: PItemIDList;
  vBuffer: array[0..MAX_PATH] of Char;
begin
  SHGetSpecialFolderLocation(0, mFolder, vItemIDList);
  SHGetPathFromIDList(vItemIDList, vBuffer); //转换成文件系统的路径
  Result := vBuffer;
end; { GetSpecialFolderDir }
///////End Source///////Begin Demo
procedure TForm1.FormShow(Sender: TObject);
begin
  Caption := GetSpecialFolderDir(CSIDL_DESKTOP);
end;
///////End Demo

Answer 3

   还可以读registry，在hkey_local_maching/software/microsoft/windows/currentversion下
有很多系统信息。如systemroot，programfilesdir........