擷取程式所在目錄

擷取程式所在目錄

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ExtractFilePath(ParamStr(0)));          //擷取程式所在目錄
  ShowMessage(ExtractFilePath(Application.ExeName));  //擷取程式所在目錄
  ShowMessage(GetCurrentDir + '\');                   //擷取目前目錄
end;