Visual Basic 6.0 - locked files

Каким образом читаются locked файлы? Как я понимаю, с помощью прямого доступа к секторам, но как при этом, например, узнать кластера, в которых расположен файл?


* Origin: 1134 (2:5045/44.13)


H!, _[Albert]_!


Вышли-ка мне на нетмыло. Хотя по-моему полная чушь. В TC можно всё увидеть.

g'bye and g'luck, _[Albert]_!
* Origin: S2k - http://www.revengecrew.org (2:5054/29.33)


Мы где-то виделись, Dmitry?





Для этого свойство Fields должно возвращать объект. Я же тебе уже говорил это!

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Подскажите как сохранить в реестре
данные пользовательского типа сложной структуры (строки, числа, boolean).
Hу и обратно прочитать в пользовательскую структуру.
Я нашел как сохранить в реестре byte массив.
Hо как пользовательский тип загнать в массив байтов и обратно?

Сергей.


* Origin: Demos online service (2:5020/400)


Мы где-то виделись, Terekhin?







Все, до меня доперло. :) К тому, что я писал тебе в мыле, нужно добавить
перекодировку из UTF.

Declare Function MultiByteToWideChar Lib "kernel32" _
(ByVal CodePage As Long, ByVal dwFlags As Long, _
ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Const CP_UTF8 = 65001

Dim sOut As String, sIn As String, OutLength As Long
sIn = "%D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0"
sOut = sIn
OutLength = 0
Dim i&, Char As Byte, CharPercent As Byte
CharPercent = Asc("%")
For i = 1 To Len(sIn)
Char = Asc(Mid$(sIn, i, 1))
If Char = CharPercent Then
Char = CByte("&H" & Mid$(sIn, i + 1, 2))
i = i + 2
End If
OutLength = OutLength + 1
Mid$(sOut, OutLength, 1) = Chr$(Char)
Next i
sOut = Left$(sOut, OutLength)

Dim s As String
s = sOut
s = Left$(s, MultiByteToWideChar(CP_UTF8, 0, sOut, -1, StrPtr(s), LenB(s)))
MsgBox s

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Hi,
Извините, если не в тему.
Под учетной записью Пользователь (для Windows XP) в VB6 недоступны
нестандартные компоненты (Common Dialog, MS Agent и многие др.)
Как на эти компоненты скопом:) оформить администратору необходимые (?)
разрешения для учебного процесса
Возможна exe-пускалка с правами администратора,
но как при этом оградить от программного поползновения в перенастройку
системных и сетевых параметров?


* Origin: NITI (2:5020/400)


H!, _[Dmitriy]_!



Был Prof. Поставил Enterprise Edition. И нифига =( Где копать?

ы?

g'bye and g'luck, _[Dmitriy]_!
* Origin: S2k - http://www.revengecrew.org (2:5054/29.33)


H!, _[All]_!
Как отследить Run-time error '40006'? Желатеьлно пpимеpчик.

g'bye and g'luck, _[All]_!
* Origin: Файловый Обменник - [SVALKA.TK] (2:5054/29.33)




Здравствуйте, All!

Есть ли альтернатива Richtx32.ocx? Этот криво работает на платформе NT. Или,
может быть, имеется более новая его версия, чем 6.00.8804?

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)




Здравствуйте, All!

Где найти SP6 для VB6 (чтобы отдельно от всей Вижуал-Студии)? В напряг
скачивать лишнее.

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)