路径

1、ExtractFilePath(Application)  后面会带有 "\"

 ExtractFileDir(Application)  后面不带有 "\"

2、

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(ExtractFilePath(Application.ExeName));
  Memo1.Lines.Add(ExtractFileDir(Application.ExeName));
end;

  2.1、输出:

C:\Users\33\Desktop\Delphi_Test\
C:\Users\33\Desktop\Delphi_Test

 

3、

4、

5、

 

posted @ 2017-09-14 10:32  CodeSkill  阅读(162)  评论(0编辑  收藏  举报