怎样得到系统的搜索路径或系统路径（system,web,senderto)，和程序运行的路径？？？

Question

getwindowsdirectory(a,sizeof(a));//windows目录
gettemppath(sizeof(a),a);       //系统临时目录
getcurrentdirectory(sizeof(a),a)//当前目录
程序运行路径getdir(0,path);

Answer 1

程序运行路径：
ExtractFilePath(Application.ExeName)

Answer 2

function GetCurrentDir: string;//返回当前目录  DELPHI的函数
ExtractFilePath(paramstr(0));API函数
GetSystemDirectory  //系统目录
GetWindowsDirectory //WINDOWS目录

Answer 3

GetSystemDirectory                      返回WINDOWS系统目录路径