怎么取得当前运行程序的路径？

Question

var
 path:string;
begin
 getdir(path,0);
end;

Answer 1

var
  path:string;
begin
  path:=extractfilepath(paramstr(0));
end;path就是你想要的

Answer 2

netlib(河外孤星) 是错的，GetDir取的是当前目录，而不是应用程序目录。

Answer 3

var 
  pathname : string;pathname:=ExtractFilePath(paramstr(0));

Answer 4

我用netlib(河外孤星) 的就可以了谢谢大家请问哪有函数大全下？
还有怎么把一个按钮的状态停在按下的样子，就象模拟键盘中的等？

Answer 5

我用netlib(河外孤星)  的就可以了谢谢大家请问哪有函数大全下？  
还有怎么把一个按钮的状态停在按下的样子，就象模拟键盘中的SHIFT 等？