在Delphi中有没有象VB中App.Path的内部方法

Question

ExtractFilePath(Application.ExeName) ;

Answer 1

有。用API。
或者：function getPath: String;
var
   nBufferLength : DWORD;
   lpBuffer      : PChar;
begin
   nBufferLength := MAX_PATH + 1;   result:='';
   GetMem( lpBuffer, nBufferLength );
   try
      if Windows.GetCurrentDirectory( nBufferLength, lpBuffer ) > 0 then
         Result := lpBuffer;
   finally
      FreeMem( lpBuffer );
   end;
end;

Answer 2

ExtractFilePath(ParamStr(0));   //带ExtractFileDir(ParamStr(0));   //不带\

Answer 3

to: angGoGo
  好漂亮的代码！
  你学过C++吗？

Answer 4

ExtractFilePath(ParamStr(0));  
ExtractFilePath(Application.ExeName) ; 
都行