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

var

tmpdir:stringconstmax_path=array

of

char系统路径：

getsystemdirectory(tmpdir,MAX_PATH)

//取得windows目录

c:\windows

GetWindowsDirectory(tmpdir,MAX_PATH)

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

Vfilepath:=application.ExeName

土办法但是很有用，在程序里直接调用

dos

命令：shellexecute("open"....."start

copy

xxx\xxx\*.*

xxx\xxx\*.*")简单吧？其实有些东西用命令行完全可以完成，为什么又何苦让自己写一个

"copy"命令呢？

---