delphi6获取软件工程名称

可以使用以下代码获取当前 Delphi 6 项目的工程名称：

var
  ProjectFileName: string;
begin
  ProjectFileName := ExtractFileName(ParamStr(0));
  Delete(ProjectFileName, Length(ProjectFileName) - 3, 4); // 去除扩展名.dpr
  ShowMessage(ProjectFileName);
end;

这段代码获取了当前 Delphi 6 项目的完整文件名，并从中提取出了工程名称，然后在消息框中显示出来。