zhefran

Список команд Mani Admin Plug-in

2012-02-07T09:31:00.000+02:00

В цьому дописі представлений список адмінстративних допоміжних команд плагіну mani admin plug-in.

Формат допису такий:

команда [параметр] <параметри>
опис

Команди:

ma_say <повідомлення>
Повідомлення від адміна всім гравцям (ви також можете використовувати '@ повідомлення' через чат)

ma_msay <час в секундах> <ціль> <повідомлення>
Виводить повідомлення в стилі amx-меню на екран гравця. Для переносу використовуйте символ \\n
При значені часу 0 гравцю необхідно натиснути клавішу, щоб прибрати повідомлення

ma_psay <ціль> <повідомлення>
Повідомлення від адміна для одного гравця (ви також можете використовувати '@@ <ціль> <повідомлення>' через чат)

ma_chat <повідомлення>
Повідомлення для спілкування між адмінами на сервері. (Ви також можете використовувати '@ <повідомлення>' в командному чаті)

ma_csay <повідомлення>
Повідомлення від адміна всім гравцям в центрі екрану (Ви також можете використовувати '@@@ <повідомлення>' через чат)

ma_session [ціль]
Відображає вашу статистику за сесію, якщо статистика ввімкнена. В якості цілі можна також вказати іншого гравця на сервері

ma_statsme [ціль]
Відображає вашу статистику, якщо статистика ввімкнена. В якості цілі можна також вказати іншого гравця на сервері

ma_rcon <команда rcon>
Виконує rcon команду на сервері (Примітка: якщо rcon команда повертає текст, ви не зможете побачити його в клієнтській консолі)

ma_browse
Відкриває вікно браузеру з вказаною адресою

ma_cexec <ціль> <команда>
Виконує команду у клієнта, який вказаний в якості цілі

ma_slap <ціль> [Пошкодження]
Дає ляща цілі і наносить вказане Пошкодження. По замовчуванню Пошкодження 0

ma_setskin <ціль> <ім'я скіна>
Встановлює гравцю вказаний скін

ma_setcash <ціль> <кількість грошей>
Встановлює цілі вказану кількість грошей

ma_givecash <ціль> <кількість грошей>
Додає цілі вказану кількість грошей

ma_givecashp <ціль> <кількість процентів>
Збільшує кількість грошей у цілі на вказану кількість процентів

ma_takecash <ціль> <кількість грошей>
Зменшує кількість грошей у цілі на вказану кількість

ma_takecashp <ціль> <кількість процентів>
Зменшує кількість грошей у цілі на вказану кількість процентів

ma_sethealth <ціль> <кількість здоров'я>
Встановлює цілі вказану кількість здоров'я

ma_givehealth <ціль> <кількість здоров'я>
Додає цілі вказану кількість здоров'я

ma_givehealthp <ціль> <кількість процентів>
Збільшує здоров'я цілі на вказану кількість процентів

ma_takehealth <ціль> <кількість здоров'я>
Зменшує здоров'я цілі на вказану кількість

ma_takehealthp <ціль> <кількість процентів>
Зменшує здоров'я цілі на вказану кількість процентів

ma_blind <ціль> [рівень засліплення]
Затемнює екран цілі аж до повного засліплення.
0 = нормальний екран, 255 = повне засліплення. Якщо рівень не вказаний, використовується повне засліплення

ma_freeze <ціль> [режим]
Заморожує ціль на місці.
Режими: 0 - розморозити 1 - заморозити. Вказувати режим не обов'язково.

ma_noclip <ціль> [режим]
Дозволяє цілі проходити крізь стіни.
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково.

ma_burn <ціль>
Підпалює ціль

ma_gravity <ціль> <значення>
Встановлює гравітацію для цілі в процентах від значення sv_gravity.
Допустимі значення: від -100 до 100

ma_colour <ціль> <рівень червоного> <рівень зеленого> <рівень синього> <прозорість>
Встановлює колір і прозорість цілі у відповідності з вказаними значеннями.
Допустимі значення від 0 до 255

ma_color <ціль> <рівень червоного> <рівень зеленого> <рівень синього> <прозорість>
Встановлює колір і прозорість цілі в відповідності з вказаними значеннями.
Допустимі значення від 0 до 255

ma_colour_weapon <ціль> <рівень червоного> <рівень зеленого> <рівень синього> <прозорість>
Встановлює колір і прозорість зброї у цілі в відповідності з вказаними значеннями\nДопустимі значення від 0 до 255

ma_color_weapon <ціль> <рівень червоного> <рівень зеленого> <рівень синього> <прозорість>
Встановлює колір і прозорість зброї у цілі в відповідності з вказаними значеннями.
Допустимі значення від 0 до 255

ma_render_mode <ціль> <режим>
Встановлює режим рендерингу цілі. Значення: 0-100

ma_render_fx <ціль> <режим>
Встановлює режим FX рендерингу цілі. Значення: 0-100

ma_give <ціль> <предмет>
Дає цілі вказаний предмет, наприклад weapon_ak47 (Тільки для CSS)

ma_give_ammo <ціль> <слот зброї 0-5> <основний режим вогню 0 або 1> <кількість> [придушити звук, 0 або 1]
Дає цілі патрони для зброї у вказаному слоті (Тільки для CSS)

ma_drug <ціль> [режим]
Набухує гравця.
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково.

ma_decal <ім'я декали>
Наносить постійний декал-спрей на найближчий статичний об'єкт попереду вас\nКорисно для визначення координат під рекламу

ma_gimp <ціль> [режим]
Перетворює гравця в 'юродивого'.
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково.

ma_timebomb <ціль> [режим]
Перетворює ціль в бомбу з таймером.
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково.

ma_freezebomb <ціль> [режим]
Перетворює ціль в заморожуючу бомбу.
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково.

ma_firebomb <ціль> [режим]
Перетворює ціль в запальну бомбу.
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково.

ma_beacon <ціль> [режим]
Встановлює маячок на гравця.
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково

ma_mute <ціль> [режим]
Блокує текстовий і голосовий чат у цілі.
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково

ma_telport <ціль> [координати]
Телепортує ціль в збережену раніше позицію або на вказані координати xyz.
Якщо цілей багато, то вони будуть автоматично встановлені один на одного

ma_position
Виводить в консоль вашу позицію в координатах xyz, положення очей і вектор погляду в координатах xyz

ma_swapteam <ціль>
Переносить ціль в іншу команду. Діє тільки командних в іграх. В CSS при переносі живого гравця він не вмирає і зберігає зброю

ma_spec <ціль>
Переносить ціль в спектатори. Працює тільки в іграх, які підтримають режим спектаторів

ma_balance
Зрівнює кількість гравців в командах. Працює тільки в командних іграх

ma_dropc4
Примушує гравця з бомбою кинути її на землю. Тільки для CSS

ma_saveloc
Зберігає вашу поточну позицію в налаштуваннях карти. Позицію можна використовувати з командою ma_teleport

ma_resetrank <гравець>
Обнуляє статистику індивідуального гравця. В Steam-режимі необхідно вказувати STEAM_ID, в LAN-режимі - ім'я

ma_map <карта>
Змінює поточну карту на сервері. При використанні нестандартних режимів мапциклу ми повинні використовувати цю команду замість 'changelevel'

ma_skipmap
Пропускає поточну карту на сервері і встановлює наступну карту з мапциклу

ma_nextmap
Показує наступну карту в циклі

ma_listmaps
Показує поточний мапцикл серверу і список карт, які присутні на сервері

ma_maplist
Показує вміст файлу maplist.txt

ma_mapcycle
Показує вміст файлу mapcycle.txt

ma_votemaplist
Показує вміст файлу votemaplist.txt

ma_war [режим]
Вмикає war-режим (режим війни).
Режими: 0 - вимкнути, 1 - ввімкнути. Вказувати режим не обов'язково

ma_setnextmap <карта>
Встановлює наступну карту, яка буде гратися на сервері

ma_voterandom [режим затримки] <кількість карт>
Запускає Голосування за випадкову карту з вказаної кількості. Режими затримки визначають час зміни карти: now - негайно, end - в кінці карти, round - в кінці раунду. Режим затримки round працює тільки в CSS.

ma_voteextend
Запускає Голосування за продовження карти

ma_votercon <заголовок> <команда>
Запускає Голосування за виконання RCON команди. Заголовок команди має бути вказаний в лапках. Для RCON команди лапки не потрібні, крім випадків наявності символу ';' в команді.
Приклад: ma_rcon "Зменшимо гравітацію?" sv_gravity 1

ma_vote [режим затримки] <карта 1> <карта 2> <карта 78>
Запускає Голосування за карту або список карт.Режими затримки визначають час зміни карти: now - негайно, end - в кінці карти, round - в кінці раунду. Режим затримки round працює тільки в CSS.
В голусуванні може бути вказано до 78 карт

ma_votequestion <заголовок> [відповідь 1] [відповідь 2] [відповідь 78]
Запускає Голосування за питання. І заголовок, і відповіді повинні бути в лапках.
В голусуванні може бути вказано до 78 відповідей. Якщо ні одної відповіді не вказано, будуть використані Так/Ні

ma_votecancel
Відміняє поточне Голосування

ma_play <номер звуку або частина імені звуку>
Програє звуковий файл, який чують гравці.
Для отримання номерів і імен звуків використовуйте ma_showsounds

ma_showrestrict
Показує список забороненої зброї

ma_restrict <вид зброї> [кількість на команду]
Забороняє/обмежує придбання вказаної виду зброї (тільки для CSS)

ma_knives
Забороняє всю зброю крім ножів. Тільки CSS

ma_pistols
Забороняє всю зброю крім пістолетів. Тільки CSS

ma_shotguns
Забороняє всю зброю крім дробовиків. Тільки CSS

ma_nosnipers
Забороняє всі снайперские гвинтівки, крім scout. Тільки CSS

ma_unrestrict <вид зброї>
Знімає заборону/обмеження з вказаної зброї. Тільки CSS

ma_unrestrictall
Знімає заборону/обмеження зі всієї зброї. Тільки CSS

ma_tklist
Показує поточну статистику ТК і ТА для гравців на карті

ma_kick <ціль>
Викидає ціль з серверу

ma_chattriggers
Виводить в консоль поточний фільтр чат-команд

ma_spray
Перевіряє наявність спреїв поблизу від вас і виводить меню з інформацією про найближчий

ma_slay <ціль>
Вбиває ціль

ma_teamindex <ціль>
Показує внутрішній числовий номер вказаної команди (корисно при створені нових полів в gametype.txt)

ma_reloadclients
Перезавантажує дані про адмінстрування клієнтів

ma_ban <час в хвилинах> <ціль>
Забанити ціль по STEAMID на вказаний час. Якщо час = 0, бан вічний

ma_banip <час в хвилинах> <ціль>
Забанити ціль по IP адресі на вказаний час. Якщо час = 0, бан вічний

ma_unban
Зняти бан з гравця чи IP адреси

ma_favourites
Показує поточний список вибраного

ma_rates
Показує інформацію про мережеві налаштування гравців

ma_users
Показує інформацію про гравця

ma_showsounds
Показує список звуків, доступних для програвання

ma_config [частина змінної]
Показує поточні значення змінних серверу. При вказанні частини змінної, показує всі значення змінних Mani, які містять цю частину.
Приклад: 'ma_config vote' покаже всі змінні Mani, які містять слово 'vote' і їх значення

ma_timeleft
Показує час, кількість раундів або кількість фрагів, яка залишилась до зміни карти

ma_aban_name [час в хвилинах] <ім'я>
Додає ім'я в список, який буде використовуватися для автоматичного бану гравців з цим іменем

ma_aban_pname [час в хвилинах] <частина імені>
Додає частину імені в список, який буде використовуватися для автоматичного бану гравців з цією частиною в імені

ma_akick_name <ім'я>
Додає ім'я в список, який буде використовуватися для автоматичного кіку гравців з цим іменем

ma_akick_pname <частина імені>
Додає частину імені в список, який буде використовуватися для автоматичного кіку гравців з цією частиною в імені

ma_akick_steam
Додає Steam ID в список, який буде використовуватися для автоматичного кіку гравців з цим Steam ID

ma_akick_ip
Додає IP адресу в список, який буде використовуватися для автоматичного кіку гравців з цією IP адресою

ma_unauto_name <ім'я>
Видаляє ім'я з списку авто кіку/бана

ma_unauto_pname <частина імені>
Видаляє частину имені з списку авто кіку/бана

ma_unauto_steam
Видаляє Steam ID з списку авто кіку/бана

ma_unauto_ip
Видаляє IP адресу з списку авто кіку/бана

ma_ashow_name
Показує поточний список авто кіку/бана імен

ma_ashow_pname
Показує поточний список авто кіку/бана частин імен

ma_ashow_steam
Показує поточний список авто кіку/бана Steam ID

ma_ashow_ip
Показує поточний список авто кіку/бана IP адрес

ma_ranks [початковий номер] [кінечний номер]
Показує список гравців в статистиці, включаючи тих, хто ще не має Позиції.
Список відсортований по Steam ID або імені гравця в залежності від режиму ведення статистики

ma_plranks [початковий номер] [кінечний номер]
Показує список гравців, які мають позицію в статистиці

ma_help [частина тексту]
Якщо частина тексту не вказана, виводить повний список команд плагіну, якщо вказана частина тексту, виводить всі команди, які містять цей текст.
Якщо тільки одне співпадіння знайдене, виводить повну інформацію по команді\nякщо 20 або менше співпадінь знайдено, виводить список параметрів поряд з командою

ma_client <суб-команда> <параметр 1> <параметр 2>
Примітка: якщо параметр має пробіли, він має бути в лапках.
може бути ідентифікатором гравця на сервері, іменем клієнта, Steam ID, Nickname, IP Address.
При додаванні прапорців, ви можете використовувати "+#" щоб додати всі прапорці, а "-#" для видалення всіх прапорців

Суб-команди :
Status (Показує імена всіх клієнтів на сервері)
Status <ім'я> (Показує подробиці вказаного клієнта)
aflag (Показує всі адмінські прапорці)
aflag <прапорець> (Показує опис адмінського прапорця)
iflag (Показує всі прапорці імунітету)
iflag <прапорець> (Показує опис прапорця імунітету)
Додати:
AddClient <ім'я> (повинно бути унікальним на сервері)
AddSteam "Steam ID"
AddNick "Нік гравця" (Використовується при доступі по ніку і паролю)
AddIP "IP адреса"
Встановити:
SetName "Нове ім'я" (Перейменовує клієнта, ім'я повинно бути унікальним!)
SetPassword "Пароль" (Пароль, який буде використаний з ніком. НЕ ПАРОЛЬ ДО АКАУНТУ STEAM!)
SetEmail "Email адреса"
SetNotes "Нотатки про клієнта"
Додати:
AddIGroup "Група імунітету"
AddAGroup "Адмін група"
Встановити:
SetILevel <id рівня імунітету>
SetALevel <id адмін рівня>
SetIFlag "прапорці імунітету" (+ щоб додати, - щоб прибрати)
SetAFlag "Адмін прапорці" (+ щоб додати, - щоб прибрати)
Видалити:
RemoveClient <Ім'я> (Видалити клієнта з серверу)
RemoveSteam "Steam ID"
RemoveIP "IP адреса"
RemoveNick "Нік гравця"
RemoveIGroup "Група імунітету"
RemoveAGroup "Адмін група"

Суб-команди для бази даних :
Upload (закачує вміст clients.txt в базу)
Download (викачує дані про клієнтів з бази і перезаписує clients.txt)

ma_clientgroup <суб-команда> <параметр 1> <параметр 2>
Примітка: якщо параметр має пробіли, він має бути в лапках.
При додаванні прапорців, ви можете використовувати "+#" щоб додати всі прапорці, а "-#" для видалення всіх прапорців

Суб-команди :
Status agroup (Показує всі адмін групи і їх прапорці)
Status igroup (Показує всі групи імунітету і їх прапорці)
Status alevel (Показує всі адмін рівні і їх прапорці)
Status ilevel (Показує всі рівні імунітету і їх прапорці)
Додати:
addagroup "ім'я адмін групи" "Прапорці" (+ щоб додати, - щоб прибрати) (Додати/Оновити адмін групу)
addigroup "ім'я групи імунітету" "Прапорці" (+ щоб додати, - щоб прибрати) (Додати/Оновити групу імунітету)
addalevel "Прапорці" (+ щоб додати, - щоб прибрати) (Додати/оновити адмін-рівень)
addilevel "Прапорці" (+ щоб додати, - щоб прибрати) (Додати/оновити рівень імунітету)
Видалити:
removeagroup "ім'я адмін групи"
removeigroup "ім'я групи імунітету"
removealevel <id адмін групи (має бути числом)>
removeilevel <id рівня імунітету (має бути числом)>

ma_restrictall
Заборонити всю зброю. Тільки для CSS

ma_maphistory
Показує останні 20 зіграних підряд карт

ma_restrictrato <зброя> <різниця перемог перед забороною>
Встановлює максимальную різницю перемог так, що заборона вступає в силу коли команда веде в рахунку на цю різницю.\nТільки CSS

ma_admins [ціль]
Показує адмінів з прапорцем 'admin' на сервері

ma_pmess <ціль>
Встановлює режим приватних повідомлень з цілями, кожне повідомлення через @@ буде доставлено цілі без необхідності вводу імені

ma_exit
Вихід з режиму приватних повідомлень

ma_swapteam_d <ціль>
Переміщає ціль в іншу команду в кінці раунду. Тільки для CSS.

ma_observe <ціль>
Дозволяє адміну автоматично перемикатися на ціль після смерті або в режимі спектатора

ma_endobserve
Відключає автоматичне слідкування за ціллю

Встановлення Mаni Admin Plug-in для Counter Strike:Source на ігровий хостинг

2012-02-02T13:27:00.000+02:00

В цьому дописі буде розписаний процес встановлення плагіну Mаni Admin Plug-in, який використовується для адміністрування серверу гри Сounter Strike Source, на ігровий хостинг з панеллю керування GameCP. При встановленні буде використовуватись FTP клієнт FileZilla.

1. Для початку скачуємо архів з плагіном, а для цього потрібно перейти на офіційний сайт.

Рис. 1. Сторінка завантаження плагіну.

2. Далі потрібно розархівувати завантажений плагін до папки на вашому локальному комп'ютері. Я, наприклад, ці файли розміщую в спеціально створену папку css_addons/mani_admin_plug_in.

Рис. 2. Розархівовування

В результаті в папці з розархівованими файлами повинні знаходитись такі папки:

addons;
cfg;
materials;
sound.

Рис. 3. Вміст папки mani_admin_plug-in

3. Тепер потрібно завантажити і встановити FileZilla (детальна інструкція по встановленню).

4. Так як ми будемо встановлювати плагін використовуючи протокол FTP, ми повинні знати параметри підключення до хостингу ігрового серверу. Для підключення до серверу ви маєте знати такі параметри:

Хост - IP адреса або DNS ім'я вашого ігрового серверу;
Логін - ім'я користувача для підключення, в GameCP такий самий як і логін для входу в систему;
Пароль - пароль користувача для підключення, ситуація така ж як і з логіном;
Порт - порт, по якому буде підключатись FTP клієнт, зазвичай його номер 21, важливо не плутати з портом самої гри.

З цих параметрів формується FTP посилання, яке має вигляд:

ftp://Логін:Пароль@Хост:Порт.

В GameCP ви можете побачити ваше FTP посилання на сторінці редагування властивостей гри.

Рис. 4. FTP посилання в GameCP

Скопіюйте це посилання в буфер обміну.

5. Запустіть тепер програму FileZilla, якщо вона у вас до цього часу не була запущена, і вставте або впишіть посилання в поле Хост і натисніть на кнопку Швидке з'єднання.

Рис. 5. Під'єднання по FTP до серверу

В результаті ви підключитесь до вашого серверу. Тепер вам необхідно завантажити сам плагін на сервер. Для цього вам потрібно в лівій частині перейти до папки, яка містить каталоги і файли плагіну, а в правій до папки гри /serviceID/css/cstrike, де ID є ідентифікаційним номером вашої конкретної гри, для якої ви хочете встановити плагін (на Рис. 7. поле ID в таблиці з вашими іграми). Потім в лівій частині потрібно вииділити весь вміст папки mani_admin_plug-in, натиснути праву кнопку миші і з контекстного меню, що з'явиться обрати пункт Завантажити на сервер.

Рис. 6. Завантаження на сервер

6. Плагін вже встановлений на сервер. Тепер треба зробити так , щоб плагін підвантажувався при запуску серверу.

Для початку необхідно зайти до панелі керування хостингом. В списку ваших ігор обрати ту, для якої ви встановлюєте плагін і з випадаючого списку обрати пункт Редактировть.

Рис.7. Обираємо потрібну гру

Далі необхідно перейти до консолі гри. Для цього потрібно в верхньому меню другого рівня натиснути на пункт Консоль. В результаті перед вами з'явиться сторінка з відображенням консолі сервера.

Рис. 8. Сторінка консолі сервера

А далі існує два варіанти: або завантажувати плагін як плагін серверу Valve (VSP - Valve Server Plugin ), або через спеціальний плагін - Metamod:Source.

а. Розглянемо спочатку перший варіант.

В поле для вводу команд потрібно ввести таку команду:

Якщо сервер на Linux:

plugin_load ../cstrike/addons/mani_admin_plugin_i486

Якщо сервер на Windows:

plugin_load ../cstrike/addons/mani_admin_plugin

І натиснути на кнопку Вперед! або на клавішу Enter.
В результаті в папці addons буде створений файл mani_admin_plugin.vdf такого змісту:

"Plugin"
{
 "file" "../cstrike/addons/mani_admin_plugin_i486"
}

Ви можете створити такий файл самі і помістити його до папки addons на сервері. Якщо у вас Windows хостинг, то в кінці 3 стрічки необхідно прибрати _i486.
Після цього вам потрібно обов'язково перезавантажити сервер (На Рис. 4. ви можете побачити кнопку Перезагрузить).
Для перевірки працездатності потрібно знов повернутися до консолі і ввести в поле вводу таку команду:

plugin_print

У відповідь у консолі має бути відповідь такого типу:

plugin_print
Loaded plugins:
---------------------
0:"Mani Admin Plugin 2011 V1.2.22.8 VSP Orange, www.mani-admin-plugin.com"

Якщо ви досягли такого результату - вітаю ви успішно встановили плагін першим способом.
б. Для реалізації другого варіанту потрібно встановити Metamod:Source (детальна інструкція по встановленню), якщо його до цього у вас не було.
В поле для вводу команд потрібно ввести таку команду незалежно від вашої версії серверу:

meta load addons/mani_admin_plugin/bin/mani_admin_plugin_mm

Як і при першому варіанті потрібно натиснути на кнопку Вперед! або на клавішу Enter. В результаті в папці addons/metamod створиться файл mani_admin_plugin.vdf.
Зміст цього файлу для серверу на Linux такий<:

"Metamod Plugin"
{
 "file" "../cstrike/addons/mani_admin_plugin/bin/mani_admin_plugin_mm_i486"
}

Як і при першому варіанті ви можете створити такий файл самі і помістити його до папки addons/metamod на сервері. Якщо у вас Windows хостинг, то в кінці 3 стрічки необхідно прибрати _i486.
Для перевірки результату виконаних вами дій потрібно в поле для команд ввести meta list і натиснути на кнопку Вперед!. В результаті в консолі ви маєте побачити повідомлення типу:

meta list
Listing 1 plugin:
[01] Mani Admin Plugin (1.2.22.8 SMM) by Mani

Якщо ви таке побачили, то ви успішно встановили плагін 2 способом.

Встановлення Metamod:Source для Counter Strike:Source на ігровий хостинг

2012-01-19T15:40:00.000+02:00

В даному пості я опишу процес встановлення Metamod:Source на ігровий хостинг з панеллю керування GameCP. Встановлення буде проводитися з використанням FTP клієнта FileZilla.

А. Підготовча робота

Для початку потрібно завантажити необхідні програми і компоненти. Список буде таким:

FileZilla;
Metamod:Source (версія буде залежати від серверної частини вашого сервера);
Згенерувати metamod.vdf для вашої гри тут і завантажити його (можна обійтися без даного файлу, якщо редагувати файл gameinfo.txt).

Тепер вам потрібно встановити FileZilla (детальна інструкція по встановленню), у випадку якщо у вас його раніше не було. Потім потрібно розархівувати файли архіву з metemod:source і перенести до папки addons файл metamod.vdf.
Структура каталогу повинна мати такий вигляд:

Рис 1. Структура каталогу addons.

Файл metamod.vdf містить в собі таку інформацію:

"Plugin"
{
 "file" "../cstrike/addons/metamod/bin/server"
}

Ви можете створити у себе його локально і внести в нього інформацію зазначену вище.

Б. Встановленя плагіну

Зайдіть в свою панель керування ігровим хостингом. Сторінка вводу логіну і паролю може відрізнятися, в залежності від власника хостингу.

Рис. 2. Сторінка вводу логіну і паролю для входу в панель керування ігровим хостингом.

Після того як ви увійдете до панелі керування, ви маєте в списку своїх ігор натиснути на поле з іменем гри. В даному випадку це Counter-Strike:Source, з випадаючого списку обрати пункт "Редактировать" і натиснути на нього.

Рис. 3. Вибір гри і перехід до її редагування

В результаті ви перейдете на сторінку редагування властивостей вашої гри. У цьому вікні ви повинні знайти поле "FTP ссылка" і скопіювати посилання, яке іде після двокрапки.

Рис 4. Сторінка редагування властивостей гри.

Після того як ви скопіювали посилання вам потрібно запустити програму FileZilla і вставити скопійовану інформацію в поле "Хост:", далі натиснути на кнопку "Швидке з'єднання".

Рис. 5. Під'єднання до FTP сереверу вашої гри.

В лівій частині відображається список файлів і каталогів, які знаходяться на вашому локальному комп'ютері, а справа на віддаленному. Так в лівій частині ви повинні перейти до каталогу, який містить вашу розархівовану папку addons, а вправій частині до каталогу /serviceID/css/cstrike, де ID є ідентифікаційним номером вашої конкретної гри (на Рис. 3 поле ID в таблиці з вашими іграми). Тепер вам необхідно в лівіій частині вибрати папку addons натиснути на ній правою кнопкою миші і вибрати пункт меню "Завантажити на сервер".

Рис. 6. Завантаження на сервер.

Перейдіть назад до сторінки редагування гри панелі керування грою і перезавантажте сервер (кнопка "Перезагрузить" під FTP посиланням).

Тепер розглянемо варіант, коли у вас не має файлу metamod.vdf.
В такому випадку вам потрібно редагувати певним чином файл gameinfo.txt (такий варіант використовувати не бажано, адже при оновлені серверу цей файл перезаписується). Для цього вам потрібно перейти до пункту меню "Менеджер файлов". Зробити це можна декількома способами. Уявимо, що ви знаходитесь на сторінці редагування властивостей гри. У верхньому меню вам потрібно натиснути на пункт меню з назвою "Менеджер файлов". В результаті ви перейдете на відповідну сторінку. В цьому менеджері ви повинні перейти до каталогу cstrike (ServiceID/css/cstrike). На різних хостингах корневий каталог може бути різним.

Рис. 7. Менеджер файлів на хостингу

Вам головне перейти до каталогу cstrike, знайти в ньому файл gameinfo.txt і натиснути на "Изменить".
Знайти в цьому файлі такі рядки:

SearchPaths
        {
            Game                |gameinfo_path|.
            Game                cstrike
            Game                |all_source_engine_paths|hl2
        }

Зазвичай вони знаходяться в кінці файлу. І після перших фігурних дужок вставити рядок:

GameBin    |gameinfo_path|addons/metamod/bin

В результаті у вас файл має набути такого вигляду, як на Рис. 8.

Рис. 8. Вміст файлу gameinfo.txt після редагування.

Також це можна зробити і за допомогою FileZilla. Для цього потрібно скачати цей файл на локальний комп'ютер, провести в ньому відповідні зміни і знову закачати на сервер.

Тепер вам потрібно перезавантажити сервер. Якщо сервер запустився, то ви безпомилково редагували файл, але це ще не означає, що metamod встановився. Для визначення цього потрібно перейти до пункту В.

В. Перевірка працездатності

На цій же сторінці (сторінка редагування властивостей гри) у меню верхнього рівня знайдіть пункт "Консоль" і натисніть на нього. В результаті перед вами з'явиться сторінка з відображенням консолі сервера. Тут потрібно ввести команду meta version і натистнути на кнопку "Вперед!".

Рис. 9. Сторінка консолі сервева.

Через деякий час сервер вам відповість повідомленням. Якщо це повідомлення типу:

meta version
Metamod:Source version 1.8.7
Build ID: 772:99b7a0a11fec
Loaded As: Valve Server Plugin
Compiled on: Jun 23 2011
Plugin interface version: 15:14
SourceHook version: 5:5
http://www.metamodsource.net/

Вітаю, ви успішно встановили MetaMod:Source на ваш сервер.

P. S. На мою думку принцип процесу встановлення на різний хостинг буде однаковим, особливо використовуючи FTP.

Інструкція по встановленню FTP клієнта FileZilla на комп'ютер з операційною системою сімейства Windows

2012-01-19T15:38:00.000+02:00

Детальна інструкція по встановленню FTP клієнта FileZIlla. Опис проводиться на основі операційної системи Windows 7 Profffesional 32-bit.

Перш за все потрібно завантажити FileZilla. Для цьго преходим на сайт і завантажуємо інсталятор.

Рис. 1. Сторінка завантаження FileZilla

Тепер потрібно запустити інсталятор і встановити FTP клієнта. Для початку потрібно погодитися з ліцензійною угодою, натиснувши на кнопку "I Agree".

Рис. 2. Погоджуємся з ліцензією

Далі потрібно обрати користувачів, які матимуть змогу користуватися програмою. Є два варіанти встановлення:

Верхній - для будь-якого користувача, який використовує цей комп'ютер;
Нижній - тільки для мене.

Після вибору натискайте на кнопку "Next >"

Рис. 3. Вибір користувачів для використання програми

Наступним кроком буде вибір компонентів програми, які потрібно встановити. На вибір представленні такі компоненти:

FileZilla Client - обов'язкова частина програми, тому встановлюється в обов'язковому порядку;
Icon sets - додатковий набір іконок;
Language files - файли локалізації на різні мови;
Shell extension - розширення для drag&drop (перетягнути і відпустити) - необхідне для перетягування файлів з FileZilla до провідника.
Desktop icon - відповідає за створення іконки на робочому столі.

Рис. 4. Вибір компонентів програми

Далі обираєм розташування, куди наша програма буде встановлена. Для зміни можна в текстове поле вписати нове місце знаходження або обрати інше, натиснувши на кнопку "Browse...".

Рис. 5. Вибір місця розташування програми

На наступному кроці ви повинні обрати, яку назву буде мати папка з программою в меню "Пуск". Після вибору параметрів потрібно натиснути на кнопку "Install".

Рис. 6. Вибір назви папки в меню "Пуск"

В наступному вікні буде відображатися процес інсталяції

Рис. 7. Прогрес інсталяції

Після цього з'явиться вікно завершення встановлення програми.

Рис. 8. Завершення встановлення.

Після того як ви натиснете на кнопку "Finish" процес встановлення програми можна вважати завершеним. Якщо ви залишили галку в останньому вікні, то перед вами з'явиться головне вікно програми.

Рис. 9. Головне вікно програми FileZilla

Якщо ви перед собою побачили це вікно, то вітаю ви успішно встановили програму.

Ввімкнення telnet-клієнта в Windows 7 i Windows Server 2008

2011-06-09T12:50:00.001+03:00

Виявляється, що telnet-клієнт по замовчуванню неактивний ні в Windows 7, нi в Windows Server 2008. Виклик команди telnet в командному рядку призведе до помилки.

В цьому дописі описано як ввімкнути клієнт, щоб з ним можна було б працювати.
Опис проводиться на операційних системах російської локалізації.

Опис поділений на дві частини. В першій буде описаний процес для Windows 7, в другій - для Windows Server 2008. Деякі дії для цих систем будуть збігатися.

Windows 7

1. Перейдіть в меню "Пуск"-> "Панель управления"-> "Программы и компоненты" або ж натисніть одночасно клавіші Win+R (це відповідає "Пуск"->"Выполнить") і введіть в поле для вводу appwiz.cpl і натисніть кнопку "ОК".

2. В результаті ви потрапите до вікна видалення програм. В ньому в його верхній лівій частині потрібно натиснути на "Включение или отключение компонентов Windows".

3. Перед вами з'явиться вікно, в якому вам потрібно відзначити галкою компонент "Клиент Telnet" і натиснути "ОК".

Як наслідок з'явиться вікно в якому буде відображатися інформація про те, що Windows виконує зміну функцій.

Все - telnet у вас працює.

Windows Server 2008

1. Можна виконати перші два пункти з опису для Windows 7 або ж піти іншим шляхом. Натисніть одночасно клавіші Win+R (це відповідає "Пуск"->"Выполнить") і введіть в поле для вводу ServerManager.msc ("Диспетчер сервера") і натисніть кнопку "ОК".

2. Яким би ви шляхом не пішли, ви все одно потрапите до вікна "Диспетчера сервера". В лівій верхній частині вікна потрібно натиснути на пункт "Компоненты".

Потім в правій частині цього ж вікна натисніть на "Добавить компоненты".

3. В вікні " Мастера добавления компонентов" виберіть зі списку і відмітьте галкою "Клиент Telnet".

Натисніть "Далее".

4. В результаті ви перейдете до наступного кроку майстра додавання компонентів, а саме підтвердження.

Натискайте на кнопку "Установить".

5. Наступні два кроки майстра відображають процес встановлення і результати.

Тепер telnet у вас працює в обох ОС.

Cпосіб для Windows 7 актуальний і для ОС Vista.

Розборка ноутбука Dell Vostro 1000/Dell Latitude 131L

2011-05-28T13:37:00.001+03:00

Розбирав цей ноутбук в зв'язку з "пилізмом" - жахливий перегрів і як наслідок лептоп не хотів запускатися. Процес поділений на серію послідовних кроків. На офіційному сайті підтримки написано, що процес ідентичний і для Dell Latitude 131L, тому будемо вірити цьому твердженню.

Крок 1. Перед початком

Для початку потрібно впевнитися, що у вас є в наявності все необхідне:

тоненька хрестоподібна викрутка;
тоненька плоска викрутка;
місце для розміщення компонентів, які будуть від'єднані;
м'яка шмата для ощищення від пилюки.

Якщо у вас є хоча б перші дві речі з переліку, то можна приступати до процесу.
Перш за все необхідно вимкнути ноутбук, відключити всі перефирійні пристрої і кабелі. Потім закривайте кришку ноутбука, перевертайте жертву екраном до низу і виймайте батарею (Рис. 1).

Рис. 1
(1 - засувка яка утримує батарею, 2 - батарея)

Меншою стрілкою вказаний напрямок в якому потрібно потягнути засувку (вона на пружині, яка повертає її в початковий стан), за місце на яку вказує велика стрілка потрібно потягнути вверх, щоб вийняти батарею.

Крок 2. Виймаємо привід оптичних дисків

Якщо Крок 1. виконаний, то продовжуємо далі:
1. На задній частині ноутбука потрібно викрутити один М2.5х8-mm гвинтик, біля якого намальований замок.
2. Плоску викрутку вставляйте в паз на металевій скобі, до якої був прикручений гвинт і виштовхуйте оптичний привід з його гнізда.

Рис. 2
(1 - оптичний привід, 2 - гніздо гвинта, 3 - паз в металевій скобі)

3. Як видно на Рис. 2 остаточно привід можна витягнути вже руками.

Тепер як ви розумієте процес заміни приводу в цих ноутбуках не потребує надзусиль і це дуже легко можна зробити самому без переплат за роботу майстра.

Крок 3. Знімаємо верхню кришку над клавіатурою

1. Переверніть ноутбук в нормальне положення, відкрийте дисплей і нахиліть його на 180 градусів, тобто так, щоб він був знаходився паралельно робочій поверхні.
2. Тепер потрібно взяти плоску викрутку, вставити її в маленький паз в правій частині цієї кришки і, використовуючи корпус ноутбука як плече, припідняти цю кришку.
3. Піднімаючи кишку з права на ліво, акуратно її зніміть (див. Рис. 3).

Рис. 3
(1 - кришка, 2 - плоска викрутка чи пластмасова паличка)

Крок 4. Знімаємо клавіатуру

Вважаємо, що панель ви вже зняли і можна приступати до від'єднання клавіатури.
1. Відкрутіть два гвинти М2.5х5-mm в верхній частині клавіатури, раніше їх захищала панель.
2. Припідніміть зі сторони екрану клавіатуру і акуратно її зсувайте в напрямку екрану, щоб звільнити доступ до конектору клавіатури.
3. Від'єднайте конектор клавіатури від гнізда. Для цього потрібно підняти вверх защіпку, яка тримає кабель і вийняти сам шлейф.
4. Тепер можете відкладати клавіатуру в сторону.

Рис. 4

(1 - М2.5х5-mm гвинти, 2- шлейф клавіатури, 3 - гніздо клавіатурного конектора, 4 - заcувки, 5 - клавіатура)

Крок 5. Від'єднуєм екран

Що ж, тепер приступаємо до від'єднання екрану:
1. Перш за все потрібно закрити ноутбук і перевернути його.
2. Тепер викрутіть два гвинти М2.5х8-mm, що утримують дисплей зі споду ноутбука.

Рис. 5
(1. 2 гвинти М2.5х8-mm, 2. низ ноутбука )

3. Переверніть ноутбук у нормальне положення і поверніть його задом до себе, потім викрутіть два гвинти М2.5х8-mm з задньої частини (у мене вони були сховані за заглушками).

Рис 6.

(1. 2 гвинти М2.5х8-mm, 2. задня частина ноутбука)

4. Тепер потрібно повернути ноутбук передом до себе і відкрити дисплей ноутбуку.
5. Викрутіть два гвинти М2.5х5-mm, які утримують шарнір дисплею.
6. Від'єднайте кабелі антени від бездротової карти (права верхня частина ноутбуку) і вийміть кабель з каналу антенного кабелю.
7. Відкрутіть гвинт, який утримує кабель заземлення кабелю дисплею і вийміть його з канавки.
8. Потягніть за синю полоску кабелю дисплею вверх і від'єднайте його від системної плати.

Рис. 7

(1. 2 гвинти М2.5х5-mm, 2. кабель дисплею, 3. полоска для витягування кабелю, 4. кабель заземлення і утримуючий гвинт, 5. кабелі антени, 6. канал антенного кабелю, 7. перемикач режиму очікування, 8. конектор для підключення кабелю дисплею до системної плати, 9. канал кабелю дисплею)

9. Потягніть дисплей вверх і відставте його в сторону.

Крок 6. Добираємось до материнської плати

1. Переверніть ноутбук низом вверх і викрутіть 11 гвинтів М2.5х8-mm зі споду ноутбука.

Рис. 8

(1. гвинти М2.5х8-mm)

2. Переверніть ноутбук в нормальне положення і викрутіть утримуючий гвинт з підставки для рук (цей гвинт не виймається, а просто відкручується до максимуму).
3. Від'єднайте конектор тачпаду і крнектор перемикача режиму очікування від системної плати.

Рис. 9

(1. утримуючий гвинт, 2. конектор перемикача режиму очікування, 3. конектор тачпаду)

4. Від'єднайте підставку від рук від основи ноутбуку і відставте і сторону.

Рис. 10

Послідовно виконавши всі дії з мого опису ви зможете очистити свого ноутбука від пилюки чи замінити несправні елементи.

Виконання кроків в зворотньому порядку призведе до зборки ноутбуку (надіюсь без лишніх деталей :)).

Всю роботу потрібно виконувати дуже обережно і акуратно. Якщо ви не впевнені в своїх можливостях, то краще довірте цю справу професіоналам.

Видалення (відключення) Run-Time Debugger

2010-04-28T19:14:00.003+03:00

Після встановлення якого-небудь середовища програмування хоч Delphi 7, хоч VS, при помилках виконання яких-небудь програми вилазить набридливе вікно з пропозицією зробити трасування програми за допомогою його Run-Time Debugger, навіть при серфінгу по інтернету при помилках виконання скриптів, це особливо актуально для Internet Explorer.
В цьому пості я опишу як видалити цей набридливий Run-Time Debugger.

Що саме найгірше, ці повідомлення виникають і після видалення цього середовища програмування.
Виявляється, що налаштування, які пов'язані з поточним відладчиком, зберігаються в реєстрі. За це відповідає гілка HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug.

Для відключення цього потрібно встановити значення Auto в 0, або взагалі видалити цей ключ повністю. Але перед цим я раджу експортувати цей ключ (права кнопка миші на ключі і вибрати пункт "Экспортировать", вибрати куди і зберегти). Особисто в мене все пройшло безболісно.

В браузері можна спробувати в "Сервис"->"Свойства обозревателя" на вкладці "Допорлнительно" в вузлі "Обзор" поставити галки навпроти "Отключить отладку сценариев(Internet Explorer)" і "Отключить отладку сценариев(другие)".

Функція WinAPI CreateFile в Delphi

2010-04-21T15:26:00.004+03:00

Функція створює вказівник на новий пристрій типу:
•    файл;
•    канал;
•    mailslot (поштовий канал);
•    комунікаційний ресурс (наприклад COM порт);
•    дискові пристрої (тільки для Windows NT);
•    консолі;
•    директорії (відкриває їх).

Знаходиться в: Win16, Win32, Win NT
Для Delphi в модулі windows.

Об'явлення:

  function CreateFile(
   lpFileName: PChar;   // Вказівник на ім'я файлу (пристрою)
   dwDesiredAccess,     //Параметри доступу
   dwShareMode: DWORD;  //Доступ, який розділяється
   lpSecurityAttributes: PSecurityAttributes; //безпека
   dwCreationDisposition,       // Опис
   dwFlagsAndAttributes: DWORD; // Атрибути файлу
   hTemplateFile: THandle       // Файл шаблона
   ): THandle; stdcall;

Детальний розгляд параметрів:

• lpFileName - Вказівник на строку, яка містить ім'я створюваного файлу чи пристрою.
• dwDesiredAccess - тип доступу. Може приймати значення (можна використовувати одне чи зразу декілька):
    1) 0 - запит. Функція не дасть реального доступу до файлу, а виконається як тест можливості створення чи відкриття файлу (пристрою);
    2) GENERIC_READ - отримати доступ на читання;
    3) GENERIC_WRITE - отримати доступ на запис.
• dwShareMode - флаги, які вказують на те, як створюваний об'єкт повинен розділяти доступ між процесами. Це значить, як буде ділится доступ до файлу з іншими програмами якщо вони теж спробують відкрити цей файл. Параметр може приймати значення (можна використовувати одне чи зразу декілька значень):
    1) FILE_SHARE_DELETE - іншим процесам дозволяється доступ до файлу тільки якщо потрібен доступ на видалення (підтримується тільки в Windows NT).
    2) FILE_SHARE_READ - іншим процесам дозволяється тільки читати файл.
    3) FILE_SHARE_WRITE - іншим процесам дозволяється тільки писати в файл.
• lpSecurityAttributes - вказівник на структуру типу SECURITY_ATTRIBUTES. Цей параметр використовується тільки в Windows NT.
• dwCreationDistribution - описує, що робити з файлом якщо він уже існиує чи його ще немає. Параметр може приймати тільки одне з наступних значень (комбінація не допускається):
    1) CREATE_NEW - створює новий файл. Якщо він вже існує, то виникне помилка;
    2) CREATE_ALWAYS - завжди створює новий файл. Якщо файл існує, то він буде перезаписаний (обнулений);
    3) OPEN_EXISTING - відкрити існуючий файл (пристрій). Якщо файлу немає, то виникне помилка;
    4) OPEN_ALWAYS - відкриває файл в будь-якому випадку. Якщо файлу немає, то він буде створений так само як і при CREATE_NEW.
    5) TRUNCATE_EXISTING - відкрити файл і обрізати його розмір до нуля. Параметр dwDesiredAccess має мати значення GENERIC_WRITE. Якщо файлу немає, то виникне помилка.
• dwFlagsAndAttributes - атрибути файлу, який створюється. Параметр може приймати комбінацію з значень:
    1) FILE_ATTRIBUTE_NORMAL:
        а) FILE_ATTRIBUTE_ARCHIVE - архівний
        б) FILE_ATTRIBUTE_COMPRESSED - стиснутий
        в) FILE_ATTRIBUTE_HIDDEN - прихований
        г) FILE_ATTRIBUTE_NORMAL - нормальний
        д) FILE_ATTRIBUTE_OFFLINE - дані файлу недоступні
        е) FILE_ATTRIBUTE_READONLY - тільки для читання
        є) FILE_ATTRIBUTE_SYSTEM - системний
        ж) FILE_ATTRIBUTE_TEMPORARY - тимчасовий
    2) FILE_FLAG_WRITE_THROUGH - можливість запису в файл через кеш;
    3) FILE_FLAG_NO_BUFFERING - не можна використовувати буфер чи кеш;
    4) FILE_FLAG_RANDOM_ACCESS - випадковий доступ. Використовується для оптимізації кешу;
    5) FILE_FLAG_SEQUENTIAL_SCAN - доступ до файлу може бути послідовним від початку до кінця;
    6) FILE_FLAG_DELETE_ON_CLOSE - операційна система має видалити файл, коли всі вказівник на файл будуть закриті;
    7) FILE_FLAG_BACKUP_SEMANTICS - Backup файл, тобто файл резервного копіювання;
    8) FILE_FLAG_POSIX_SEMANTICS - доступ виконується в POSIX стандарті;
    9) SECURITY_SQOS_PRESENT:
        а) SECURITY_ANONYMOUS - анонімний доступ
        б) SECURITY_IDENTIFICATION - ідентифікаційний доступ
        в) SECURITY_IMPERSONATION - персональний доступ
        г) SECURITY_DELEGATION - колективний доступ
        д) SECURITY_CONTEXT_TRACKING - динамічний режим доступу
        е) SECURITY_EFFECTIVE_ONLY - обмеження груп і привілеїв
• hTemplateFile - файл шаблону.

Якщо функція виконалась без проблем, то вона повертає вказівник на відкритий (створений) пристрій. Через цей вказівник отримується доступ до файлу.
Якщо виникла помилка, то функція поверне INVALID_HANDLE_VALUE.

Створення образу системи Windows 7 Professional

2010-04-21T11:45:00.004+03:00

Інструкція по створенню образу системи Windows 7 Professional стандартними засобами операційної системи і диску відновлення системи.
Опис проводиться на основі операційної системи Windows 7 Professional російської локалізації.

Опис поділений на кроки.

Крок 1.

Потрібно зайти в "Панель управления" і перейти в до пункту "Архивация и восстановление".

Крок 2.

В вікні вказаного вище пункту меню в лівому кутку потрібно натиснути на "Создание образа системы".

Крок 3.

В результаті перед вами з'явиться вікно, яке відповідає за сам процес створення образу. Для початку потрібно вибрати місце куди зберігати образ системи і натиснути на кнопку "Далее".

Крок 4.

Наступною дією потрібно вибрати розділи системи образ яких, ви хочете створити і настинути "Далее".

Крок 5.

Наступне вікно - це підтвердження параметрів архівації.

Якщо все правильно, то натискайте на кнопку "Архивировать". В результаті перед вами з'явиться вікно з відображенням прогресбару архівації.

Крок 6.

Після завершення процесу архівації перед звами з'явиться діалогове вікно з запитом на створення диску відновлення системи. Також можна створити диск натиснувши на "Создать диск восстановления системы" з скріну відображеного на кроці 2.
Як результат перед вами з'явться таке вікно:

Вставляйте чистий диск в привід оптичних дисків і чекайте доки диск запишеться.

Результатом виконання всіх кроків буде наявність у вас свореного образу системи і диску її відновлення.

P. S. При відновлені системи у мене форматнуло всі логічні диски, при цьому образ я записував на зовнішній жорсткий диск. Образ я відновлював на іншій машині з точно такими ж характеристиками.

Enum to String, String To Enum Delphi

2010-04-10T13:11:00.039+03:00

В цьому пості представлений код для перетворення значення з Enum to String і навпаки - переведення String в елемент з Enum в Delphi.

На формі у мене один Edit і дві кнопки - Button1 i Button2.
Для перетворення string в тип Enum я використовую функцію GetEnumValue задеклароване в юніті TypInfo, а для перетворення типу Enum в string - функцію GetEnumName задекларовану в тому самому юніті.

Код з коментарями:

unit convert;

interface

{Для того щоб зробити перетворення потрібно в uses включити TypInfo}

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TypInfo;

{Описання enumeration}

type
  TCharacter=(utf8,ascii,cp1251,cp1250);

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
{Опис функції для перетворення з Enum to String, вхідний параметр типу TСharacter, результат - string}
    function ToString (character: TСharacter):string;
{Опис функції для перетворення з String To Enum, вхідний параметр типу string, результат - TСharacter}
    function ToEnum (tocharacter: string):TCharacter;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{Реалізація функції ToString}

function TForm1.ToString (character: TCharacter):string;
begin
  result:=GetEnumName(TypeInfo(TCharacter),integer(character));
end;

{Реалізація функції ToEnum}

function TForm1.ToEnum (tocharacter: string):TCharacter;
var
  i:integer;
begin
//перевіряємо чи введеное значення входить в Enum
  if GetEnumValue(TypeInfo(TCharacter),tocharacter)>=0 then
//якщо так, то в результат записуємо вже перетворене значення
  result:= TCharacter(GetEnumValue(TypeInfo(TCharacter),tocharacter))
  else
//в іншому випадку просимо ввести коректне значення
    Showmessage ('Input right character name');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
// виклик функції і присвоєння значення
  Edit1.Text:=ToString(utf8);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  charac:TCharacter;
begin
// виклик функції і присвоєння значення
 charac:=ToEnum(Edit1.Text);
end;

end.

Транслітерація українського алфавіту латиницею

2010-03-31T13:38:00.039+03:00

Коли отримував права, стикнувся з неприємною ситуйовиною - транслітерація мого імені в правах і в закордонному паспорті відрізнялася. І я вирішив взнати в якому з цих документів помилка. Після пошуків відповіді на своє запитання виявилося, що в закордонному паспорті.
В пості приводиться таблиця транслітерації українського алфавіту латиницею.

Таблиця транслітерації з прикладами

Український алфавіт		Латиниця		Приклади написання
велика	маленька	велика	маленька	українською мовою	латиницею
А	а	A	а	Алушта	Alushta
Б	б	B	b	Борщагівка	Borshchahivka
В	в	V	v	Вінниця	Vinnytsia
Г	г	H	h	Гадяч	Hadiach
Ґ	ґ	G	g	Ґалаґан	Galagan
Д	д	D	d	Донецьк	Donetsk
Е	е	E	e	Есмань	Esman
Є	є	Ye*	ie**	Єнакієве	Yenakiieve
Ж	ж	Zh	zh	Житомир	Zhytomyr
З	з	Z	z	Закарпаття	Zakarpattia
И	и	Y	y	Медвин	Medvyn
І	і	I	i	Іванків	Ivankiv
Ї	ї	Yi*	i**	Їжакевич	Yizhakevych
Й	й	Y*	i**	Йосипівка	Yosypivka
К	к	K	k	Київ	Kyiv
Л	л	L	l	Лебедин	Lebedyn
М	м	M	m	Миколаїв	Mykolaiv
Н	н	N	n	Ніжин	Nizhyn
О	о	O	o	Одеса	Odesa
П	п	P	p	Полтава	Poltava
Р	р	R	r	Решетилівка	Reshetylivka
С	с	S	s	Суми	Sumy
Т	т	T	t	Тернопіль	Ternopil
У	у	U	u	Ужгород	Uzhhorod
Ф	ф	F	f	Фастів	Fastiv
Х	х	Kh	kh	Харків	Kharkiv
Ц	ц	Ts	ts	Біла Церква	Bila Tserkva
Ч	ч	Ch	ch	Чернівці	Chernivtsi
Ш	ш	Sh	sh	Шостка	Shostka
Щ	щ	Shch	shch	Щербухи	Shcherbukhy
Ю	ю	Yu*	iu**	Юрій	Yurii
Я	я	Ya*	ia**	Яготин	Yahotyn

Примітка:
1.   Буквосполучення "зг" відтворюється латиницею як "zgh" (наприклад, Згорани - Zghorany, Розгон - Rozghon) на відміну від "zh" - відповідника української літери "ж".

2.   М'який знак і апостроф латиницею не відтворюються.

3.   Транслітерація прізвищ та імен осіб і географічних назв здійснюється шляхом відтворення кожної літери латиницею.

*   На початку слова.

** В інших позиціях.

Таблиця приведена згідно Постанови Кабінету міністрів України від 27 січня 2010 р. N 55.

Діючих офіційних українських транслітів є принаймні десятеро:
    * національний паспортний (2010)
    * національний телеграмний (2005)
    * національний географічний (1996) — застосовується в ООН для географічних назв
    * англійський BGN/PCGN — застосовується в ООН
    * науковий традиційний
    * науковий ISO/R 9:1968
    * міжнародний ISO 9:1995
    * міжнародний ГОСТ 7.79 Б (букви г та ґ в ньому таки розрізняються)
    * бібліографічний ALA-LC
    * універсальний від ТКПН КНУ ім. Т. Шевченка (1994) — колись ледь не став держстандартом.

P.S. На сайті http://translit.kh.ua є трансліт онлайн з різними стандартами української транслітерації.

Kerio Winroute Firewall і VPN клієнт

2010-03-30T10:13:00.002+03:00

В цьому пості я опишу, як організувати доступ за допомогою VPN до локальної мережі, яка знаходиться за Kerio Winroute Firewall.
Опис проводиться на прикладі Kerio Winroute Firewall 6.2.3 build 2027 англійської локалізації і Kerio VPN Client 6.6.0 build 5729 російської в локальній мережі без домену. У сервера статичний IP наданий провайдером.

Опис ділиться на дві частини. Перша - налаштування Kerio Winroute Firewall, друга - встановлення і налаштування клієнта.

Налаштування KWF

Для забезпечення доступу до локальної мережі через VPN з'єднання потрібно здійчнити наступні операції:

1) Перш за все потрібно активізувати VPN Server на вкладці "Interfaces", якщо цього не було здійснено.

Для цього потрібно перейти до вищевказаного пункту меню і двічі клацнути на назву інтерфейсу, який забезпечує VPN з'єднання або натиснути на кнопку "Edit".

У вікні, що з'явиться потрібно поставити галку навпроти напису "Enable VPN Server", прописати діпазон IP адрес і маску, які буде використовувати VPN з'єднання. Якщо у Вас виникне бажання змінити порт по якому буде відбуватися підключення, то потрібно перейти на вкладку "Advanced" і вписати порт на якому буде відбуватися проcлуховування в полі "Listen on port" і натиснути на кнопку "ОК". для збереження змін потрібно натиснути на кнопку "Aplly".

2) Далі потрібно перейти до "Traffic Policy" і створити правило, згідно якого буде проводитися доступ. Правило має наступний вигляд

Щоб створити правило потрібно натиснути на кнопку "Add". Потім задаєте правилу ім'я

В полі "Source" вибираєте інтернет-інтерфейс

В полі "Destination" вибираєте "Firewall host"

Полю "Service" задаєте сервіс "Kerio VPN", якщо в інтерфейсі VPN Server не змінювали порт прослуховування. В іншому випадку прописуєте свій порт з вкладки "Advanced".

В "Аction" задаєте "Permit"

І для застосування правила натискаєте на кнопку "Apply".

3) Наступним кроком буде надання прав користувачу підключатись за допомогою VPN до сервера з KWF. Для цього потрібно перейти до підпункту "Users" пункту меню "Users and Groups".
Потрібно вибрати користувача, якому хочемо надати доступ і натиснути на кнопку "Edit".

Відмітити "This user has an individual configuration", якщо до цього це не було зроблено. Після виконання цієї дії стане доступною вкладка "Rights". На неї і потрібно перейти.

На цій вкладці потрібно поставити галку навпроти напису "User can connect using VPN" і натиснути на кнопку "ОК". При бажанні на вкладці "IP Adresses" можна задати статичний IP для клієнта. Накінець потрібно натиснути на кнопку "Apply" для збереження змін.
Можна піти і альтернативним шляхом, створивши групу в підпункті "Groups" пункту меню "Users and Groups" і надати таку можливість зразу декільком користувачам.

Якщо всі пункти були виконані вдало, то можна переходити до встановлення і налаштування клієнтської машини.

Встановлення і налаштування VPN клієнта

Для початку потрібно викачати VPN клієнта тут, якщо у Вас його не має.
Процес встановлення я, мабуть, пропущу, адже там не має нічого складного.
Після того як буде встановлено клієнта, потрібно його запустити - він повинен висіти в треї, також його можна знайти в встановлених програмах. Після запуску Ви побачите таке вікно

Потрібно заповнити поля "Сервер" - сюди потрібно вписати статичну ІР адресу вашого сервера; "Имя пользователя" - ім'я користувача з бази користувачів Kerio; "Пароль" - пароль відповідного користувача. І на завершення натиснути на кнопку "Установить соединение".
Якщо все до цього було зроблено правильно, то в правому нижньому кутку ви побачите повідомлення типу

Відключення перевірки оновлень операційної системи в програмах ESET NOD32 Antivirus і Smart Security версії 4.х

2010-03-25T12:19:00.004+02:00

В цих програмах з'явилася функція перевірки оновлень Windows. Багато хто (більше 90%) не користуюється можливістю оновлення ОС, а просто ставить систему, відключає не потрібні служби, оновлення, оповіщувач, і ОС не набридає нам постійними нагадуваннями про те, що система давно не оновлювалася і тому подібне. Якщо система не оновлюється, то програма ESET змінює колір ока в треї на помаранчевий і в самій програмі пише, що "Максимальная защита невозможна", і пропонує в ній же перейти на сайт Microsoft, для встановлення цих самих оновлень.
В своєму пості я опишу як це відключити. Опис проводиться на основі програми російської локалізації.

Для початку потрібно перейти в розширений режим, якщо до цього це не було зроблено. Як це зробити було описано в пості Імпорт налаштувань ESET NOD32 Antivirus і Smart Security версій 3.х/4.х в кроці 1.
Далі потрібно перейти в пункт "Настройка" і настиснути на "Ввод всего дерева росширенных параметров...".

Потім в дереві зліва шукайте пункт "Служебные программы" і в ньому підпункт "Системные обновления". Після того, як ви клацнете на "Системные обновления", в правій частині вікна ви побачите випадаючий список. В цьому списку потрібно вибрати пункт "Без обновлений".

Після виконання описаних вище дій програма більше не буде перевіряти чи оновлювалась ваша ОС сімейства Windows.

P.S. Око зразу може й не стати зеленим. Щов воно позеленіло потрібно раз клацнути на посилання, яке пропонується в пункті "Состояние защиты" головного вікна програми.

Імпорт налаштувань ESET NOD32 Antivirus і Smart Security версій 3.х/4.х

2010-03-23T14:11:00.002+02:00

Для імпорту налаштувань вказаних в назві поста продуктів треба виконати декілька нескладних кроків.
Опис на ці самі кроки поділений і проводиться на основі продуктів російської локалізації.

Крок 1.

Відкрити головне вікно інстальованого вами продукту.
Включити розширений режим, якщо він до цього не був ввімкнутий. Для цього потрібно в низу вікна у лівому кутку натиснути на кнопку "Изменить..." або перейти в лівій чатині вікна до пункту "Настройка" і натиснути на "Вкл. расширенный режим".

У вас з'явиться діалогове вікно з запитом переходу в розширений режим - потрібно натиснути на кнопку "Да".

Крок 2.

При розширеному режимі в розділі "Настройка" з'явиться пункт "Параметры импорта и экспорта...". Натискайте на цей пункт.

Крок 3.

В вікні, що з'явиться потрібно зробити відмітку навпроти надпису "Импортировать параметры" і натиснути на кнопку "...".

Після нитискання на кнопку "..." у вас з'явиться вікно для вибору файла ваших налаштувань формату xml. Вибираєте потрібний вам файл і натискаєте на кнопку "Открыть".

Крок 4.

В результаті ви знов побачите вікно з Кроку 3 із заповненим полем "Имя файла". Залишається натиснути на кнопку "ОК" і закрити головне вікно продукту ESET.

Якщо ви все виконали правильно і ваш файл налаштувань коректний, то ваша програма буде працювати з новими налаштуваннями.

P.S. Операція експорту майже аналогічна.

Kerio і доступ до Web сервера, розташованого в локальній мережі з зовні

2010-03-22T15:45:00.003+02:00

Для того, щоб отримати доступ з інтернету до веб сервера розташованого в локальній мережі, потрібно створити відповідне правило в Traffic Policy KWF. Принцип правила аналогічний як і для торрент-клієнта.
Опис проводиться на прикладі Kerio Winroute Firewall 6.2.3 build 2027.

Створення правила.

1) Потрібно зайти в Traffic Policy (правила фаєрвола) і додати нове правило.

2) Задати ім'я для правила

3) В опції "Source" вибрати інтернет інтерфейс.

4) Для графи "Destination" вибрати "Firewall host"

5) Для графи "Service" вибрати сервіс "HTTP".

6) В "Action" вказати "Permit"

7) Якщо веб сервер на машині з KWF і використовує стандартний 80-й порт, то залишилося тільки застосувати правило, натиснувши на кнопку "Apply".
Якщо ж він на іншій машині в локальній мережі або на машині з KWF, але використовує порт відмінний від 80, то потрібно ще заповнити опцію "Translation". В "Source NAT" потрібно вибрати "No translation", а в "Destination NАT" вибрати "Translate to", вписавши IP компа на якому стоїть веб сервер. Поставити галку біля "Translate port to" і вписати порт, на якому сидить веб сервер.

Я б радив зробити маппінг порту в будь-якому випадку!

Acronis True Image Home 2010 і проблеми з локальною мережею

2010-03-18T16:01:00.002+02:00

При використанні програми на Windows Xp при наявності локальної мережі, може виникати ситуація, коли інші ПК не зможуть мати доступ до розшарених папок вашої машини. Буде вилітати помилка по типу, що серверу не вистачає пам'яті для обробки команди.

Це баг Акроніса (вони це визнають) і підтверджений Майкрософтом.
Скрін помилки:

Для вирішення цієї проблеми потрібно, далі цитата

"Пожалуйста, сделайте нижеследующее, чтоб решить проблему:
* зайдите в меню Пуск Х Выполнить;
* выполните команду regedit;
* найдите ключ
* HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters; увеличьте значение IPRStackSize до 18 или создайте его, если такого значения не было".

Для себе я створив reg файл для вирішення цієї проблеми.

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters]
"IRPStackSize"=dword:00000018

Я роблю цей параметр рівним 24( в 16-ричній системі 24=00000018, 18=00000012, 16=00000010 і т.д.).
Скопіюйте в блокнот цей код і збережіть з розширенням .reg. Для внесення змін в реєстр двічі клацніть по файлу і погодьтеся з внесенням змін.
Надіюсь для когось цей пост буде корисним.

Заміна клавіатури в ноутбуках Asus

2010-03-18T15:27:00.002+02:00

Опис процесу заміни буде проводитися на прикладі ноутбуку Asus серії A8J. Процес ідентичний і для ноутбуків серії A6R.

Заміна клавіатури в ноутбуках Asus не дуже складне завдання, якщо знати що робити. Для початку цієї операції необхідно впевнитися, що є все причандалля для її виконання.
Мені, наприклад знадобилися такі речі:
-    плоска викрутка, на кшталт тієї, що йшла в комплекті старих радянських швейних машин або індикаторна викрутка;
-    тоненька хрестоподібна викрутка;
-    нова клавіатура;
-    шмата, на всяк випадок, щоб не покоцати екран ноутбуку.
Опис поділений на кроки для поступового виконання нашої операції.

Крок 1.

Перш за все необхідно знайти гвинтики на зворотній стороні ноутбуку з маркуванням "K". Ці гвинтики тримають саму клавіатуру (я, Олень, спочатку відкрутив всі, а потім вже вичитав, що можна обмежитися декількома). Для цього бажано закрити ноутбук і перевернути його.

Якщо викрутка не магнітна, то для того, щоб дістати гвинтики необхідно перевернути ноутбук назад і постукати легенько зверху. Під місце, де знаходяться гвинтики бажано підставити руку, щоб потім не ловити і не шукати їх.

Крок 2.

Далі потрібно відкрити кришку ноутбука, при цьому бажано відхилити екран на максимальний кут і накрити його якоюсь тряпкою, щоб при операціях з викруткою не пошкодити екран.

В верхній частині клавіатури є маленькі скоби, які виступають із-за металевої основи ноутбуку. Як видно з малюнку треба взяти в руки плоску викрутку і легенько натиснути на скобу в напрямку екрану і одночасно іншою рукою припідняти частину клавіатури, яка звільнена. При натисканні на скобу великих зусиль прикладати необхідно, бо можна цю скобу відламати і вона при цьому потрапить всередину ноутбуку, а це аж ніяк нам не потрібно. Коли від всіх скоб клавіатура буде звільнена, можна приступати до третього кроку.

Крок 3.

Верхню частину клавіатури потрібно припідняти вверх і виконати поступальний рух в напрямку екрану, щоб звільнити її нижню частину. Робити це треба акуратно і без зайвих зусиль, адже крім защіпок там ще є шлейф по якому бігає інформація щодо натиснених клавіш.

Крок 4.

Далі необхідно від’єднати шлейф. Для цього потрібно відщіпнути защіпки з обох кінців механізму, що тримають шлейф. Візміть плоску викрутку і натисніть на білі кінці механізму. Коли попередні дії виконані можна відправити клавіатуру на звалище або ж якщо ви розлили на клавіатуру «всякіє вкусності» спробувати її почистити. Якщо на металевій основі, на якій лежить клавіатура є якийсь бруд, то його треба прибрати.

Крок 5.

Тепер можна приступати до встановлення нової клавіатури. Переконайтеся що клавіатура точно підходить для вашого ноутбуку.

Вставте шлейф на його рідне місце, зафіксуйте його. І виконайте дії в зворотньому порядку з попередніх для закріплення вашої нової клавіатури.
Після встановлення обов’язково перевірте всі клавіші на предмет працездатності. Якщо ж щось не працює, то як кажуть «наша пєсня хороша – начінай сначала».

P.S. Коли перший раз знімав клавіатуру з Asus-a мені дуже допомогла стаття з laptoplifestyle, звідти ж і фотки.

Правило в Kerio для торрент-клієнта.

2010-03-15T13:42:00.004+02:00

Для того, щоб коректно працював торрент-клієнт, необхідно створити відповідне правило в Traffic Policy KWF.
Опис проводиться на прикладі Kerio Winroute Firewall 6.2.3 build 2027 і Bittorrent 6.4.

Спочатку треба подивитися, який порт використовує торрент-клієнт для прослуховування з інтернету. Для цього треба зайти в "Опції"->"Налаштування" (рус. - "Настройка"->"Конфигурация",англ. - "Options"->"Preferences") або одночасно натиснути Ctrl+P, в дереві зліва вибрати пункт "З'єднання" ("Соединение","Connection") і подивитися значення порту для вхідних з'єднань.

Далі потрібно зайти в адміністративну консоль KWF і якщо є бажання, то створити сервіс для порту прослуховування нашого торрент-клієнта, якщо ні, то перейти до створення потрібного нам правила.

Створення сервісу для торрент-клієнта.

Потрібно зайти в адміністративну консоль KWF і в розділі "configurations"->"definitions"->"services" створюємо новий сервіс. Називаємо його, як нам треба, вибираємо протокол UDP (можна й TCP/UDP).В графі "source port" ставимо "any", а в "destination port" ставимо наш порт торрента (у мене 26943). Далі можна додати кометар для краси і зберігаємо наш новий тип сервісу.

Створення правила.

1) Потрібно зайти в Traffic Policy (правила фаєрвола) і додати нове правило.

2) Задати ім'я для правила.

3) В опції "Source" вибрати інтернет інтерфейс.

4) Для графи "Destination" вибрати "Firewall host".

5) Для графи "Service" вибрати ім'я сервісу, який ви створили для торрента або вписати порт.

6) В "Action" вказати "Permit".

7) Якщо торрент-клієнт на машині з KWF, то залишилося тільки застосувати правило, натиснувши на кнопку "Apply". Якщо ж він на іншій машині в локальній мережі, то потрібно ще заповнити опцію "Translation". В "Source NAT" потрібно вибрати "No translation", а в "Destination NAT" вибрати "Translate to", вписавши IP комп'ютера на якому стоїть торрент-клієнт. Поставити галку біля "Translate port to" і вписати порт, який використовується в торрент-клієнті.

Деберц, коротко про інші різновиди

2010-03-12T15:03:00.003+02:00

Деберц має декілька різновидів, але майже завжди за основу беруться московські правила. В принципі, граючи, можна використовувати симбіоз правил з різних різновидів.
Як завжди використовується колода з 32 карт.

Деберц по харківським правилам.

Гра проходить аналогічно деберцу по московським правилам, за виключенням того, що дві комбінації однакової вартості, які починаються з рівних по номіналу карт, одна з яких козирна, рівноправні. Таким чином, в цьому випадку проходить комбінація у опонента гравця, який здавав. При цьому, наприклад, якщо гравець, який здавав, має терц від козирного туза, та на об'яву свого опонента про наявність у нього терца має спитати про вишку терца, оскільки, якщо об'явлений терц буде мати вишку від туза, то терц гравця, який роздавав не пройде.

Деберц з обязами.

Гра проходить по правилам звичайного деберца, але перероздачі через пасування не буває - гравець, який роздавав, не має право пасувати при другом колі торгів і повинен вибрати козирну масть і грати в неї, крім масті першого козиря.

Деберц з невиходом.

Гра проходить по стандартним правилам, але з одним доповненням. Якщо гравець, який програв не зміг набрати 251 очка, тобто більше половини очок необхідних для виграшу, кажуть, що він не зміг "вийти з половини". В такому випадку його програш подвоюється.

Деберц до 1001 очка.

Грають по звичайним правилам, але для виграшу необхідно набрати не 501 очко, а 1001.

Деберц без перебивання.

Гра проходить по звичайним правилам, але з суттєвою відмінністю. При ході козирем перебивати не обов'язково, навіть маючи на руках більш старший козир.

Деберц на трьох.

2010-03-11T15:42:00.002+02:00

Використовується колода з 32 карт. Грають по правилам звичайного деберца, але з деякими відмінностями.

Роздача і торгівля проходить по годииниковій стрілці. Як тільки один гравець замовив гру, він грає сам проти двох. Таким чином, його опоненти разом об'являють свої комбінації, відповідно, кожний при свому ході, разом беруть взятки, але штрафуються кожен окремо.
Гравець, який грає повинен набрати очків більше, ніж обидва його опонента в сусмі. Якщо йому це вдалося, то кожен з гравців записує собі очки, які він набрав. Якщо ж у граючого гравця байт, то він очок не отримує, а його опоненти ділять набрані ним очки ділять між собою порівну - по половині від вартості байта.
Якщо трапився висячий байт, то зависші очки розігрують в слідуючій роздачі. Якщо ж в ній трапився байт, то зависші очки ділять порівну між гравцями, які не грали в цій роздачі.

P.S. Я і мої друзі при грі на трьох, граєм кожен сам за себе і той, хто грає має просто набрати найбільшу кількість очок.

Деберц на чотирьох

2010-03-11T15:03:00.007+02:00

В грі приймає участь 4 гравці, при цьому вони розбиваються на пари - гра іде 2 на 2. Використовується колода з 32 карт.

Гра проходить по правилам звичайного деберца, але з деякими змінами.
Партнери сідають один навпроти одного. Гравець, що роздає починає роздавати карти по годинниковій стрілці, починаючи з опонента зліва від себе.
Доздачу виконують не по 3, а по 2 карти. Якщо гра проходить по першому козирю, то перевернути карту забирає гравець, який замовив гру,якщо по другому - то той, хто роздавав.
Комбінації партнерів сумуються і - або разом проходять, або ні. При об'яві комбінацій кожен гравець вступає в спір в момент свого першого ходу.
Взятки, що взяли гравці, записуються на рахунок пари. Ходить гравець, який взяв взятку, тобто не можна передавати право ходу свому партнеру.
Якщо гравець порушує правила, це називається байтом на картах, то карається пара. При цьому простий байт на картах, тобто при грі, в якій не об'явлено жодної комбінації, коштуватиме, відповідно, 162 очка. Якщо ж були об'явлені комбінації, то їх сума додається до набраної суми.
Підрахунок очок зазвичай проводить пара, яка набрала менше очок. Так як сума простої гри відома, друга пара вираховує кількість своїх очок, віднімаючи очки опонентів від 162. Після цього обидві пари додають собі очки за комбінації, якщо вони були.

Створення auto increment для стовпця в Oracle

2010-03-10T19:03:00.000+02:00

В Oracle не має стандартної властивості для виконання описаного в темі завдання. Але це можна реалізувати за допомогою декількох команд.

Спочатку потрібно створити таблицю:

create table incr
(
id number not null primary key,
aname varchar2(50)
)

Поле id має автоматично збільшуватися на певне значення.
для цього потрібно створити sequence:

create sequence incr_sq 
start with 1 
increment by 1;

В принципі цього може вистачити.
Для вставки значень в таблицю потрібно написати такий код:

insert into incr values (incr_sq.nextval,'Петро'); 
insert into incr values (incr_sq.nextval,'Іван');

А можна піти далі і свторити триггер:

CREATE OR REPLACE TRIGGER incr_trigger
BEFORE INSERT
ON incr
REFERENCING NEW AS NEW
FOR EACH ROW
BEGIN
SELECT incr_sq.nextval INTO :NEW.ID FROM dual;
END;

Після створення триггеру вставка значень в таблицю виглядатиме наступним чином:

insert into incr (aname) values ('Степан');
insert into incr (aname) values ('Микола');

Можна замість попередніх рядків й написати:

insert into incr values (8,'Степан'); 
insert into incr values (7,'Степан');

Але в результаті запиту значення id всеодно буде рівним 3 і 4.

Щоб вносилися значення з попереднього інсерту потрібно трохи змінити триггер, а саме:

CREATE OR REPLACE TRIGGER incr_trigger
BEFORE INSERT
ON incr
REFERENCING NEW AS NEW
FOR EACH ROW
BEGIN
if :new.id is null then
 SELECT incr_sq.nextval INTO :NEW.ID FROM dual;
end if;
END;

Перетворення виразу типу "enum('A','B','C')" з MySQL в Oracle

2010-03-10T16:54:00.002+02:00

Enum('A','B','C') являє собою вираз, в якому перераховуються всі можливі значення певного стовбця таблиці.

Створення таблиці в MySQL:

Create table p
(
id int(3) NOT NULL default '0',
cat enum('A','B','C','D','E','F') NOT NULL default 'A',
text varchar(50) NOT NULL default,
PRIMARY KEY  (id)
)

Її еквівалент в Oracle:

Create table p
(
id number(3) NOT NULL primary key,
cat varchar2(3) default 'A' NOT NULL,
text varchar(50) NOT NULL,
constraint cons_p check (cat in('A','B','C','D','E','F'))
)

Перетворення виразу "on update current_timestamp" з MySQL в Oracle

2010-03-10T13:50:00.004+02:00

Інколи буває потреба взнати дату та час зміни рядків в таблиці.

MySQL має вбудовану властивість для автоматичного оновлення дати при кожній зміні рядка вже існуючої таблиці, яка має вигляд "on update current_timestamp".

Створення таблиці в MySQL буде виглядати приблизно так:

create table p 
(
id int,
a varchar(10),
d timestamp DEFAULT CURRENT_TIMESTAMP
 ON UPDATE CURRENT_TIMESTAMP,
constraint p_pk primary key (id)
);

Для того щоб зробити теж саме в Oracle потрібно створити триггер, який буде виконувати функцію оновлення дати і часу.
Наприклад:

-- створення таблиці 
create table p 
(
id number, 
a varchar2(10), 
d date default sysdate, 
constraint p_pk primary key (id)
);
-- заповнення таблиці
insert into p(id,a) values(1,'test');
-- створення тригеру
CREATE OR REPLACE TRIGGER p_d_trig
BEFORE UPDATE ON p
FOR EACH ROW
BEGIN
-- вводим умову, щоб можна було оновлювати дату через update
-- якщо її не буде,то виконання, наприклад, 
-- update p set d=to_date('2010-02-03 23:12:10','yyyy-mm-dd hh24:mi:ss') where id=1
-- призведе не до потрібної нам дати, а до фактичної дати зміни  
  IF NOT UPDATING ('D') then
   select sysdate into :new.d from dual; 
  END IF;
END p_d_trig;

Велика подяка за допомогу ToshaCh.

Обжим патч-корда RJ-45. Кольорові схеми

2010-03-09T14:00:00.003+02:00

Кабель UTP (unshielded twisted pair) обжимається згідно з встановленими кольоровими маркуваннями 568А і 568В. В якості конектора використовується роз'єм RJ-45, який має 8 контактів. Реально використовується тільки 4 з них: 1 і 2 - для передавання і 3 і 6 - для прийому.

Прямий обжим

Пряме з'єднання: використовується при з'єднанні комп'ютерів за допомогою хаба (концентратора) або світча (комутатора). Обидва кінці кабелю обжимаються однаково:

Кросовий обжим

Кросове з'єднання: використовується для з'єднання комп'ютерів без допомоги комутаторів чи концентраторів, а на пряму. Один кінець кабеля обжимається прямим способом, а другий кінець згідно наступної кольорової схеми:

Конектори відображені зі сторони контактів.

Відключення автозапуску (autoran) в Windows XP

2010-03-09T11:51:00.004+02:00

В зв'язку з тим, що велика кількість вірусів потрапляє в систему через автозапуск змінних носіїв, я раджу його повністю відключати.

Відключення автозапуску для всіх пристроїв через .reg файл

Потрібно створити .reg файл з таким змістом:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom]
"AutoRun"=dword:00000000

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer]
"NoDriveTypeAutoRun"=dword:000000ff

Потім двічі клацнути по створеному файлу і погодитися на внесення змін, або внести зміну вручну через regedit.exe (Win+R і вписати в поле regedit), звичайно ж якщо у вас є на це права. Якщо ні довбайте адміна.

Відключення автозапуску через групові політики

Описаний нижче спосіб підходить для Windows Xp Professional, тому що в Home Edition групові політики заблоковані.
Потрібно зайти в групові політики, якщо локально gpedit.msc (також через Win+R), якщо в домені, то через Aсtive Directory Users&Computers (користувачі і комп'ютери).
В програмі, що з'явиться, в лівій панелі в дереві потрібно вибрати:

Computer Configuration (конфігурація комп'ютера)->Administrative Templates (адміністративні шаблони)->System (система).

З права Turn off Autoplay (відключити автозапуск), – виставити Enabled (ввімкнений) і вибрати All Devices (всіх дисководах).

Заборона обробки файлу autoran.inf

Знову ж таки .reg файл:

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\IniFileMapping\Autorun.inf]
@="@SYS:DoesNotExist"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers\CancelAutoplay\Files]
"*.*"=""

P.S. Перший і другий .reg файли можна об'єднати в один.

Деберц по московським правилам

2010-03-06T23:12:00.000+02:00

В грі приймає участь два гравці. Використовується колода з 32 карт.

Хто здає в першій роздачі визначається жеребом. Часто це робиться наступним чином. Колода зрізається, при зрізанні будь-яка пачка має містити більше 4 карт. Після цього учасники по черзі беруть карти з верху колоди. Той, хто витягує туза – роздає в першій роздачі.
Той хто роздає (Р), тасує карти і дає зрізати опоненту (О). Кожному гравцю роздається по 6 карт – двічі по три. Роздача починається з О. Верхню карту з колоди, що залишилася перевертають і кладуть на стіл або на колоду зверху лицевою стороню вверх.
Торгівля проходить в два кола. Під час першого кола О може заказати гру в масть перевернутої карти, або, як кажуть, по першому козирю, сказавши «граю». Також він може спасувати, тоді точно такий же вибір представлюється для Р. Якщо він також спасує, то проходить друге коло торгівлі.
Перше слово знову має О. Але тепер він може самостійно обрати козирну масть і заказати по ній гру. При цьому зараз вже не можна призначити козирем масть, яка була мастю «першого козиря» і була відкинута при першому колі торгівлі. Наприклад, якщо першим козирем була бубна, а тепер учасник хоче грати з пікою в якості козирної масті, він каже «граю в піку». Якщо О знову не хоче грати в жодну з мастей, що залишилася він знову каже «пас». При цьому зіграти в одну з мастей, що залишилася тепер може Р. Якщо ж він теж не хоче цього робити, він також пасує. Після всіх пасів карти перздають і право роздачі переходить до іншого гравця.
Якщо хтось з гравців замовив гру, без різниці, по першому козирю чи в якусь іншу масть, кожному гравцю доздається ще три карти, всі три зразу, при цьому першим карти тримує О. Таким чином, у кожного гравця а руках буде по 9 карт. Після цього з колоди беруть її нижню карту і кладуть зверху, лицевою стороною вверх, та так, щоб була видна і карта, що визначала масть по першому козирю. Часто для цього просто перевертають всю колоду і кладуть її на карту першого козирю, залишаючи частину останньої видимою.
Першим хід робить О.
При своєму першому ході гравець може об’явити одну чи декілька комбінацій, що в нього є. Комбінації можуть бути наступними:
•    чотри карти однієі масті підряд – називається «п’ятдесят»;
•    три карти однієї масті підряд – терц.

П’ятдесят еквівалентне 50 очкам, терц – 20.
Кобмбінацій з більшою довжиною в деберці не існує. Наприклад, якщо у гравця є 5 карт однієї масті підряд, то він все одно може об‘явити тільки п’ятдесят. Якщо у гравця є 6 карт однієї масті підряд, то він, авжеш, може замість п’ятдесяти об’явити два терца, але це не має сенсу, адже сумарна кількість очок двох терців менше 50. Не можна, при цьому, маючи карти від короля до вісімки, об’явити п’ятдесят від ороля до десятки, а також терц від десятки до вісімки, адже одна і та ж десятка приймає участь у двох комдінаціях, що заборонено правилами.
Проте, щоб отримати очки за комбінацію недостатньо її об’явити. Може трапитись ситуація, що опонент також матиме на руках свої комбінації. При цьому комбінації, скільки б їх не було, можуть пройти, тобто бути зарахованими, тільки у одного з гравців, і пріоритет має той учасник, у кого сама з старших, що є в обох, навіть якщо вона у ього одна, а опонент має дві чи три комбінації. Тому, якщо комбінації є у обох гравців, вони з’ясовують чия старша. Робиться це таким чином.
Гравець, який робить перший хід, повинен заявити про комбінації, які вього є. Якщо він не заявить про свої претензії на терц чи п’ятдесят, то вони не будуть йому зараховані. Більш того, якщо у його опонента також є одна чи декілька комбінації, і навіть молодші, ніж комбінації гравця, що робить перший хід, то вони все одно будуть йому щараховані, якщо, він об’явить їх при своєму ході. Яка комбінація старша, визначається наступним чином:
•    п’ятдесят (полтинник) страше терца;
•    з комбінацій однакової вартості старша та, яка починається з більш вищої карти, наприклад, полтинник від туза старший від полтинника від дами; при цьому не має значення, чиє у гравця, що має полтинник від дами, і п’ята послідовна карта до полтинника, тобто вісімка – навіть якшо у його опонента, який тримає полтинник від туза, і немає десятки цієї масті, всеодно проходить тузовий полтиннник;
•    з комбінацій однакової вартості, які починаються з рівних по номіналу карт, козирна старша;
•    з некозирних комбінацій однакової вартості, що починаються з рівних по номіналу карт, старга та, яку тримає О.
Припустимо О, роблячи перший хід, об’являє терц. Якщо Р не має комбінацій на руках, то він каже «проходить» і просить пред’явити терц. При цьому він спочатку повинен також зробити свій перший хід. Гравець, який об’явив терц, каже з карти якого номіналу і масті його терц починається – наприклад, «терц від пікового валета». Таким чином, його опонент під час гри має інформацію про всі карти, що входять в комбінації гравця, що їх об’явив.
Якщо ж і у Р є терц, він питає «вишка», після чого також робить хід. Р не має права питати вишку терца О тільки в тому випадку, якщо сам він тримає лише некозирний терц від дев’ятки, який молодше будь-якого іншого терца, при цьому він також каже «проходить» і просить об’явити терц. Якщо ж він спитає про вишку терца опонента, маючи при цьому непрохідний терц, чи взагалі не маючи на руках ні терца, ні полтинника, то в момент викриття такої обставини роздачу припиняють і аннулють, а порушника карають байтом на картах.
О на питання про вишку свого терца повинен відпопісти, з якої карти його терц понається, наприклад, сказавши «від дами», чи «від дами козирної», якщо воно так і є. Якшо терц Р молодше, він каже «пооходить» і просить об’явити терц, якщо його маст була невідома. Якщо ж він має має біль старший терц, то називає його повністю, наприклад, «терц від чірвового короля». Якщо у нього є ще один терц, наприклад, від хрестової десятки, то він об’являє їх обох. Свій другий терц Р спочатку не об’являв, так як він не знав, чи будуть зараховані його комбінації – в боротьбі за старшинство більш молодші комбінації участі не приймають. Точно так само, якщо у О є ще один терц, який молодше раніше об’явленого, то він декларує їх обох або тільки молодший, якщо старший вже відомий.
Якщо ж у Р є полтиннник чи терц від козирного туза, який є апріорі старшим любого терца його опонента, то він питає вишку цього терца, а зразу об’являє свої комбінації. Якщо ж він задасть питанння про вишку, а потім задекларує комбінацію, яка завідомо страша об’явленої оппонентом, то його комбінації аннулюються, а опонента проходять – така кара за незаконне питання.
Точно так само проходить декларація комбінацій, якщо О каже «п’ятдесят», лише з тією різницею, що тепер, маючи на руках терц чи некозирний полтиннник від десятки, Р каже «проходить». Сразу можна об’явити свої комбінації тоді, коли є на руках козирнимй полтинник від туза, а в усіх інших випадках питається вишка.
Якщо у гравця на руках є декілька комбінацій, то спочатку він об’являє лише одну, саршу. Якщо вона проходить, то він об’являє і всі інші. Якщо ж, впевнившись, що об’явлена ним комібінація старша за комбінації опонента, він захоче об’явити комбінацію, яка старша за об’явлену спочатку, то таку комбінацію враховувати не будуть. Точно так само, якщо гравець взнав, що об’явлена ним комбінація не проходить, він вже не може відновити боротьбу, об’явивши більш старшу.
Крім терців і полтиннників в грі приймає участь ще одна комбінація – белла. Вона являє собою козирні даму і короля і оцінюється в 20 очок. Белла ніяк не впливає на декларацію терца чи полтинника., тобто, наприклад, можна об’явити терц чи полтиннник від козирного туза, а також беллу. Цю комбінацію гравець декларує, коли робить другий хід з її карти, тобто він може взяти взятку дамою чи королем, не сповіщаючи про наявність другої карти белли, але коли він буде грати цією другою картою, він повинен об’явити беллу, якщо хоче отримати за неї очки. Звісно ж він може цього не робити.
Перед першим своїм ходом любий гравець має право провести ще одну операцію. Якщо гра замовлена по першому козирю, а граючий має у себе на руках козирну сімку, він може замінити її на перевернуту карту, по якій визначають перший козир. При цьому він забирає цю карту собі, а козирну сімку кладе на її місце. Якщо у гравця при цьому на руках є терц від козирної дев’ятки, він може спитати чи проходить терц. Після отримання відповіді гравець вирішує, чи буде він здійснювати обмін чи ні. Але, якшо у гравця є більш старші терци чи полтинники, то їх вже не враховують, так як гравець гравець в першу чергу повинен об’являти саму страшу комбінацію з тих, що в нього є. Точно так само, за питання про терц від козирної дев’ятки при його відсутності гравця карають байтом на картах. Отже, О робить перший хід з будь-якої карти, що в нього є на руках. Р також кладе свою карту, при цьому, можливо, проходить зясування комбінацій. Карта, яка покладена другою, повинна співпадти з мастю ходу – класти в масть обов’язково. Якщо ж у гравця немає карти такої масті, він кладе козир – бити козирем обв’язково. Тільки якщо у нього немає ні карти в масть, ні козира, він може скинути любу карту із наявних у нього. Якщо хід здійснений з козира, опонент повинен покласти більш старший козир, якщо в нього такий є – козир перебивається в обов’язковому порядку.
Взятку забирає гравець, який поклав старшу карту по масті ходу, або ж старший козир. Старшинство карт визначається їх номіналом, і номінал карт в козирній і не козирній карті відрізняються.

Номінал карт наступний:

В козирній масті

Валет – 20
Дев’ятка – 14
Туз – 11
Десятка – 10
Король – 4
Дама – 3
Вісімка і сімка – 0

В некозирній масті

Туз – 11
Десятка – 10
Король – 4
Дама – 3
Валет – 2
Дев’ятка, вісімка, сімка – 0

Гравець, який взяв взятку, робить наступний хід. Таким чином гравці продовжують до тих пір, доки не будуть розіграні всі дев’ять взяток. При цьому існує ще одна премія за останню взятку, яку називають «послід». Гравець, який взяв послід, отримує 10 очок.
По закінченні розіграшу проводиться підрахунок очок, а саме за комбінації, за послід і за очки у взятках.
Гравці рахують свої очки по черзі, при цьому спочатку рахують очки за комбінації, за послід, а також за козирні валет і дев’ятку – ці очки називають «на слово». Далі гравець викладає свої карти на стіл по одній лицевою стороною вверх, одночасно він сумує їх вартість. Коли він доходить до козирних валета і дев’ятки, другий раз він їх не рахує, а каже «пропускаю».
Коли очки обох гравців підраховані, їх порівнюють.
Якщо гравець, який грає, набрав очок більше, ніж його опонент, то кожному з них записують ту кількість очок, яка ними набрана. В іншому випадку кажуть, що він попав в «байт». При цьому всі очки записує опонент гравця, що грає – як свої власні, так і супротивника.
Якщо гравець, що грає і його опонент набрали рівну кількість очок, то така ситуація називається «висячий байт» авбо «висячка». При цьому опонент гравця, що грає записує собі всі свої набрані очки, інший гравець собі нічого не записує – його очки «зависають» до закінчення слідуючої здачі. Очки, що зависли отримує той, хто набере більше очок в наступній роздачі.
Якщо ж і в наступній роздачі виник висячий байт, зазвичай очки граючого зависають знову, до закінчення уже третьої здачі, очки першого висячого байта залишаються висіти далі, і так далі. Інколи грають по іншому: в слідуючій роздачі розігрують очки, які зависли після першого висячого байта, в другій – другого.
Завжди роздає той, хто набрав більше очок в зіграній перед цим роздачі.
Перемагає гравець, який першим набере 501 очко.
Якщо при підрахунку з’ясовують, що обидва набрали не менше 501 очка, виграє той, хто взяв послід. Інколи грають і так, що в такій ситуації переможцем об’являють гравця, у якого набрано більше очок. Якщо ж очок порівно, знову розглядають послід.
При цьому гравці не забов’язані чкати закінчення партії, щоб заявити про набір потрібної кількості очок. Така заява, називається «закриття», може бути зроблене в любий момент гри на своєму ході, але тільки не під час розіграшу останньої взятки. В такому випадку негайно припиняють і підраховують очки претендента на закриття. Якщо у нього дійсно 501 чи більше очок, то він виграє, навіть якщо у опонента на той момент більше очок. Якщо ж його заява неправдива і він ще не набрав потрібної кількості очок, переможцем об’являють його опонента. Так як декларувати закриття під час останньої взятки не можна, гравець, який набере 501 чи більше в останій взятці, але при цьому отримає байт, очок не отримує, і гра продовжується в звичайному порядку.
Існує ще один вид байту, а саме «байт на картах». Цей байт є покаранням, яке застосовують до гравця, який порушив правила. При байті на картах, як і при звичайному байті, непорушивший правила гравець записує собі всі очки, в тому числі за декларовані комбінації і послід, які є у обох гравців на руках.
Байтом на картах називають запит про вишку комбінації, при відсутності власної конкурентноспроможної з нею, а також фальшренонс чи відмова від перебиття козирної карти при можливості це зробити.
Якщо гравець, який порушив правила і покараний байтом на уартах, має беллу і ще не встиг її об’явити, то після свого порушення він не забов’язаний це робити. В той же час опонент гравця, який порушив правила, маючи на руках не обявдлену беллу, має право її декларувати зразу після порушення.
Якщо грають декілька послідовних партій, то за кожну виграну партію переможець може отримувати одне умовне очко, а може, згідно попередньої домовленості, і різницю між 501 очками і очками, які були набрані опонентом. Якщо ж обидва гравці набрали не менше 501 очка, то переможець їх різницю не пише.

EmbeddedWB, власний User Agent

2010-03-01T14:05:00.004+02:00

Інколи виникає потреба встановити власний User Agent для браузера, наприклад, для того щоб відображати сайт чи його деякі сторінки лише в вашому браузері. В EmbeddedWb це все реалізовано на найпростішому рівні.

Декілька рядків про User Agent.

При відвідуванні веб-сторінки, браузер передає User-Agent рядок на сервер хостингу сайту, який ви відвідуєте. Цей рядок показує, який браузер ви використовуєте, номер версії, а також додаткову інформацію про вашу ситему. такі як операційна система і її версія, версію Microsoft. Net FrameWork. Веб-сервер може використувату дану інформацію для представлення контенту, який адаптований для вашого браузеру.

EmbeddedWB і User Agent.

В EmbeddedWB строку User-Agent можна змінювати в Object Inspector на вкладці Properties або відповідним кодом.
За User-Agent віповідають такі пункти з властивостей:
1) UserAgent - змінна з типом string в яку вписується новий User-Agent;
2) UserAgentMode - тип, що відповідає за режим відображення User-Agent.

UserAgentMode може приймати 3 значення:
а) uaDefault - має таке саме значення User-Agent, як і в встановленому в системі браузері ІЕ;
б) uaInternal - унікальне значення User-Agent для вашого браузеру;
в) uaRegistry - встановлення власного User-Agent через реєстр, буде змінений на стандартний після закриття браузеру.

Реалізація кодом:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    EmbeddedWB1: TEmbeddedWB;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
begin
EmbeddedWB1.Navigate('http://whatsmyuseragent.com/');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EmbeddedWB1.UserAgentMode:=uaDefault;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EmbeddedWB1.UserAgent:='My browser';
EmbeddedWB1.UserAgentMode:=uaInternal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
EmbeddedWB1.UserAgent:='My browser1';
EmbeddedWB1.UserAgentMode:=uaRegistry;
end;

end.

Скрін має такий вигляд:

Офіційний сайт розробників.

Відображення Hint для вкладок PageControl

2010-02-26T16:26:00.000+02:00

Для відображення вспливаючої підказки (Hint) при наведені на ім'я вкладки PageControl і їх зміні при переході від однієї вкладки до іншої потрібно описати подію PageControl MouseMove.

Код з коментарями:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    procedure PageControl1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{Визначення параметрів для коректного відображення вспливаючих підказок}

procedure TForm1.FormCreate(Sender: TObject);
begin
// Видимість вспливаючих підсказок закладок встановлюється в true
PageControl1.ShowHint:=true;
// Призначається властивості PageControl Tag значення -1
PageControl1.Tag:=-1;
end;

{В події PageControl MouseMove реалізовується відображення своєї вспливаючої підказки для кожної вкладки}

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  tabindex: Integer;
  PC: TPageControl;
begin
{Як правило Sender в Delphi - це елемент управління, який посилає повідомлення функції, в якій він фігурує}
  PC := Sender as TPageControl;
// визначення індексу вкладки за її координатами
  tabindex := PC.IndexOfTabAt(X, Y);
// в цій умовній конструкції відбувається присвоєння і зміна підказок для вкладок
   if ((tabindex >= 0) and (tabindex <> PC.Tag)) then
    begin
      PC.Tag := tabindex;
      Application.CancelHint;
// присвоєння підказки вкладці, в даному випадку присвоюється Caption вкладки
      PC.Hint := PC.Pages[tabindex].Caption;
// активація відображення підказки
      Application.ActivateHint(Point(X,Y));
    end;
end;

end.

Відображення вспливаючої підказки була реалізована при допомозі volvo877.

Служба внутрішньої безпеки Ураїни Міністерстсва внутрішніх справ України

2010-02-26T11:10:00.003+02:00

Служба внутрішньої безпеки (СВБ) МВС України виявляє «перевертнів» у міліцейських погонах. Її головним завданням є протидія корупції і боротьба зі зловживанням службовим становищем співробітниками міліції.

Відділи внутрішньої безпеки існують при кожному обласному управлінні МВС, однак вони не входять в структуру цих управлінь та підпорядковані голові служби.
Кожен громадянин України, який знає про сумнівні дії міліціонерів або зіткнеться з протизаконними вчинками співробітників МВС будь-якого звання і рангу, може і повинен повідомити про це в Служба внутрішньої безпеки.
Зробити це просто.
Зателефонуйте за телефоном довіри і повідомте про відомий вам факт. Всі дзвінки фіксуються і записуються на плівку. Потім зміст повідомлення роздруковується і доводиться до відповідних співробітників СВБ, які проводять перевірку.
Можна особисто звернутися до співробітників cлужба. Безпосередній контакт, звичайно ж, принесе більший ефект при розслідуванні протиправних дій співробітників міліції. Конфіденційність заявнику гарантується.
Телефон довіри Служби внутрішньої безпеки МВС України - (044) 256-16-75.
Крім того, можна безпосередньо звернутися до чергової частини СВБ, яка розташовується на контрольно-пропускному пункті Міністерства внутрішніх справ України за адресою:
м. Київ, вул. Богомольця, 10, кімната 5 (на другому поверсі, вхід вільний). Телефон чергової частини (044) 254-74-75 (цілодобовий).

1) ВВБ у Вінницькій області
Адреса: вул. Театральна, 10
Тел.: (0432)-57-61-13
2) ВВБ у Волинській області
Адреса: вул. Винниченко, 11
Тел.: (03322)-79-63-65
3) ВВБ у Дніпропетровській області
Адреса: вул. Набережна Леніна, 18-а
тел.: (056)-756-57-80
4) ВВБ в Донецькій області
Адреса: вул. Горького,61
тел.: (062)-301-83-67
5) ВВБ в Житомирській області
Адреса: Старий бульвар, 5/37
тел.: (0412)-40-78-66
6) ВВБ в Закарпатській області
Адреса: вул. Факоці, 13
тел.: (03122)-69-55-35
7) ВВБ в Запорізькій області
Адреса: вул. Матросова, 29
тел.: (0612)-39-83-78
8) ВВБ в Івано-Франківській області
Адреса: вул. Лепкого, 28
тел.: (03422)-2-39-73
9) ВВБ в м. Києві
Адреса: вул. Володимирська, 15
тел.: (044)-271-95-94
10) ВВБ в Київській області
Адреса: вул. Вооздвижинська, 2
тел.: (О44)-592-30-09
11) ВВБ в Кіровоградській області
Адреса: вул. Дзержинського, 41
тел.: (0522)-24-32-53
12) ВВБ в АР Крим
Адреса: м. Сімферополь, вул. Б.Хмельницького,4
тел.: (О652)-24-50-03
13) ВВБ в Луганській області
Адреса: вул. Луначарського, 38
тел.: (0642)-52-72-87
14) ВВБ у Львівській області
Адреса: площа ген. Григоренка, 3
тел.: (0322)- 78-26-10
15) ВВБ в Миколаївській області
Адреса: вул. Декабристів, 5
тел.: (0512)-49-80-20
16) ВВБ в Одеській області
Адреса: вул. Буніна, 37
тел.: (048)-795-24-56
17) ВВБ в Полтавській області
Адреса: вул. Пушкіна, 83
тел.: (0532)-51-77-64
18) ВВБ в Рівненській області
Адреса: вул. Хвильового, 2
тел.: (0362)-43-02-28
19) ВВБ в м. Севастополі
Адреса: вул. Пушкіна, 2
тел.: (0692)-59-45-22
20) ВВБ в Сумській області
Адреса: вул. Жовтнева, 25
тел.: (0542)-28-34-62
21) ВВБ в Тернопільській області
Адреса: вул. Валова,   11
тел.: (0352)-52-67-15
22) ВВБ в Харківській області
Адреса: вул. Раднаркомівська, 5
тел.: (057)-700-40-24
23) ВВБ в Херсонській області
Адреса: вул. Кірова, 4
тел.: (0552)-44-60-02, 050-318-60-02
24) ВВБ в Хмельницькій області
Адреса: пров. Військоматський, 3
тел.: (0382)-69-24-67
25) ВВБ в Черкаській області
Адреса: вул. Смілянська, 57
тел.: (0472)-39-33-43
26) ВВБ в Чернігівській області
Адреса: проспект Перемоги, 74
тел.: (0462)-61-35-48
27) ВВБ в Чернівецькій області
Адреса: вул. Головна, 24
тел.: (0372)-52-11-41
28) ВВБ на Донецькій залізниці
Адреса: м. Донецьк, вул. Горна, 4
тел.: (0622)-305-70-00
29) ВВБ на Львівській залізниці
Адреса: м. Львів, вул. Федьковича,50-а
тел.: (0322)-241-21-41, 050-317-21-41
ЗО) ВВБ на Одеській залізниці
Адреса: м. Одеса, вул. Середньофонтанська, 14
тел.: (0487)-22-30-40
31) ВВБ на Південній залізниці
Адреса: м. Харків, вул. Карпівська, 3
тел.: (057)-724-43-78
32) ВВБ на Південно-Західніи залізниці
Адреса: м. Київ, вул. Чапаева, 6
тел.: (044)-465-15-71
33) ВВБ на Придніпровській залізниці
Адреса: м. Дніпропетровськ, пр. К.Маркса, 108
тел.:(0562)-33-04-55

ТЕЛЕФОНИ ДОВІРИ МВС України, ГУМВС, УМВС в областях та ЛУ УМВС України на транспорті.

Правила гри в Деберц

2010-02-25T14:09:00.002+02:00

Гра Деберц є карточною грою на взятках. В грі можуть брати участь від 2 до 4-х чоловік. Прийнято, що гра розрахована на 2-х гравців, але внаслідок того, що гру почали грати на некомерційному рівні - з'явилися варіанти гри на 3-х і 4-х гравців. Плюс до всього коли граєш вчотирьох, то можна грати на пари.

Правила гри в деберц

В грі використовується колода з 32 карт (від 7 до Туза). Мета гри набрати швидше за суперника 501(маленька партія) або 1001 очко (велика партія) за певну кількість ігор в партії. Кожна карта має свою вартість.

Некозирні карти:

Валет - 2 оч.
Дама - 3 оч.
Король - 4 оч.
10 - 10 оч.
Туз - 11 оч.
7,8,9 - 0 оч.

Козирні карти:

Дама - 3 оч.
Король - 4 оч.
10 - 10 оч.
Туз - 11 оч.
9 - 14 оч.
Валет - 20 оч.
7,8 - 0 оч.

Сума всіх очок в чистій грі 162 очка.

Важливу роль в грі займає наявність комбінацій на руках:

Терц (три карти однієї масті підряд) - 20 оч.
Деберц (п'ять карт однієї масті підряд) - 50 оч.
Белла (козирні дама і король) - 20 оч.

В деяких правилах використовують інші комбінації:

Терц (три карти однієї масті підряд) - 20 оч.
Полтиник (п'ять карт однієї масті підряд) - 50 оч.
Деберц (7 карт козирів однієї масті підряд) - якщо є на руках, то гравець автоматом виграє гру в партії.
Белла (козирні дама і король) - 20 оч.

Терц, Деберц, Полтиник можна оголосити тільки протягом перших двох взяток. Якщо у супротивника комбінація старше, то ваші комбінації анулюються. Старше комбінація та, у якої вишка вище, в додаток, будь-яка комбінація з карт козирів вище за будь-яку з не козирів. Що б комбінації зарахували в загальний рахунок - потрібно узяти хоча б одну взятку. Комбінації оголошують по старшій карті. Наприклад: «у мене козирний терц, вишка - валет», тобто, на руках дев'ять, десять, валет і всі козирні. Процедура оголошення комбінацій досить витримана. Спочатку гравець говорить, яка у нього комбінація на руках (наприклад терц), інший гравець або говорить, що б той висвітив свою комбінацію (якщо сам не має жодної) або питає вишку, що б порівняти з своєю. Але якщо у нього вище комбінація, ніж терц - тоді просто показує свою. При рівності комбінацій старше та, власник якої перший висвітив.

Гравцям роздають 6 карт по три карти на початку гри. Решта колоди кладеться посередині столу, а під неї верхня карта з колоди (сорочкою вниз). Це і є козир. Далі гравець сидячий першим зліва від роздаючого, говорить, чи грає він в козир. Якщо не грає, то питається наступний. І так два круги до останнього гравця (того, хто роздавав карти). Останній зобов'язаний зіграти, якщо грається з обязом. Якщо без обяза - карти кидають в колоду, тасуються і все наново. На другому крузі гравець може грати в будь-яку масть окрім козиря. Після визначення гра продовжується роздачею ще по три карти кожному. Козирем стає та масть, в яку грають. Людина, у якої сімка козиря на руках, може поміняти її на ту козир, яка під колодою. Граючий починає розіграш взяток, кладучи на стіл одну з карт. Інші кладуть або в масть або козир (якщо немає в масть), або іншу карту (якщо немає козиря або в масть). Забирає той, у кого карта вище по очках, тільки будь-яка карта козиря вище будь-якого некозиря, а якщо не в масть і обидва не козирі, то забирає той, хто заходив першим. Після закінчення розіграшу, підраховуються очки, включаючи 10 очей за останню взятку, так званий послід.

Очки партій підсумовуються, і виграє той гравець, хто першим набере заявлену партією максимальну кількість очей. Якщо гравець не узяв жодного очка - у нього ХВ. ХВ в грі і мінус 100 очок від загального рахунку. Якщо гравець, який грав в масть програв - у нього байт. Три байти і теж мінус 100 очок. Будь-які махінації або збої в грі караються певними штрафами. Наявність зайвої карти на руках, їх недостача, помилкові оголошення і хід невідповідною картою - карається байтом.

Чітких правил в грі не існує. Зазвичай грають за тими правилами, які встановлюють професіонали або гравці з великим стажем. Тому не важливо за якими правилами Ви граєте. Головне їх дотримуватись підчас гри!!! А логіка всіх різновидів деберцу одна і та ж. Логіка від моментів в правилах майже не порушується. Гравець, який професіонально грає деберц, зможе обіграти будь-кого, і по будь-яким правилам.

Деталі правил за якими граю я і мої друзі.

- Козирний терц - при наявності в іншого гравця терца з більшою вишкою не проходить;
- Рівні терци - ні в кого не проходять, проходить при рівності лише тоді, якщо в когось козирний;
- Белла - обов'язково треба взяти, при наявності обох карт на руках, дамою чи королем взятку і об'явити беллу;
- Деберц - від чотирьох карт однієї масті підряд;
- Обов'язкова гра з обязом;
- Якщо в гравця при роздачі на руках три сімки без підбору і 4 з підбором - то перездача;
- Після третього байту кожен наступний - мінус 100 очок;
- За неправильну роздачу чи махінацію - мінус 100 очок;
- Підрахунок очок проводиться з округленням до десятка, для полегшення рахування і відповідно маленька гра в 520, велика в 1020.

Базові правила взяв з igraya.info.

Про Деберц

2010-02-25T13:33:00.001+02:00

Однією з найпоширеніших ігор на взятки є гра Деберц. Вона рідниться з такими іграми як бура або буркозел. Програвшими в грі вважаються гравці які мають недобір взяток в грі.
Історія гри деберц має багато версій. Вважають, що вона почалася з Сахаліну ще на початку ХХ століття. Інші вважають, що гра з'явилася в 70-ті. А ще є варіант, що гра Деберц з'явилася в 30-ті в європейських общинах.
Загалом, особливого значення це не має. Результат один - гра стала однією з найпопулярніших ігор на взятки. І найцікавіше, що багато хто вважає карточну гру деберц звичайною логічною грою. В неї люблять пограти як діти так і дорослі. Але насправді гра деберц є дуже і навіть дуже азартною грою. Існують випадки, коли гравці програвали божевільні суми грошей під впливом азарту, а іноді навіть квартири і машини. Основою гри деберц є хороше опрацьовування стратегії гри, дуже хороша пам'ять і особлива увага в грі. Головне пропрацювати стратегію взяток і пам'ятати, які карти вийшли з гри.
В основному деберц грають удвох, але є варіанти гри як на трьох, так і на четверьох. Особливою унікальністю деберца вважається здатність в нього грати як в азартну комерційну гру, так і в спортивну.
Важливо також відзначити, що, маючи велику кількість різновидів деберца, всі вони дуже схожі один на одного і досить сильно дотримуються в різних містах і кругах.

Інформацію взяв з igraya.info

Сервіс копіювання файлів конфігурації Kerio

2010-02-25T09:59:00.001+02:00

На роботі стоїть сервер на якому встановлені Kerio Winroute Firewall і Kerio MailServer. Періодично продукти Kerio злітали і я почав робити ручне копіювання файлів конфігурації, а потім робити їх підміну – робота софта відновлювалась. В один прекрасний момент це мене задовбало.

Спочатку я написав програмку, яка виконувала резервне копіювання файлів конфігурації і помістив її в автозавантаження. Та ця програма виконувала свої функції лише тоді, коли користувач заходив в систему. Це мене не влаштовувало, адже не кожен день я заходив не цей сервер.
В результаті я вирішив написати сервіс для вирішення цієї проблеми.

Опис ділиться на декілька кроків

Крок 1. Створення сервісу

Спочатку я створював Service Application і з меню File-New-Other.

Далі присвоїв сервісу ім’я, як видно на скріні нижче copyconfig. Оскільки мій сервіс примітивний, який виконує всього лиш декілька дій – пошук в директорії файлів з маскою *.cfg і наступне їх копіювання в потрібну мені директорію, то я описував лише подію OnExecute.
OnExecute – служба стартує, виконує певні дії і завершує свою роботу.

Нижче приведений код всієї служби з коментарями.

unit Serv;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,Inifiles;

type
  Tcopyconfig = class(TService)
    procedure ServiceExecute(Sender: TService);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  copyconfig: Tcopyconfig;
  listfile: array[0..20] of string; // масив для збереження імен файлів з потрібним нам розширенням
  i:integer;
implementation

{$R *.DFM}


{Процедура пошуку по директорії потрібних нам файлів
В процедуру передається 2 параметри:
mask – маска фалів, які ми шукатимемо
path – щлях до директорії в якій буде проводитися пошук файлів заданої маски }

procedure FileFind(mask:string;path:string);
var sr:Tsearchrec;// Опис структури, яку використовує для пошуку система
found:integer; // знайдено чи ні
attr:integer;

begin
i:=0;
attr:=0;
attr:=Faanyfile;
found:=FindFirst(path + mask,attr, sr); 
{по команді FindFirst програма створює структуру наступного типу
TsearchRec = record
Time: Integer; // час створення
Size: Integer; // розмір файлу
Attr: Integer;// атрибутиы
Name:TFileName // = TString; ім’я файлу
ExcludeAttr: Integer; знайдені атрибути
FindHandle: THandle; // !!! вказівник на структуру пошуку, яку створює ситсема, а не сервіс. В зв’язку з цим в кінці пошуку необхідно обов’язково писати FindClose – це звільняє паам’ять
FindData: TWin32FindData; // власне ця структура
end;}
while (found = 0) do // якщо хоч щось знайдено
begin
if  (sr.name <> '.') and (sr.name <> '..') then
begin // якщо не вказували на корневі каталоги, то щось знайшли

listfile[i]:=sr.Name;
inc(i);
end;
found:=findnext(sr); // шукаємо далі, якщо ще є файли і каталоги
end;
FindClose(sr); // пошук завершений – вивільняємо пам’ять
end;

{Наступні два методи згенеровані автоматично}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  copyconfig.Controller(CtrlCode);
end;

function Tcopyconfig.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;


{В цьому методі описується тіло служби, ті дії які буде вона виконувати після запуску}
procedure Tcopyconfig.ServiceExecute(Sender: TService);
var
   mask,srcF,srcM,dstF,dstM:string //змінні для запису параметрів з ini файлу
   dat:string; // в цю змінну ми внесемо дату потрібного нам формату 
   j:integer // змінна, яка потрібна при копіюванні файлів 
   inst:integer; // для визначення, файли конфігурації якого з продуктів Kerio копіювати
   Ini:tinifile; // визначаємо змінну для файлу конфігурації сервісу
Begin
// Визначення ini файлу з якого будуть братися параметри
Ini:=Tinifile.Create('C:\BackupConfig.ini');
// зчитування параметрів з ini файлу
mask:=ini.ReadString('main','mask','*.cfg');
srcF:=ini.ReadString('source','firewall','C:\Program Files\Kerio\WinRoute FireWall');
srcM:=ini.ReadString('source','MailServer','C:\Program Files\Kerio\MailServer');
dstF:=ini.ReadString('dest','firewall','C:\Program Files\Kerio\WinRoute FireWall');
DstM:=ini.ReadString('dest','MailServer','C:\Program Files\Kerio\MailServer');
inst:=strtoint(ini.ReadString('main','inst','2'));
// після зчитування параметрів звільняємо ini файл
ini.Free;
// перетворюємо дату в потрібний формат
dateTimetostring(dat,'yyyy.mm.dd', Date);
// умовна конструкція, в якій визначається що і звідки копіювати
case inst of
// якщо 1, то відбувається копіювання файлів конфігурації тільки для MailServer
1:
 Begin
// перевірка існування директорії в яку будуть копіюватися файли
  if directoryexists(dstM+'\\Backup config MailServer') then
   begin
//якщо не має в директорії каталогу з датою то створюємо такий
    if not directoryexists (dstM+'\\Backup config MailServer\'+dat) then
    mkdir(dstM+'\\Backup config MailServer\'+dat);
   end
// якщо директорії немає, то створюємо таку
   else
   begin
    mkdir(dstM+'\\Backup config MailServer');
    mkdir(dstM+'\\Backup config MailServer\'+dat);
   end;
// пошук файлу
 Filefind(mask,srcM);
//копіювання файлу/файлів
for j:=0 to i do
 begin
  Copyfile(pchar(srcM+'\'+listfile[j]),pchar(dstM+'\Backup config MailServer\'+dat+'\'+listfile[j]),true);
 end;
end;
// якщо 0, то відбувається копіювання файлів конфігурації тільки для FireWall
0:
 begin
 if directoryexists(dstF+'\'+'\Backup config Firewall') then
  begin
   if not directoryexists (dstF+'\'+'\Backup config Firewall\'+dat) then
   mkdir(dstf+'\'+'\Backup config Firewall\'+dat);
  end
  else
  begin
   mkdir(dstF+'\'+'\Backup config Firewall');
   mkdir(dstf+'\'+'\Backup config Firewall\'+dat);
  end;
Filefind(mask,srcF);
  for j:=0 to i do
  begin
   Copyfile(pchar(srcF+'\'+listfile[j]),pchar(dstF+'\Backup config FireWall\'+dat+'\'+listfile[j]),true);
  end;
 end;
//якщо 2, то відбувається копіювання файлів конфігурації для MailServer і FireWall
 2:
 begin
 if directoryexists(dstF+'\'+'\Backup config Firewall') then
  begin
 if not directoryexists (dstF+'\'+'\Backup config Firewall\'+dat) then
   mkdir(dstf+'\'+'\Backup config Firewall\'+dat);
  end
  else
  begin
   //edit1.Text:='File not exists';
   mkdir(dstF+'\'+'\Backup config Firewall');
   mkdir(dstf+'\'+'\Backup config Firewall\'+dat);
  end;
  if directoryexists(dstM+'\'+'\Backup config MailServer') then
  begin
   if not directoryexists (dstM+'\'+'\Backup config MailServer\'+dat) then
   mkdir(dstM+'\'+'\Backup config MailServer\'+dat);
  end
  else
  begin
   mkdir(dstM+'\'+'\'+'Backup config MailServer');
   mkdir(dstM+'\'+'\Backup config MailServer\'+dat);
 end;
Filefind(mask,srcF);
for j:=0 to i do
 begin
  Copyfile(pchar(srcF+'\'+listfile[j]),pchar(dstF+'\Backup config FireWall\'+dat+'\'+listfile[j]),true);
 end;
Filefind(mask,srcM);
  for j:=0 to i do
  begin
   Copyfile(pchar(srcM+'\'+listfile[j]),pchar(dstM+'\Backup config MailServer\'+dat+'\'+listfile[j]),true);
  end;
 end;
end;
end;
end.

Для створення сервісу потрібно проект скомпілювати (Project-Compile або Ctrl+F9)

Файл конфігурації BackupConfig.ini такого змісту:

[Main]
' 0 - Firewall
' 1 - MailServer
' 2 - Firewall and Mailserver
inst=2
mask=*.cfg
[Source]
Firewall=C:\Program Files\Kerio\WinRoute FireWall\
Mailserver=C:\Program Files\Kerio\MailServer\
[Dest]
Firewall=g:\Kerio backup\
Mailserver=g:\Kerio backup\

Крок 2. Встановлення сервісу

Є 2 способи як встановити, так і деінсталювати сервіс:
А) Ручками
Перед інсталяцією таким способом потрібно обов’язково помістити файл конфігурації в корінь диску С.
Далі Пуск-Виконати або Win+R вписати шлях до exe файлу сервісу і задати параметр install.

Натиснути ОК і в результаті ви отримаєте повідомлення про те, що сервіс встановлений. Щоб повідомлення не з’являлося потрібно дописати ще параметр /silent.

Для деінсталяції потрібно виконати ті ж самі дії тільки з параметром /uninstall.
Б) Програмно
Потрібно створити новий проект, кинути на форму дві кнопки, підписати їх і заповнити обробники подій цих кнопок, плюс дописати функції інсталяції і деінсталяції сервісу.

Нижче лістинг програми з коментарями.

unit ServInst;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,shellapi,Winsvc;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{Функція інсталяції сервісу
Передаються два параметри:
ExecutablePath  - шлях до exe файлу сервісу
ServiceName  - ім’я сервісу, яке буде відображатись}

function CreateNTService(ExecutablePath,ServiceName: String):boolean;   
var  
 hNewService,hSCMgr: SC_HANDLE;
// Rights: DWORD;   
 FuncRetVal: Boolean;   
begin  
 FuncRetVal := False;
 hSCMgr := OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);
 if (hSCMgr <> 0 ) then  
  begin  
   //Власні права доступу можуть описуватись тут
   //використовується GENERIC_EXECUTE, що є комбінацією   
   //STANDARD_RIGHTS_EXECUTE, SERVICE_START, SERVICE_STOP,   
   //SERVICE_PAUSE_CONTINUE, and SERVICE_USER_DEFINED_CONTROL   
   //Можна створювати власні права і використовувати їх як показано в закоментованих рядках   нижче 
    
   //Rights := STANDARD_RIGHTS_REQUIRED or SERVICE_START or SERVICE_STOP   
   // or SERVICE_QUERY_STATUS or SERVICE_PAUSE_CONTINUE or   
   // SERVICE_INTERROGATE;   
   
 // SERVICE_AUTO_START – відповідає за тип запуску сервісу Авто
   hNewService := CreateService(hSCMgr,PChar(ServiceName),PChar(ServiceName),   
                                STANDARD_RIGHTS_REQUIRED,SERVICE_WIN32_OWN_PROCESS,   
                                SERVICE_AUTO_START,SERVICE_ERROR_NORMAL,   
                                PChar(ExecutablePath),nil,nil,nil,nil,nil);   
  CloseServiceHandle(hSCMgr);   
   if (hNewService <> 0) then  
    FuncRetVal := true  
   else  
    FuncRetVal := false;   
  end;   
 CreateNTService := FuncRetVal;   
end;   
    
// ***   
    
{Функцыя для видалення сервісу
// ServiceName – ім’я сервісу для видалення
//Результат:   
// true – якщо операція завершена вдало
// false -  якщо видалення не було виконано}
    
function DeleteNTService(ServiceName: String):boolean;   
var  
 hServiceToDelete,hSCMgr: SC_HANDLE;   
 RetVal: LongBool;   
 FunctRetVal: Boolean;   
begin  
 FunctRetVal := false;   
 hSCMgr := OpenSCManager(nil,nil,SC_MANAGER_CREATE_SERVICE);   
 if (hSCMgr <> 0 ) then  
  begin  
   hServiceToDelete := OpenService(hSCMgr, PChar(ServiceName), SERVICE_ALL_ACCESS);   
   RetVal := DeleteService(hServiceToDelete);   
   CloseServiceHandle(hSCMgr);   
   FunctRetVal := RetVal;   
  end;   
   DeleteNTService := FunctRetVal;   
end;   

{Інсталяція сервісу}
procedure TForm1.Button1Click(Sender: TObject);
var 
tmps:string;
begin
// присвоєння імені сервісу
tmpS := 'CopyConfig';
// власне інсталяція з виводом повідомлення про успішність чи ні. 
   if (CreateNTService(GetCurrentdir+'\Service\Copycon.exe',tmpS)) then
     MessageDlg('Service '+tmpS+' has been successfully created!',mtInformation,[mbOK],0)
    else
     MessageDlg('Unable to create service '+tmpS+' Win32 Error code: '+IntToStr(GetLastError),mtWarning,[mbOK],0);
// копіювання фалу конфігурації сервісу в корінь диску С
CopyFile(pchar(GetCurrentdir+'\Service\BackupConfig.ini'),'C:\BackupConfig.ini',true);
end;

{Деінсталяція сервісу}
procedure TForm1.Button2Click(Sender: TObject);
var  
 tmpS: String;   
begin
 tmpS := 'CopyConfig';
// деінсталяція сервісу з виводом повідомлення про результат
 if (DeleteNTService(tmpS)) then  
     MessageDlg('Service '+tmpS+' has been successfully deleted!',mtInformation,[mbOK],0)   
 else  
     MessageDlg('Unable to delete service '+tmpS+' Win32 Error code: '+IntToStr(GetLastError),mtWarning,[mbOK],0);
//видалення файлу конфігурації сервісу з кореню диску С
 if fileexists('C:\BackupConfig.ini') then
 DeleteFile('C:\BackupConfig.ini');

end;

end.

Якщо використовувати мій код в тому вигляді в якому він є, то розміщення файлів має мати такий вигляд:

При обох варіантах інсталяції, після завершення сервіс буде не запущений. Для запуску потрібно або перезавантажитись, або через оснастку Service його запустити.
В принципі цей сервіс можна використовувати не тільки для копіювання файлів конфігурації Kerio, а й інших, потрібно просто задати відповідні настройки в BackupConfig.ini і при необхідності змінити розмірність масиву listfile, якщо файлів більше ніж 20.

При написанні сервісу я використовував матеріали розміщені на DelphiKingdom, HelloWorld.ru і в DRKB Explorer – домашня сторінка.

Початковий код, сервіс і його інсталятор можна взяти тут.

Відключення повідомлень про помилки в EmbeddedWb.

2010-02-11T19:04:00.000+02:00

Для відключення повідомлень про помилки потрібно.

В інспекторі об'єкту (Object Inspector) на вкладці "Властивості" (Properties) у властивості DisableErrors (див. рис.) навпроти значень EnableDDE, fpExceptions і ScriptErrorsSuppressed встановити true або false, в залежності від того, які повідомлення про помилки ви хочете відключити.

Рис

Також можна вибрати, які дії виконувати, коли відбувається помилка скрипта. За це відповідає властивість ScriptErrorAction.
ScriptErrorAction може приймати три значення:

1) eaAskUser - показує діалог Microsoft про помилку скрипта;
2) eaCancel - припиняє виконання скрипта без будь-якого діалогу;
3) eaContinue - продовжує виконання скрипта без будь-якого діалогу.

Але тут ще є особливість! Якщо у вас на машині встановлений Visual Studio або ще якийсь редактор скрипта, то під час запуску програми з під Delphi ви будете отримувати повідомлення про помилки.

Кодом відключення повідомлень про помилки буде виглядати так:

interface

uses
............................
type
............................

private
    { Private declarations }
   procedure setewbparam;
  public
    { Public declarations }
  end;

var
............................

implementation

{$R *.dfm}

procedure TForm1.setewbparam;
begin
//DDE - динамічниий обмін даних
 EWB1.DisableErrors.EnableDDE:=true;
//fpExceptions - винятки при виконанні операцій з плаваючою точкою 
 EWB1.DisableErrors.fpExceptions:=true;
//ScriptErrorSuppressed  - відповідає за появу діалогових вікон з помилками скриптів 
//Наприклад, повідомлення про помилку сценарію
 EWB1.DisableErrors.ScriptErrorsSuppressed:=true;
//Якщо є помилки, то проходить їх ігнорування і продовжується навігація
 EWB1.ScriptErrorAction:=eaContinue;
end;
.......................
end.

Офіційний сайт розробників.

EmbeddedWB маніпуляції з контекстним меню (PopUpMenu).

2010-02-11T18:47:00.000+02:00

Компонент дозволяє проводити різноманітні маніпуляції з контекстним меню.
Всі ці можливості реалізовані в властивостях.

Вступ

Даний опис проведений на основі компонента версії EmbeddedWB_D5-D2009_Version_14.67.8.
Так що в залежності від релізів все мною написане може не мати актуальності.

Опис

Заборинити появу контекстного меню можна двома способами.
Перший - це в Інспекторі об'єкта (Object Inspector) у властивостях EmbeddedWB виставити відповідні значення в таких випадаючих списках як DisabledPopUpMenus (заборонені контекстні меню) і DisabledPopUpMenuItems (заборонені елементи контекстного меню).
DisabledPopUpMenus і DisabledPopUpMenuItems це множини з булевими складниками. Кожний елемент множини може приймати два значення true (заборонити елемент) або false (дозволити елемент).

Другий спосіб - це прописати відповідні властивості в коді. В ньому я опишу який елемент множини за що відповідає.

unit MainWindow;

interface

uses
............................
type
............................

private
    { Private declarations }
   procedure setewbparam;
  public
    { Public declarations }
  end;

var
............................

implementation

{$R *.dfm}

procedure TForm1.setewbparam;
begin
Form1.EWB1.DisabledPopupMenuItems:=[rcsBack,        //навігація вперед
            rcsForward,  //навігація назад
                                    rcsSavePageBkg, //зберегти фон як 
                                    rcsSetAsBkg, //встановити фоновим рисунком
                                    rcsCopyBkg,  //копіювати фон
                                    rcsSetAsDeskT, //зберегти як елемент робочого столу
                                    rcsSelectAll, //виділити все
                                    rcsPaste,  //вставити
                                    rcsCreateSC, //створити ярлик
                                    rcsAddToFav, //додоти до Вибраного
                                    rcsEncoding, //кодування (Windows, UTF-8 і т.д.)
                                    rcsRefresh,  //оновити
                                    rcsViewSource, //перегляд html коду
                                    rcsProperties,      //властивості
                                    rcsPrint,  //друк
                                    rcsOpenNWindow, //відкрити в новому вікні
                                    rcsOpenLink  //відкрити посилання (лінк)
                                   ];
Form1.EWB1.DisabledPopupMenus:=[rcmDefault,
                                rcmImage, //відключає контекстне меню на картинаках
                                rcmControl, //відключає контекстне меню на різноманітних 
                                           //контролах (кнопка, edit ...)
                                rcmTable, //відключає контекстне меню на таблицях
                                rcmSelText, //відключає контекстне меню на вибраному тексті
                                rcmAnchor, //відключає контекстне меню на
                                          //якорях                                 
                                rcmUnKnown,   //відключає невідомі контекстні меню
                                rcmImageArt, //відключає контекстне меню на ImageArt
                                rcmImgDynSrc, //відключає контекстне меню на динамічних малюнках
                                rcmDebug, //відключає контекстне меню в режимі відладки (Debug mode)
                                rcmAll //відключає всі контекстні меню
];
end;
.......................
end.

Отже щоб відключити контекстне меню повністю треба написати таку стрічку коду

EWB1.DisabledPopupMenus:=[rcmAll];

Після цього можна, наприклад, додати своє контестне меню використавши з палітри компонентів PopUpMenu.

Офіційний сайт розробників.

Безкоштовний компонент EmbeddedWB.

2010-02-08T12:24:00.000+02:00

Для тих, хто програмує з використанням у своїй програмі TWebBrowser буває виникають питання, як заборонити праву кнопку мишки, чи виділення тексту, чи ігнорування помилок.
Для вирішення цих проблем можна скористатися безкоштовним компонентом TEmbeddedWB.

Загальний опис

Пакет Embedded Web Browser - це група компонентів, яка демонструє легкий спосіб реалізації IDocHostUIHandler і IDocHostShowUI з TWebbrowser.
З цим пакетом ви можете створити свій власний веб браузер і маніпулювати в ньому вибраним (англ. Fаvorites), історією, також можети створити редактор веб сторінок,програму для чату і таке інше.
Компонент EmbeddedWB є обгорткою інтерфейсу IWebBrowser2 з Microsoft's Shell Doc Object і Control Library (SHDOCVW.DLL). Це дозволяє створювати власні програми з можливістю перегляду веб сторінок, файлів в мережі, документів, а також надання можливості завантаження даних в своїй програмі.
Оскільки TEmbeddedWB є обгорткою SHDOCVW.DLL, ви маєте мати на своєму комп'ютері цей файл. Ця Dll входить в комплект Internet Explorer 4 і вище.
Офійційний сайт розробників.

Про російську мову.

2010-02-05T17:51:00.001+02:00

Стаття про походження російської мови. На жаль не знаю автора. Стаття наведена мовою оригіналу! Можете з нею погоджуватися чи ні, але таке відображення данної теми теж має право на існування.

Почему все славяне понимают другие славянские языки без переводчиков (в том числе белорусы и украинцы), и только одни русские славянских языков не понимают – и им кажутся непонятными даже так называемые «восточно-славянские» языки Беларуси и Украины? Почему в России с пренебрежением относятся к якобы братскому славянскому украинскому языку, почему его никогда не преподавали и не преподают сегодня в российских школах, не хотят его учить русские в Восточной Украине и активно протестуют против самого статуса украинского языка как государственного на Украине? Хотя это – язык Киева, Матери городов Русских и Крестителя Руси, это сама СУТЬ РУСИ. Откуда этот странный для славян сепаратизм россиян, нежелание считать общими истоками Украину и Беларусь-ВКЛ? Ответить на эти и другие вопросы, наверно, поможет сама история становления языка России, который лишь с огромной натяжкой можно называть «русским» и тем более «славянским»…

НЕСЛАВЯНСКАЯ РОССИЯ

Начиная разговор о русском (российском) языке, следует прежде всего вспомнить, что Россия – это неславянская страна. К территориям, населенным древними околославянскими народностями, можно отнести лишь Смоленск, Курск, Брянск – территории древних кривичей (славянизированных западными славянами балтов). Остальные земли – финские, где никаких славян никогда не жило: чудь, мурома, мордва, пермь, вятичи и прочие. Сами главные топонимы исторической Московии – все финские: Москва, Муром, Рязань (Эрзя), Вологда, Кострома, Суздаль, Тула и т.д. Эти территории были за несколько веков завоеваны колонистами-ободритами Рюрика, приплывшими с Лабы (Эльбы), однако число колонистов (построивших возле Ладоги Новгород – как продолжение существовавшего тогда полабского Старогорода – ныне Ольденбурга) было в этих краях крайне мало. В редких городках-крепостях, основанных ободритами-русинами и норманнами (датчанами и шведами), жила горстка колониальных правителей с дружиной – сеть этих крепостей-колоний и называлась «Русью». А 90-95% населения края было неславянскими туземцами, подчинявшимися этим более цивилизованным оккупантам. Языком колоний был славянский койне – то есть язык, служащий для общения между народами с разными диалектами и языками. Постепенно за многие века местное туземное население перенимало этот койне; в Новгородской земле, как пишет академик Янов, этот процесс занял минимум 250 лет – судя по языку берестяных грамот, который из саамского становится постепенно индоевропейским, славянским аналитическим языком (с вынесенными за слово флексиями) и только затем нормальным славянским синтетическим. Кстати, об этом и пишет Нестор в «Повести временных лет»: что саамы Ладоги постепенно выучили славянский язык Рюрика и стали после этого называться «словенами» - то есть понимающими слово, в противоположность «немцам», немым – то есть языка не понимающим. (Термин «славяне» не имеет никакого отношения к термину «словене», так как происходит от изначального «склавены»). Вторыми после ладожских саамов стали перенимать славянский койне северные финские народы – мурома, весь (вепсы), чудь, но у них процесс занял гораздо больше времени, а у более южных финнов непосредственно мордовской Москвы и ее окружения принятие славянского койне затянулось до петровских времен, а кое-где и сохранились свои исконные туземные языки – как язык эрзя Рязани или финский говор вятичей. Характерное «оканье» населения Центральной России сегодня ошибочно считается «старославянским», хотя это – чисто финский диалект, который как раз отражает незавершенность славянизации края. (Кстати, лапти – это тоже чисто финский атрибут: славяне никогда лаптей не носили, а носили только кожаную обувь – тогда как все финские народы носят лапти.) Во время Золотой Орды Московия на три века уходит к этнически родственным народам финно-угров, которые собирали под свою власть ордынские цари. В этот период на язык региона оказывает огромное влияние тюркский язык (как часть вообще огромного влияния Азии). Показательна книга Афанасия Никитина (конец XV века) о «хождении за три моря». Там автор запросто переходит со славяно-финского койне Московии на ордынский язык, разницы в них не видя, а заканчивает свою книгу благодарственной молитвой: «Во имя Аллаха Милостивого и Милосердного и Исуса Духа Божия. Аллах велик…» В подлиннике: «Бисмилля Рахман Рахим. Иса Рух Уалло. Аллах акбар. Аллах керим».
В то время общей для Московии и Орды была религия, являвшаяся гибридом ислама и христианства арианского толка (равно почитали Иисуса и Магомета), а разделение веры произошло с 1589 г., когда Москва приняла греческий канон, а Казань приняла чистый ислам. В средневековой Московии существовало одновременно несколько языков. Околославянский койне – как язык княжеской знати. Народные языки туземцев (финские). Тюркские языки как религиозные в период пребывания в Орде и после захвата Иваном Грозным власти в Орде (до 1589 г.). И, наконец, болгарский язык – как язык православных текстов и религиозных культов. Вся эта смесь в итоге и стала основой для нынешнего русского языка, совпадающего в лексике только на 30-40% с другими славянскими языками, у которых (включая белорусский и украинский) это совпадение несоизмеримо выше и составляет 70-80%. Сегодня российские лингвисты в основном сводят истоки современного русского языка только к двум составляющим: это народный язык России (отнюдь не славянский, а славяно-финский койне с большим тюркским и монгольским влиянием) – и болгарский (древнеболгарский), он же «церковнославянский». (В качестве третьего языка России можно назвать современный литературный русский язык, который является совершенно искусственным кабинетным изобретением, эдаким «эсперанто» на основе двух указанных выше языков-источников; на этом «эсперанто» я и пишу статью.)

БОЛГАРСКАЯ СОСТАВНАЯ

Почему нынешний русский язык более похож на болгарский и сербский языки, чем на белорусский и украинский? (При этом в одну языковую группу с русским относят почему-то именно эти два языка, а не болгарский и сербский.) Это кажется странным, ведь территориально Россия не граничит с Балканами, а граничит с белорусами и украинцами, у которых в языках почти нет никакого болгарского влияния, а если оно и находится, то это – привнесенные уже через Россию балканские языковые реалии. В том и дело, что в России своих коренных славян не было (кроме редких поселений русичей (украинцев) в Суздальской земле в XII веке и массовых порабощений белорусов и украинцев в ходе войн Московии против ВКЛ и Речи Посполитой: только в войне 1654-1667 гг. московиты захватили в рабство несколько десятков тысяч белорусов). А потому изучение туземцами Московии славянского языка шло через религию, которая опиралась на болгарские тексты. Вот почему мордва Рязани, Москвы, Тулы, Костромы, Вятки, Мурома и прочих финских земель познавала славянский язык от болгарского языка – не имея своего местного славянского. И по этой причине даже то небольшое славянское содержание нынешнего русского языка (около 30-40% славянской лексики против 60-70% лексики финской и тюркской) – оно не общее с белорусами и украинцами, а общее с болгарами, от болгарских книг. А вот в Беларуси и Украине ситуация была иной: тут местное население (наполовину балтское в Беларуси и наполовину сарматское в Украине) все-таки имело народные славянские говоры, которые и не позволили внедряться болгарской лексике из православных книг, подменяя свою исконную местную славянскую лексику.

СЛАВЯНСКИЙ ЛИ ЯЗЫК РОССИИ?

Есть три момента, которые усиленно прячут все российские лингвисты (хотя, как в народе говорят, шила в мешке не утаишь). 1) До XVIII века язык Московии не считался никем в мире русским языком, а назывался конкретно языком московитов, московитским. 2) Русским языком до этого времени назывался именно и только украинский язык. 3) Язык Московии – московитский язык – не признавался до этого времени европейскими лингвистами (в том числе славянских стран) даже славянским языком, а относился к финским говорам. Конечно, сегодня все не так: ради имперских интересов завоевания славянских стран Россия оказала огромное влияние на свою лингвистическую науку, ставя ей задачу придания языку России «славянского статуса». Причем, если бы западнее России жили германские народы, то точно так она бы доказывала, что русский язык – из семьи германских языков: ибо таков был бы заказ Империи. И языковые реформы российского языка, начатые еще Ломоносовым, были как раз направлены на акцентирование его слабых славянских черт. Однако, как писал еще 150 лет назад польский славист Ежи Лещинский о родственных славянам западных балтах, «прусский язык имеет намного больше оснований считаться славянским, чем великорусский, у которого с польским языком и другими славянскими гораздо меньше общего, чем даже у западно-балтского прусского языка». Напомню, что Россия стала называться «Россией» впервые официально только при Петре I, который считал прежнее название – Московия – темным и мракобесным. Петр не только стал насильно брить бороды, запретил ношение всеми женщинами Московии чадры на азиатский манер и запретил гаремы (терема, где женщин держали взаперти), но и в поездках по Европе добивался от картографов, чтобы отныне на картах его страну называли не Московией или Московитией, как прежде, а Россией. И чтобы самих московитов стали впервые в истории считать славянами, что было общей стратегией по «прорубанию окна в Европу» – вкупе с просьбой Петра перенести восточную границу Европы от границы между Московией и ВКЛ теперь уже до Урала, включая тем самым впервые в истории географически Московию в состав Европы. До этого польские и чешские лингвисты и создатели славянских грамматик четко разграничивали русский язык (украинский) и московитский, а сам этот московитский язык не причисляли к семье славянских языков. Ибо язык Московии был скуден на славянскую лексику. Как пишет российский лингвист И.С. Улуханов в работе «Разговорная речь Древней Руси» («Русская речь», №5, 1972), круг славянизмов, регулярно повторявшихся в живой речи народа Московии, расширялся очень медленно. Записи живой устной речи, произведенные иностранцами в Московии в XVI-XVII веках, включают только некоторые славянизмы на фоне основной массы местной финской и тюркской лексики. В «Парижском словаре московитов» (1586) среди ВСЕГО СЛОВАРЯ народа московитов находим, как пишет И.С. Улуханов, лишь слова «владыка» и «злат». В дневнике-словаре англичанина Ричарда Джемса (1618-1619) их уже больше – целых 16 слов («благо», «блажить», «бранить», «воскресенье», «воскреснуть», «враг», «время», «ладья», «немощь», «пещера», «помощь», «праздникъ», «прапоръ», «разробление», «сладкий», «храмъ»). В книге «Грамматика языка московитов» немецкого ученого и путешественника В. Лудольфа (1696) – их уже 41 (причем,некоторые с огромным финским «оканьем» в приставках – типа «розсуждать»). Остальная устная лексика московитов в этих разговорниках – финская и тюркская.
У лингвистов той эпохи не было никаких оснований относить язык московитов к «славянским языкам», так как самих славянизмов в устной речи не было (а именно устная речь народа является тут критерием). А потому и разговорный язык Московии не считался ни славянским, ни даже околорусским: крестьяне Московии говорили на своих финских говорах. Характерный пример: русского языка не знал и мордвин Иван Сусанин Костромского уезда, а его родня, подавая челобитную царице, платила толмачу за перевод с финского костромского на российский «государев» язык. Забавно, что сегодня абсолютно мордовская Кострома считается в России «эталоном» «русскости» и «славянства» (даже рок-группа есть такая, поющая мордовские песни Костромы на русском языке, выдавая их за якобы «славянские»), хотя еще два столетия назад никто в Костроме по-славянски не говорил. И тот факт, что Московская церковь вещала на болгарском языке (на котором писались и государственные бумаги Московии), - ничего не значил, так как вся Европа тогда в церквях говорила на латыни и вела делопроизводство на латинском языке, и это никак не было связано с тем, что за народы тут проживают. Напомню, что после Люблинской унии 1569 года, когда белорусы создали с поляками союзное государство – Республику (по-польски – Речь Посполитая), ВКЛ сохраняла своим государственным языком белорусский (то есть русинский), а Польша ввела государственным латинский язык. Но это вовсе не говорит о том, что народный язык поляков – это латинский язык. Точно так и русский язык не был тогда народным в Московии-России – пока российские деревни его не выучили. Вот еще пример: сегодня (и исстари) в деревнях Смоленской, Курской и Брянской областей (входивших когда-то в состав ВКЛ) говорят вовсе не на русском, а на белорусском языке. На литературном русском там не говорят, как и никто не «окает» - отражая финский акцент, как в Рязанской или в Московской областях, а говорят совершенно на том языке, на котором говорят селяне Витебской или Минской областей. Любой лингвист должен делать один вывод: в этих российских областях живет белорусское население, ибо говорит на белорусском языке. Но это население относят этнически почему-то к «окающим» восточным соседям, которые во времена Лудольфа там знали только 41 славянское слово. И.С. Улуханов пишет, что говоря о существовании у московитов двух языков – славянского (церковного болгарского) и своего московитского, В. Лудольф сообщал в «Грамматике языка московитов»: «Чем более ученым кто-нибудь хочет казаться, тем больше примешивает он славянских выражений к своей речи или в своих писаниях, хотя некоторые и посмеиваются над теми, кто злоупотребляет славянским языком в обычной речи». Удивительно! Что же это за такой «славянский язык» Москвы, над которым посмеиваются за употребление славянских слов вместо своих слов финских и тюркских? Такого не было в Беларуси-ВКЛ – тут никто не смеется над людьми, использующими в речи славянские слова.Наоборот – никто не поймет того, кто строит фразы, используя вместо славянской лексики финскую или тюркскую. Этого «двуязычия» не существовало нигде у славян, кроме как в одной Московии. (Кстати, Статуты ВКЛ были написаны на самом чистом славянском языке – государственном в Великом Княжестве Литовском и Русском, сугубо славянском государстве, где литвинами были славяне – нынешние белорусы.) Эта проблема «двуязычия» из-за отсутствия в России народной славянской основы преследовала всегда и создателей литературного русского языка – как вообще главная проблема российского языка. (Он прошел «стадии развития термина», называясь вначале московитским, затем российским при Ломоносове – до 1795 г., затем при оккупации Россией в 1794 году (закрепленной формально в 1795) Беларуси и Западной и Центральной Украины пришлось его менять на «великорусское наречие русского языка»
Именно так русский язык фигурировал в 1840-х годах в названии словаря Даля («Толковый словарь великорусского наречия русского языка», где под самим русским языком обще понимался белорусский, украинский и российский), хотя сегодня все российские лингвисты ненаучно исказили название словаря Даля до «Толковый словарь живого русского языка», хотя словаря с таким названием он никогда не писал.) В 1778 году в Москве была издана брошюра писателя и лингвиста Федора Григорьевича Карина «Письмо о преобразителях российского языка». Он писал: «Ужасная разность между нашим языком [всюду в работе он называет его «московским наречием»] и славянским часто пресекает у нас способы изъясняться на нем с тою вольностию, которая одна оживляет красноречие и которая приобретается не иным чем, как ежедневным разговором. …Как искусный садовник молодым прививком обновляет старое дерево, очищая засохлые на нем лозы и тернии, при корени его растущие, так великие писатели поступили в преображении нашего языка,который сам по себе был беден, а подделанный к славянскому сделался уже безобразен». («Беден» и «безобразен» - это, конечно, расходится с будущей его оценкой как «великий и могучий». Оправданием тут служит факт, что Пушкин пока не родился для молодого зеленого языка,созданного только что экспериментами Ломоносова.) Опять обращаю внимание: этой проблемы никогда не было у белорусов, поляков, чехов, болгар, украинцев, сербов и остальных славян – где язык селян органично становится языком страны и народа. Это чисто российская уникальная проблема – как сочетать финский язык селян со славянским языком государства (например, в Беларуси это нелепо: спорить о возможном «засилии славянизмов в письменной речи», подразумевая, как в России, засилие болгарской лексики, когда сама белорусская лексика является такой же совершенно славянской лексикой и такими же славянизмами – то есть нет самого предмета для такого спора, ибо славянизмы болгарского языка никак не могут «испортить» и без того основанный только на славянизмах белорусский язык – маслом масло не испортишь). В итоге российские лингвисты героически порывают «пуповину» многовековой связи культуры Москвы с болгарским языком, который дружно находят «чуждым», «вычурным в условиях России», «тормозящим становление литературного российского языка». И отвергают болгарский язык, смело падая в лоно народного языка («московского наречия»), который на 60-70% процентов состоит из неславянской лексики. Великими деятелями, которые совершают эту языковую революцию в России, Ф.Г. Карин в своей работе называет Феофана Прокоповича, М.В. Ломоносова и А.П. Сумарокова. Так в самом конце XVIII века Россия отказалась от следования болгарскому языку, который ее веками,как веревочка, удерживал в славянском поле и обращал «во славянство», - и стала лингвистически себя считать свободной и суверенной, признавая своим языком теперь не болгарский, а тот народный язык славянизированных финнов, который отнюдь не имел, как болгарский, явных славянских черт. Патриотизм победил славянское единство.
Мелетий Смотрицкий, белорусский просветитель, работавший в Вильно и Киеве, автор изданной в 1619 году в Евье «Граматiки словенскiя правильное синтагма», задолго до «революционера» в русской лингвистики Ломоносова, создателя грамматики российского языка, создавал научные основы языка русинов. Как и в Грамматике Л.Зизания, он четко отличал болгарский церковный язык от нашего: «Словенски переводимъ: Удержи языкъ свой от зла и устнъ своъ же не глати лсти. Руски истолковуемъ: Гамуй языкъ свой от злого и уста твои нехай не мовятъ здрады». Ясно абсолютно (как и далее по его книге), что русским языком автор считает нынешний украинский язык (точнее – тот русинский язык, который в его время был общим для белорусов и украинцев). А вовсе не язык Московии-России. «Нехай», «мовять», «здрады» - это чисто белорусско-украинские слова, которые Мелетий Смотрицкий называет «переводом на русский язык». Ясно, что это всем бросается сразу в глаза, поэтому автор статьи в журнале «Русская речь» «Московское издание Грамматики М.
Смотрицкого» доктор филологических наук В.В. Аниченко из Гомельского государственного университета облекает язык, на который Смотрицкий переводит церковно-болгарский язык, в такую формулу: «так называемый «русский»». Так называемый Мелетием Смотрицким? И так называемый всем народом ВКЛ той эпохи? Тут явно желание доктора наук не будоражить российских коллег: мол, все нормально – то, что у нас народ называл исстари русским языком, - это только «так называемый «русский язык»». А «не так называемый», настоящий – был только у России. Болгарский по содержанию. А Мелетий Смотрицкий заблуждался в терминах. Ненаучно перевирать средневековых авторов. Если они четко пишут, что русский язык – это по своему содержанию именно украинский язык, а не московский, то зачем юлить? Зачем переписывать историю? Тем более что в таком ненаучном подходе сам нынешний украинский язык становится аномалией – с Луны упал на Киев, чужд, потому что «так называемый». А ведь книги Мелетия Смотрицкого показательны: русское – это наше народное исконное, что само собой и сегодня есть в реалиях украинского и белорусского языков, а российское – это не русское, а основанное на болгарском. И переводы, которые делает в книге Мелетий Смотрицкий с болгарского на русский – это фактически переводы с российского на русский – на украинский и белорусский. Тут нет ничего этнически российского, что ныне именуется «русским», а есть только болгарское, которое нуждается в переводе на русский язык – для белорусов и украинцев, тогда именовавшихся русинами.