exe所在路径

最新推荐文章于 2023-12-28 12:27:18 发布

weixin_34232363

最新推荐文章于 2023-12-28 12:27:18 发布

阅读量212

点赞数

原文链接：http://www.cnblogs.com/zzmiot/p/9729053.html

版权

procedure TForm1.btn1Click(Sender: TObject);
begin
  //完整路径  E:\UsrSoft\Desktop\FileNameDemo\Project1.exe
  edt1.Text := paramstr(0);
  edt1.Text := Application.ExeName; //同上

  //文件路径  E:\UsrSoft\Desktop\FileNameDemo\
  edt2.Text := ExtractFilePath(Application.ExeName);

  //文件所在文件夹  E:\UsrSoft\Desktop\FileNameDemo
  edt6.Text := ExtractFileDir(Application.ExeName);

  //文件名.扩展名  Project1.exe
  edt3.Text := ExtractFileName(Application.ExeName);

  //.扩展名  .exe
  edt4.Text := ExtractFileExt(Application.ExeName);

  //去掉扩展名
  edt5.Text := ChangeFileExt(ExtractFileName(Application.ExeName), ''); //  Project1
  edt7.Text := ChangeFileExt(Application.ExeName, ''); //  E:\UsrSoft\Desktop\FileNameDemo\Project1

  //更改扩展名  E:\UsrSoft\Desktop\FileNameDemo\Project1.zip
  edt8.Text := ChangeFileExt(Application.ExeName, '.zip');

  //更改文件名  E:\UsrSoft\Desktop\FileNameDemo\Project1_20150225154703.exe
  edt9.Text := ChangeFileExt(Application.ExeName, '') +
    '_' + FormatDateTime('yyyymmddhhmmss', Now) +
    ExtractFileExt(Application.ExeName);
end;