取得 Program file路径用那个函数呀

Question

取得  Program file路径用那个函数呀

Answer 1

是想让程序自动查到program file的路径,我的程序不是放到Program file路径下的主要是想判断
program file路径是在那个盘下的

Answer 2

给你一个获取WINDOWS目录的方法。（program file可以从中抽取盘符）uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));
或者从注册表中读取，位置：
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot键，取得如：C:\WINDOWS

Answer 3

通过环境变量去判断不是更好吗？var
  Str : String;
  i : Integer;
begin
  // 取得长度
  i := ExpandEnvironmentStrings('%SystemRoot%',nil,0);
  setLength(Str,i);
  // 获取环境变量的值
  ExpandEnvironmentStrings('%SystemRoot%',PChar(Str),i);
  SetLength(Str,i-2);
end;

Answer 4

ExtractFilePath(Application.ExeName)
简单