频道分类

delphi获取程序所在目录

作者:admin 来源:未知 日期:2010/1/30 14:52:31 人气: 标签:

 delphi获取程序所在目录

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ExtractFilePath(ParamStr(0))); //获取程序所在目录
ShowMessage(ExtractFilePath(Application.ExeName)); //获取程序所在目录
ShowMessage(GetCurrentDir + '\'); //获取当前目录
end