GetShortPathNameA не работает в WinXP SP3!

[jangle]

Вот такой ахтунг На домашнем XP SP2 функция GetShortPathNameA возвращает короткие имена, приношу исходник на работу, там XP SP3, функция GetShortPathNameA не работает! Одна программа, одна папка, только в SP3 короткое имя не возвращается... У Майкрософта окончательно поехала крыша?

[Qwertiy]

Вот такой ахтунг На домашнем XP SP2 функция GetShortPathNameA возвращает короткие имена, приношу исходник на работу, там XP SP3, функция GetShortPathNameA не работает! Одна программа, одна папка, только в SP3 короткое имя не возвращается... У Майкрософта окончательно поехала крыша?

XP SP3 - работает.

Код: Выделить всё

Public Class Form1

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Integer) As Integer

Private Sub TxtLong_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtLong.TextChanged
  Tmr.Stop()
  TxtShort.Text = ""
  Tmr.Start()
End Sub

Private Sub Tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tmr.Tick
  Tmr.Stop()
  Dim Res As New String(Chr(0), 256), Len As Integer = GetShortPathName(TxtLong.Text, Res, 255)
  TxtShort.Text = Res.Substring(0, Len)
End Sub
End Class

Возможно, дело в другом. Не всегда у файлов/папок есть короткие имена. В реестре есть ключ, отвечающий за создание коротких имён:

Этот параметр останавливает работу части NTFS, отвечающей за создание совместимых с МС-ДОС имен файлов в формате 8.3 . Отключение этого свойства может увеличить эффективность работы в разделах NTFS, с большим количеством файлов имеющих длинные имена. Предупреждение: Некоторые 16 разрядные инсталляционные программы могут иметь проблемы при включении этого параметра, Вы можете или заново включить создание 8.3 имен файлов в течение установки, или использовать имена каталогов не в формате LFN, то есть "c:\progra~1\applic~1".

Расположение: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem - NtfsDisable8dot3NameCreation:REG_DWORD

Рекомендованное значение: 1

[Alec]

Можно и без реестра, с командной строки, узнать:

Код: Выделить всё

fsutil behavior query disable8dot3

установить:

Код: Выделить всё

fsutil behavior set disable8dot3 1|0

и еще, нужно обратить внимание на

fsutil behavior set|query allowextchar

при установке "1" короткие имена с русскими буквами будут выглядеть как обрезанные длинные, иначе - как 16-ричные числа

[Qwertiy]

Насколько я знаю, изменение этого параметра не приводит к созданию отстутствующих коротких имён или удалению старых. Оно действует только на факт создания для новых файлов.

[jangle]

Бред какой-то... У меня это пример выдает длинное имя на рабочем и короткое на домашнем компе.

Код: Выделить всё

#Compile Exe
#Dim All
#Include "win32api.inc"
Function GetShortPath (ByVal lfn As Asciiz*255) As String
    Local  sfn As Asciiz*255
    GetShortPathName (lfn, sfn, 255)
    Function = sfn
End Function
Function PBMain () As Long
  Print GetShortPath("C:\Program Files\Microsoft Visual Studio 9.0\Microsoft Visual Studio 2008 Professional Edition - RUS")
  WaitKey$
End Function

[jangle]

Похоже таже проблема что и у меня: GetShortPathName() is not working as I expect on XP SP3

[Alec]

Так ведь там так и пишут:

If a folder/file already has a short name, for example "Program Files", then it will return the short name for that folder/file. But if a short name doesn't exist, you will instead get the long name for the file as it is the only name that exists for that object. If short names are disabled then there is no short name to get.

[iGrok]

Потому, что в sp3 фича, о которой выше неоднократно писали, по умолчанию включена. Ты это проверил, или нет?