20分的问题，获得当前应用程序的路径的函数，给分限前两位答对者

Question

application.pathname
extractpathname(application.exename)

Answer 1

上面诸位对说对了，不过其中还有一个小问题：
在W98中，Application.PathName得到的是全部大写的字符串，在Win2000中得到的字符串大小写才与实际相符。

Answer 2

如果是参数就用 ParamStr(0) 可得应用程序的文件名称(含路径)

Answer 3

说错了一点Application.PathName应更为：Application.ExeName

Answer 4

免费：罗嗦一点了。Windows API函数使用技巧
得到WINDOWS的SYSTEM路径: 
    方法:
             var
                  MySysPath : PCHAR ;
             begin
                     GetMem(MySysPath,255);
                     GetSystemDirectory(MySysPath,255);
             end;
    注:MySysPath为SYSTEM路径 
得到程序的路径 
  ExtractFileDir(Application.Exename);
 
察看文件是否存在 
  FileExists(FileName:String):Boolean;
 
改变文件扩展名 
  ChangeFileExt(FileName:String)
 
得到文件的扩展名 
  ExtractFileExt(FileName:String):String;

Answer 5

Delphi的Application.ExeName本来就是用API实现的，你又何必……再说Delphi的实现至少不比你的差……