起動パスを取得する

起動パスは現在実行中のアプリケーションの絶対パスを取得できれば簡単に取得できます。アプリケーションの絶対パスはApplicationオブジェクトの ExeName プロパティで取得することができます。


■ 起動パスを取得する例 
  procedure TForm1.Button1Click(Sender: TObject);
  var
    strFileName : string;
    strFilePath : string;
  begin
    strFileName :=  Application.Exename;
    strFilePath :=  ExtractFilePath(strFileName);    
    Label1.Caption  :=  strFileName;
    Label2.Caption  :=  strFilePath;
  end;

ExtractFilePath関数はパスとファイル名を分割し、パスの部分だけを返します。