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

var

tmpdir:stringconstmax_path=array

of

char系统路径：

getsystemdirectory(tmpdir,MAX_PATH)

//取得windows目录

c:\windows

GetWindowsDirectory(tmpdir,MAX_PATH)

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

Vfilepath:=application.ExeName

Application.ExeName可以获得当前程序路径var windir:array [0..255] of char

GetWindowsDirectory(windir,255)

Result :=windir获取系统路径

具体设置的步骤如下：

1、打开Delphi 2010；

2、依次选择菜单Project>>Options；

3、在打开的设置中，在Delphi compler选项里的output directory子项，修改成你想输出的路径；

4、设置后，点击OK，即可按设置的路径编译出EXE程序。

5、设置页面附图如下

---