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

var

tmpdir:stringconstmax_path=array

of

char系统路老运径：

getsystemdirectory(tmpdir,MAX_PATH)

//取得windows目州握录

c:\windows

GetWindowsDirectory(tmpdir,MAX_PATH)

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

Vfilepath:=application.ExeName

获取其它软件路径通常的方法就是读取注册表（如果那个软件有写入注册表的话），对于QQ来说也是一样的，你可以在有QQ的机器上搜索一下Tencent或者QQ.exe试试看，比如在偶的机器上就有HKEY_LOCAL_MACHINE\SOFTWARE\改禅Microsoft\Windows\CurrentVersion\SharedDlls下就有一个D:\Tencent\QQ\Bin\QQ.exe（当然其它的有写入QQ安装目录的注册表还有很多）

之后就简单核巧尘了，宽碧直接去读取这个位置，怎么读注册表不用说了吧。

对于那些不写注册表也没有什么文件的软件来说，要定位位置唯一的方法就是全盘搜索它的exe文件名。

---