Delphi实现程序的自动识别路径,自动获取程序自身的路径信息,显示出自己所在的文件夹/目录路径。主要的源代码如上: procedure TForm1.FormShow(Sender: TObject); begin if FileExists(ExtractFilePath(Application.ExeName) 'mrkj.jpg') = True then Image1.Picture.LoadFromFile(extractFilePath(Application.ExeName) 'mrkj.jpg') else Ap
