ShowMessage(ExtractFilePath( ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) ) );
ExcludeTrailingPathDelimiter(const S: string): string;
功能 返回排除最后路径分隔符
说明 最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回
参考 function SysUtils.IsPathDelimiter;function System.Length;function System.SetLength
例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text);