请问如何判断当前执行文件所处的路径？

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(application.ExeName );
end;

Answer 1

strExeFilePath:string; 
strExeFilePath:=ExtractFileDir(ParamStr(0));

Answer 2

ExtractFilePath(Application.ExeName) ;

Answer 3

ExtractFilePath(Application.ExeName)
ExtractFiledir(Application.ExeName)

Answer 4

ExtractFilePath(Application.ExeName)  有“\”
ExtractFiledir(Application.ExeName)   没有“\”
以上的够你的用了

Answer 5

但用win  api
DWORD GetModuleFileName(
  HMODULE hModule,    // handle to module to find filename for
  LPTSTR lpFilename,  // pointer to buffer to receive module path
  DWORD nSize         // size of buffer, in characters
);