[oz84]

sNc-DAntES, вот в таком виде

Скрытый текст

Код:

#NoTrayIcon

Local $iCount = 0

If FileExists('X:\') Then
    MsgBox(48 + 4096, 'Расшаривание X:\', 'Диск X:\ уже существует!')
Else
    FileChangeDir('C:\Temp\True Crypt')
    RunWait('TrueCrypt.exe /v C:\Temp\123.tc /lx /m ro /p 123 /q', '', @SW_HIDE)
    While 1
        If $iCount >= 10000 Then
            MsgBox(48 + 4096, 'Расшаривание X:\', 'Запуск TrueCrypt почему-то не сработал!')
            Exit
        EndIf
        If FileExists('X:\') Then ExitLoop
        $iCount += 200
        Sleep(200)
    WEnd
    RunWait(@ComSpec & ' /C net share ShareX=X:\', '', @SW_HIDE)
    MsgBox(64 + 4096, 'Расшаривание X:\', 'Готово!')
EndIf

у меня срабатывает на WinXP SP3 и WinXP SP2. Диск расшаривается, изменение файлов разрешено, но т.к. монитрование в режиме только чтения - получаю отлуп.

Если запустить cmd и последовательно вставить

Код:

cd /d "'C:\Program Files\Totalcmd\Utils\-=MySys=-\TrueCrypt"
TrueCrypt.exe /v D:\Lepta.tc /lx /m ro /p пароль /q
net share ShareX=X:\

сработает?