Delphi获取自身路径

　　procedure TForm1.Button1Click(Sender: TObject); 
　　begin 
　　ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp 
　　ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\ 　　
　　end;