+// Return the short form of the path (returns identity on non-Windows platforms)
+wxString wxFileName::GetShortPath() const
+{
+#if defined(__WXMSW__) && defined(__WIN32__)
+ wxString path(GetFullPath());
+ wxString pathOut;
+ DWORD sz = ::GetShortPathName(path, NULL, 0);
+ bool ok = sz != 0;
+ if ( ok )
+ {
+ ok = ::GetShortPathName
+ (
+ path,
+ pathOut.GetWriteBuf(sz),
+ sz
+ ) != 0;
+ pathOut.UngetWriteBuf();
+ }
+ if (ok)
+ return pathOut;
+ else
+ return path;
+#else
+ return GetFullPath();
+#endif
+}
+
+// Return the long form of the path (returns identity on non-Windows platforms)
+wxString wxFileName::GetLongPath() const
+{
+#if defined(__WXMSW__) && defined(__WIN32__)
+ wxString path(GetFullPath());
+ wxString pathOut;
+ bool success = FALSE;
+
+#if wxUSE_DYNLIB_CLASS
+ typedef DWORD (*GET_LONG_PATH_NAME)(const wxChar *, wxChar *, DWORD);
+
+ static bool s_triedToLoad = FALSE;
+ static GET_LONG_PATH_NAME s_pfnGetLongPathName = NULL;
+
+ if ( !s_triedToLoad )
+ {
+ s_triedToLoad = TRUE;
+
+ wxDllType dllKernel = wxDllLoader::LoadLibrary(_T("kernel32"));
+ if ( 0 ) // dllKernel )
+ {
+ // may succeed or fail depending on the Windows version
+#ifdef _UNICODE
+ s_pfnGetLongPathName = (GET_LONG_PATH_NAME) wxDllLoader::GetSymbol(dllKernel, _T("GetLongPathNameW"));
+#else
+ s_pfnGetLongPathName = (GET_LONG_PATH_NAME) wxDllLoader::GetSymbol(dllKernel, _T("GetLongPathNameA"));
+#endif
+
+ wxDllLoader::UnloadLibrary(dllKernel);
+
+ if ( s_pfnGetLongPathName )
+ {
+ DWORD dwSize = (*s_pfnGetLongPathName)(path, NULL, 0);
+ bool ok = dwSize > 0;
+
+ if ( ok )
+ {
+ DWORD sz = (*s_pfnGetLongPathName)(path, NULL, 0);
+ ok = sz != 0;
+ if ( ok )
+ {
+ ok = (*s_pfnGetLongPathName)
+ (
+ path,
+ pathOut.GetWriteBuf(sz),
+ sz
+ ) != 0;
+ pathOut.UngetWriteBuf();
+
+ success = TRUE;
+ }
+ }
+ }
+ }
+ }
+ if (success)
+ return pathOut;
+#endif
+ // wxUSE_DYNLIB_CLASS
+
+ if (!success)
+ {
+ // The OS didn't support GetLongPathName, or some other error.
+ // We need to call FindFirstFile on each component in turn.
+
+ WIN32_FIND_DATA findFileData;
+ HANDLE hFind;
+ pathOut = wxEmptyString;
+
+ wxArrayString dirs = GetDirs();
+ dirs.Add(GetName());
+
+ size_t count = dirs.GetCount();
+ size_t i;
+ wxString tmpPath;
+
+ for ( i = 0; i < count; i++ )
+ {
+ // We're using pathOut to collect the long-name path,
+ // but using a temporary for appending the last path component which may be short-name
+ tmpPath = pathOut + dirs[i];
+
+ if (tmpPath.Last() == wxT(':'))
+ {
+ // Can't pass a drive and root dir to FindFirstFile,
+ // so continue to next dir
+ tmpPath += wxFILE_SEP_PATH;
+ pathOut = tmpPath;
+ continue;
+ }
+
+ hFind = ::FindFirstFile(tmpPath, &findFileData);
+ if (hFind == INVALID_HANDLE_VALUE)
+ {
+ // Error: return immediately with the original path
+ return path;
+ }
+ else
+ {
+ pathOut += findFileData.cFileName;
+ if ( (i < (count-1)) )
+ pathOut += wxFILE_SEP_PATH;
+
+ ::FindClose(hFind);
+ }
+ }
+ }
+ return pathOut;
+#else
+ return GetFullPath();
+#endif
+}
+