[NikLok]

amel27,

Насколько я понял речь о символических ссылках, »

да совершенно верное понимание проблемы. Просто я этих стандартных API не знаю.

М..маленький прбмерчик бы!

[amel27]

NikLok
ну вроде что-то получилось - для обычного каталога UDF воспроизводит переданный в параметре путь к каталогу и устанавливает @extended=0, если каталог является только ссылкой, то восстанавливается его реальный путь и значение @extended=1 :

Код:

#include <Constants.au3>

Func _DirGetJunctionTarget($sDirPath)
    If StringInStr(FileGetAttrib($sDirPath),"D") =0 Then Return SetError(1, 0, "")  ; Ошибка: параметр не является каталогом
    Local $tRet = DllStructCreate("dword"), $aRet
    Local $tBuf = DllStructCreate("byte["& 1024 *16 &"]")
    Local $REPARSE_MOUNTPOINT_DATA_BUFFER = _
        DllStructCreate("int ReparseTag;dword ReparseDataLength;ushort;ushort ReparseTargetLength;ushort ReparseTargetMaximumLength;ushort;wchar ReparseTarget[260]", _
        DllStructGetPtr($tBuf))
    Local $aFile = DllCall("kernel32.dll", "int", "CreateFile", _
        "str", $sDirPath, "dword", 0, "dword", 0, "ptr", 0, "dword", $OPEN_EXISTING, "dword", 0x2200000, "ptr", 0 )
    If Not(IsArray($aFile)) Then Return SetError(2, 1, "") ; Ошибка вызова DLL
    If $aFile[0]=-1 Then
        $aRet = DllCall("kernel32.dll", "int", "GetLastError")
        Return SetError(3, $aRet[0], "") ; Ошибка доступа к каталогу
    EndIf
    $aRet = DllCall("kernel32.dll", "int", "DeviceIoControl", _
        "hwnd", $aFile[0], "dword", 0x900A8, "ptr", 0, "dword", 0, "ptr", DllStructGetPtr($tBuf), "dword", DllStructGetSize($tBuf), "ptr", DllStructGetPtr($tRet), "ptr", 0)
    DllCall("kernel32.dll", "int", "CloseHandle", "int", $aFile[0])
    If Not(IsArray($aRet)) Then Return SetError(2, 2, "") ; Ошибка вызова DLL
    If $aRet[0]=0 Then
        $aRet = DllCall("kernel32.dll", "int", "GetLastError")
        If $aRet[0] = 0x1126 Then Return SetError(0, 0, $sDirPath)
        Return SetError(4, $aRet[0], "") ; Другие ошибки ввода/вывода
    EndIf
    $sDirPath = StringRegExpReplace(DllStructGetData($REPARSE_MOUNTPOINT_DATA_BUFFER,"ReparseTarget"),"^\\\?\?\\","")
    Return SetError(0, DllStructGetData($REPARSE_MOUNTPOINT_DATA_BUFFER, "ReparseTag")=0xA0000003, $sDirPath)
EndFunc

[NikLok]

amel27, Огроменное спасибо! Все замечательно работает!!!

[amel27]

Огроменное спасибо »

Спасибо сайту FlexHEX за исходники и описание недокументированных структур,
кстати, там есть и бинарники на случай CMD

[NikLok]

amel27, А в GUI можно мигающую строку (элемент ListView) сделать. Или обязательно программно самому мигать!?

[amel27]

NikLok
это не ко мне - в визуальных эффектах я не силен, имхо тут достаточно спецов по ГУИ

Creat0R

можно как то поправить и твои функции, чтобы поддерживали Unicode? »

легко :

- заменить во всех структурах "char" на "wchar";
- в DllCall() жестко задать вызов WideChar-редакции API функции;
- заменить в SendMessage() коды сообщений с ANSI на WideChar.

[Maza Faka]

А в GUI можно мигающую строку (элемент ListView) сделать. Или обязательно программно самому мигать!? »

По моему только программно и можно:

Код:

#include <GuiConstants.au3>

Global $color = 0xFF0000

$hGUI = GUICreate("Test GUI", 300, 200)

$hListView = GUICtrlCreateListView("Item|SubItem", 10, 10, 280, 180)

$LV_Item = GUICtrlCreateListViewItem("Item1|SubItem1", $hListView)
GUICtrlSetColor(-1, $color)

GUISetState()

AdlibEnable("_FlashItem", 500)

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

AdlibDisable()

Func _FlashItem()
    $color = BitNOT($color)
    GUICtrlSetColor($LV_Item, $color)
EndFunc

Можно конечно и с помощью CallBack сделать, но много возни с рисованием текста и его раскрашиванием.

[Creat0R]

amel27,

легко : - заменить во всех структурах "char" на "wchar"; - в DllCall() жестко задать вызов WideChar-редакции API функции; - заменить в SendMessage() коды сообщений с ANSI на WideChar. »

Спасибо! Теперь я буду знать как добавлять поддержку Unicode!

[HORRIBLE]

А как переводить числа из 10-ой в двоичную систему??

[Maza Faka]

А как переводить числа из 10-ой в двоичную систему?? »

Наверное Binary()