delphi 怎样得到系统的搜索路径或系统路径，和程序运行的路径？？？

tmpdir:stringconstmax_path=array

of

char系统路老运径：

getsystemdirectory(tmpdir,MAX_PATH)

//取得windows目州握录

c:\windows

GetWindowsDirectory(tmpdir,MAX_PATH)

//取得应用程序所在侍迹梁的路径

Vfilepath:=application.ExeName

1.　一般windows平高培台下软件，会在注册表中写相关数据，你可以读取戚源唯软件在注册表中的相关信息来读取。

2.　有的软件会在开始菜单里有项目，那么读取其文件属性，也可以获取其所在路径。

3.　如果都不行，那只能裂激是搜索硬盘，查找并对比软件名称、大小等信息来得到路径。