Лингрин :: Резиденция Линды Кайе

понедельник, 23 июля 2007

03:05

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2552-20-16
#original-date: 22.07.2007 Sun
#original-time: 8:16 PM
#original-day: 2552

В интервью Мамору Осии сказал, что в западных анимэшниках больше японского, чем в японцах. Как интересно это пересекается с мыслью Aulith о том, что иностранцы часто знают лучше русский язык, чем россияне...

URL

03:02

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2552-18-41
#original-date: 22.07.2007 Sun
#original-time: 6:41 PM
#original-day: 2552

Несколько наблюдений о способностях ^^

Автомобильное. Никто даже и не догадывается на что способна его (или её) машина, пока за рулём не побывает некто вроде Такуми. Максимальный эффект достигается, если хозяин будет сидеть на пассажирском сиденье и орать "Поворот! Поворот!"

Хентайное. В общем-то почти тоже самое, только немного иначе ^^ Никто не знает на что он (хотя, практически всегда она) не попадёт в плен к врагу (какому-нибудь легиону демонов). Обычно полагается кричать что-то вроде "It doesn't fit!", а потом удивляться, удивляться и удивляться.

#music: You're Under Arrest! OST1\Go Go Patrol

@темы: Наблюдения

URL

02:58

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2552-17-51
#original-date: 22.07.2007 Sun
#original-time: 5:51 PM
#original-day: 2552

Так. Насчёт футанарей я была права - ни какого волшебства и не нужно. Надо бы ту статью процетировать, но она бумажная и в очень тяжёлой книге >_<

URL

02:55

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2552-16-17
#original-date: 22.07.2007 Sun
#original-time: 4:17 PM
#original-day: 2552

О цензуре.

- Ты не думай, мы все, что надо, потом заквадратим.

Если бы я не смотрела первые серии второго сезона, я бы решила, что Саори просто нечем заняться... Так ведь нет же ^^

@темы: You're Under Arrest

URL

02:51

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2552-05-39
#original-date: 22.07.2007 Sun
#original-time: 5:39 AM
#original-day: 2552

Назрело желание использовать один скриншот из La Blue Girl в качестве картинки на футболку. Но. Картинка маленькая и вся в артефактах. Жаль...

А ещё назрело желание самой перевести английские сабы на русский, ибо то что уже есть - просто убого, хуже даже чем после PROMT'а...

@темы: Diary.Client temp tag #1918585408

URL

02:21

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2552-00-06
#original-date: 22.07.2007 Sun
#original-time: 12:06 AM
#original-day: 2552

О пользе чтения MSDN. Давным-давно я написала компонент, который выводил список OLE объектов. Он мне был нужен для Блокнота, чтобы в HTML вставлять объект и не запоминать их GUID'ы. В Windows 98 всё работало без проблем, зато в XP отказалось работать. "Неверный параметр" и всё тут.

читать дальшеОткрыла, посмотрела - всё в порядке. Ладно. В Windows 98 если функция была объявлена во внешней библиотеке типов и содержала параметры типа BSTR, то значение GetLastError() сбрасывалось, и всегда возвращался ноль. Но я же забыла что мне выдаётся не ноль. И я объявила функцию RegQueryInfoKey() (на которой и была ошибка) через Declare. Ошибка ушла, а вместо неё вылезло "Доступ закрыт".

Как так? Я ведь в Object Browser скопировала код функции и везде ByVal поставила (кроме последнего параметра). Долго билась головой, пытаясь понять в чём дело... Ну ни чего в голову не лезет. А потом до меня дошло. Вот объявление функции в MSDN:

[xhtml]

LONG RegQueryInfoKey(
  HKEY hKey,
  LPTSTR lpClass,
  LPDWORD lpcClass,
  LPDWORD lpReserved,
  LPDWORD lpcSubKeys,
  LPDWORD lpcMaxSubKeyLen,
  LPDWORD lpcMaxClassLen,
  LPDWORD lpcValues,
  LPDWORD lpcMaxValueNameLen,
  LPDWORD lpcMaxValueLen,
  LPDWORD lpcbSecurityDesсriptor,
  PFILETIME lpftLastWriteTime
);

[/xhtml]

Большая чать параметров - это указатели. А я проставила везде ByVal!

[xhtml]

Declare Function RegQueryInfoKeyA Lib "AdvAPI32.DLL" _
            (ByVal hKey As API_HANDLE, _
             ByVal lpClass As String, _
             ByVal lpcbClass As Long, _
             ByVal lpReserved As Long, _
             ByVal lpcSubKeys As Long, _
             ByVal lpcbMaxSubKeyLen As Long, _
             ByVal lpcbMaxClassLen As Long, _
             ByVal lpcValues As Long, _
             ByVal lpcbMaxValueNameLen As Long, _
             ByVal lpcbMaxValueLen As Long, _
             ByVal lpcbSecurityDesсriptor As Long, _
             ByRef lpftLastWriteTime As FILETIME) As Long

[/xhtml]

Тоесть у меня вместо указателя на переменную с ноликом шла сама переменная, тоесть ноль. А вот было в библиотеке типов:

[xhtml]

[entry("RegQueryInfoKeyA")]
LONG APIENTRY RegQueryInfoKeyA ([in]      HKEY     hKey,
                                [in]      LPSTR    lpClass,
                                [in, out] DWORD    *lpcbClass,
                                [in, out] DWORD    *lpReserved,
                                [in, out] DWORD    *lpcSubKeys,
                                [in, out] DWORD    *lpcbMaxSubKeyLen,
                                [in, out] DWORD    *lpcbMaxClassLen,
                                [in, out] DWORD    *lpcValues,
                                [in, out] DWORD    *lpcbMaxValueNameLen,
                                [in, out] DWORD    *lpcbMaxValueLen,
                                [in, out] DWORD    *lpcbSecurityDesсriptor,
                                [in, out] FILETIME *lpftLastWriteTime);

[/xhtml]

Тоесть NULL работал, а указатель не работал. Почему? Полезла в MSDN и вычитала что "lpReserved - Reserved; must be NULL". Тоесть Windows 98 плевала на это, а XP смотрела, чтобы был ноль. А так как я передавала указатель на переменную, она и возвращала мне ошибку.

Поправила. Теперь вот всё примерно так:

[xhtml]

[entry("RegQueryInfoKeyA")]
LONG APIENTRY RegQueryInfoKeyA ([in]      HKEY     hKey,
                                [in]      LPSTR    lpClass,
                                [in, out] DWORD    *lpcbClass,
                                [in]      DWORD    lpReserved,
                                [in, out] DWORD    *lpcSubKeys,
                                [in, out] DWORD    *lpcbMaxSubKeyLen,
                                [in, out] DWORD    *lpcbMaxClassLen,
                                [in, out] DWORD    *lpcValues,
                                [in, out] DWORD    *lpcbMaxValueNameLen,
                                [in, out] DWORD    *lpcbMaxValueLen,
                                [in, out] DWORD    *lpcbSecurityDesсriptor,
                                [in, out] FILETIME *lpftLastWriteTime);

[/xhtml]

Тоесть теперь просто нужно при вызове функции поставить ноль, и всё будет работать. Тогда что за закрытие доступа? Оооо ^_^ А вот тут я решила заранее подстраховаться по случаю NT систем и поставить доступ не KEY_ALL_ACCESS и даже не KEY_READ, а только то, что нужно. Так как нужно было перечислить все ключи, я вызвала это так:

[xhtml]


RC = RegOpenKeyExA(HKEY_CLASSES_ROOT, KeyPath, 0, _
                   KEY_ENUMERATE_SUB_KEYS, hKey)

[/xhtml]

Однако RegQueryInfoKey() этого было явно мало. Почитав MSDN я поняла, что требуется ещё и KEY_QUERY_VALUE, который я и добавила. И оно заработало ^_^ А ведь эта ошибка мне долго не давала покоя ^_^

#music: B.B\I love my sex

@темы: Программизм

URL