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

[上海老李]

怎么取得当前运行程序的路径？还有我用的是免费域名上传时的等怎么设置？

[ccnh]

ExtractFilePath(Application.ExeName)

[netlib]

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

[cpls]

ExtractFilePath(Application.ExeName);

[toplor]

var
path:string;
begin
path:=extractfilepath(paramstr(0));
end;

path就是你想要的

[Blank_]

netlib(河外孤星) 是错的，

GetDir取的是当前目录，而不是应用程序目录。

[micky_xu]

var
pathname : string;

pathname:=ExtractFilePath(paramstr(0));

[jixinfa]

ExtractFilePath(Application.ExeName)

[上海老李]

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

[上海老李]

SHIFT

[上海老李]

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