procedure TForm1.FormCreate(Sender: TObject);
begin
lbl1.caption:=ExtractFileName(Application.EXEname); // 获得程序名称
lbl2.caption:=ExtractFilePath(Application.EXEname); // 获得程序路径
end;
delphi 获得程序名称及所在路径
最新推荐文章于 2022-05-07 15:51:56 发布
procedure TForm1.FormCreate(Sender: TObject);
begin
lbl1.caption:=ExtractFileName(Application.EXEname); // 获得程序名称
lbl2.caption:=ExtractFilePath(Application.EXEname); // 获得程序路径
end;