Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1134
от 03.05.2008, 07:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 458, Экспертов: 50
В номере:Вопросов: 15, Ответов: 17

Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>


Вопрос № 133801: Здраствуйте, уважаемые эксперты. Вопрос таков: в в WinXP существует такая последовательность действий: Пуск->Подключение->Internet->Вызов. Как можно реализовать это програмно? Или же просто как управлять сетевыми подключениями (...
Вопрос № 133815: Здравствуйте. Нужна ваша помощь, сам не справлюсь. такая задача стоит: Произведение двух натуральных чисел больше максимально допустимого значения(не вмещается в разрядную сетку машины). Найти это произведение. Как такое реализовать? Думаю чт...
Вопрос № 133875: Здравствуйте, уважаемые эксперты. Возник такой вопрос: как в InputBox сделать коррекцию ввода данных ( напр. ввод только цифр и т.п.) ? Если не тяжело-напишите код. Заранее благодарен.<p><fieldset style='background-color:#EFEFEF; width:80%; border:1p...
Вопрос № 133885: Здраствуйте, помогите пожалуйста! Запутался в приведённой ниже программе: Предположим, что уже построен и задан указателем P однонаправленный список, элементами которого являются целые числа. Написать программу, которая удаляет из него все отрицатель...
Вопрос № 134001: есть 2 списка и кнопка. при нажатии на кнопку все элементы одного списка становятся в начало второго списка. P.S. я знаю что это не сложно. но ничего не знаю в дельфи)) напишите полностью прогу..Я ставлю 2 ListBox и кнопку...при нажатии на кнопку...Вопрос № 134005: Здравствуйте уважаемые эксперты. Помогите мне пожалуста в написании одной маленькой программки. Есть форма, на ней есть RadioButton1, Image1, и простая кнопка. RadioButton1 озаглавлен как 32 х 32, в Image1 я загружаю картинку которая будет переко...
Вопрос № 134090: Уважаемые эксперты! Не могу понять почему: DateEdit1.Text := DateToStr(Date); дает ошибку: Date - Inaccessible value Не работает функция Date и Now Спасибо...
Вопрос № 134093: Здравствуйте! Могу я программно на delphi7 задать копирование файла на клиентский компьютер с другого компьютера , где файл лежит в папке доступной на чтение и запись ,но запороленной? команда CopyFile('\192.168.0.10asupshtat.xls','c:2s...
Вопрос № 134187: Здравствуйте уважаемые эксперты! Как выборочно выделять стилем и цветом шрифта и фона строки (элементы) в компонентах ListView и TreeView? Заранее спасибо....
Вопрос № 134192: Здравствуйте, эксперты, помогите разобраться. на форме есть поле Edit1, мне нужно в него записать число, и чтобы оно сохранилось в каком-нибудь файле, а потом при следующем запуске программы, во второй скажем форме при нажатии кнопке оно выводилось с...
Вопрос № 134279: Здравствуйте, уважаемые эксперты. Вот мой вопрос: Допустим, я создал форму, расположил на ней кнопку SpeedButton1. В обработчике OnClick этой кнопки вписал ссылку на сайт. Я никогда не пользовался с .ini-файлом. Как создать его, и как сделать т...
Вопрос № 134301: Здравствуйте! Как сделать программу которая соединялась бы с определенным компьютером в локальной сети(ip 10.20.50.205) и брала системное время этого компьютера и устанавливала его на компьютере с которого была запущена. Помогите кодом пожалуйста и л...
Вопрос № 134330: Здравствуйте! При решении задачи у меня появился вопрос: как можно определить четность вещественного числа! или подскажите как можно решить задачу, в которой дается функция, явно резудьтат которой будет вещественен, и такой же аргумент!...
Вопрос № 134430: Здравствуйте уважаемые эксперты. Я создаю игру в кубик. Играют двое, ход поочереди. ход состоит в том что игрок подбрасывает кубик до тех пор,пока не решит остановить игру или не выпадет 0. Если игрок останавливает игру,сумма всех очков за данный ход...
Вопрос № 134454: На форме в Delphi7 при помощи метода create создаются кнопки Tbutton как во время выполнения программы присвиить им уникальный код для каждой кнопки???????????? HELP please!!!!...

Вопрос № 133.801
Здраствуйте, уважаемые эксперты. Вопрос таков: в
в WinXP существует такая последовательность действий:
Пуск->Подключение->Internet->Вызов.
Как можно реализовать это програмно? Или же просто как управлять сетевыми подключениями (Подключать, отключать).
Заранее спасибо.
Отправлен: 23.04.2008, 16:04
Вопрос задал: Шаймарданов Антон Равилевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sosedov A.I.
Здравствуйте, Шаймарданов Антон Равилевич!

Посмотрите эти ссылочки.
Здесь
http://articles.org.ru/cn/showdetail.php?cid=5212
хорошо описана команда rasdial
Здесь
http://www.delphisources.ru/pages/faq/base/inet_connect.html
показан пример ее использования.
Сам не проверял.
Ответ отправил: Sosedov A.I. (статус: 6-ой класс)
Ответ отправлен: 24.04.2008, 16:56


Вопрос № 133.815
Здравствуйте. Нужна ваша помощь, сам не справлюсь. такая задача стоит:
Произведение двух натуральных чисел больше максимально допустимого значения(не вмещается в разрядную сетку машины). Найти это произведение.
Как такое реализовать? Думаю что через строки, но незнаю даже с чего начать. Очень надеюсь на вашу помощь.
Отправлен: 23.04.2008, 17:01
Вопрос задал: Dimon007 (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Sosedov A.I.
Здравствуйте, Dimon007!

Вот наскоро написанный примерчик перемножения натуральных чисел. Реализован алгоритм умножения в столбик.

Приложение:

Ответ отправил: Sosedov A.I. (статус: 6-ой класс)
Ответ отправлен: 24.04.2008, 12:19
Оценка за ответ: 5


Вопрос № 133.875
Здравствуйте, уважаемые эксперты. Возник такой вопрос: как в InputBox сделать коррекцию ввода данных ( напр. ввод только цифр и т.п.) ? Если не тяжело-напишите код. Заранее благодарен.

Исправлено в соответствии с комментарием в мини-форуме.
-----
∙ Отредактировал: Николай Владимирович / Н.В. (Профессор)
∙ Дата редактирования: 24.04.2008, 15:52
Отправлен: 24.04.2008, 00:01
Вопрос задал: Gaolong (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Sosedov A.I.
Здравствуйте, Gaolong!

Учитывая Ваши поправки в мини-форуме, составил процедурку (см. приложение).
Конечно, сама идея зациклить вызов InputBox не очень хороша, но свой ответ я составил только в рамках Вашего вопроса. Может, другие эксперты дадут иные варианты.

Приложение:

Ответ отправил: Sosedov A.I. (статус: 6-ой класс)
Ответ отправлен: 24.04.2008, 15:00


Вопрос № 133.885
Здраствуйте, помогите пожалуйста! Запутался в приведённой ниже программе: Предположим, что уже построен и задан указателем P однонаправленный список, элементами которого являются целые числа. Написать программу, которая удаляет из него все отрицательные числа.
Если вам не трудно, напишите весь код этой программы.
Заранее спасибо!!!
Отправлен: 24.04.2008, 02:35
Вопрос задал: Редкобородый Сергей Витальевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sosedov A.I.
Здравствуйте, Редкобородый Сергей Витальевич!

Текст Вашей программы находится в приложении.

Приложение:

Ответ отправил: Sosedov A.I. (статус: 6-ой класс)
Ответ отправлен: 24.04.2008, 09:01
Оценка за ответ: 5
Комментарий оценки:
огромное спасибо! Вы мне очень помогли!


Вопрос № 134.001
есть 2 списка и кнопка. при нажатии на кнопку все элементы одного списка становятся в начало второго списка. P.S. я знаю что это не сложно. но ничего не знаю в дельфи))
напишите полностью прогу..Я ставлю 2 ListBox и кнопку...при нажатии на кнопку все элементы первого списка становятся в начало второго...P.S.напишите пожалуста все...весь код...

Добавлено уточнение задания.
-----
∙ Отредактировал: Николай Владимирович / Н.В. (Профессор)
∙ Дата редактирования: 27.04.2008, 15:36
Отправлен: 24.04.2008, 19:12
Вопрос задал: Трошин Денис Алексеевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 5)

Отвечает: SHERRY
Здравствуйте, Трошин Денис Алексеевич!
Вот, пожалуйста.

var
i: integer;
begin
for i:=0 to ListBox1.Items.Count-1 do
ListBox2.Items.Insert(i, ListBox1.Items[i]);
end;
---------
Самурай без меча подобен самураю с мечём, только без меча..
Ответ отправил: SHERRY (статус: 8-ой класс)
Ответ отправлен: 24.04.2008, 20:23
Оценка за ответ: 4
Комментарий оценки:
Cпасибо конечно..но мне надо было весь текст программы..(вместе с созданием списков.).


Вопрос № 134.005
Здравствуйте уважаемые эксперты. Помогите мне пожалуста в написании одной маленькой программки.
Есть форма, на ней есть RadioButton1, Image1, и простая кнопка. RadioButton1 озаглавлен как 32 х 32, в Image1 я загружаю картинку которая будет переконвертированна в *.ico подскажите, как мне прописать, чтоб bmp переконвертировать в ico размером 32 пикселя.
Отправлен: 24.04.2008, 19:46
Вопрос задал: Koffi (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Абельхарисов Руслан / Marked One
Здравствуйте, Koffi!
Вот статья из Delphi World: "O сохранении иконок 32х32 в 256-цветном формате" (http://delphiworld.narod.ru/base/save_32_ico.html)
Может быть поможет Вам.
Удачи!!!
Ответ отправил: Абельхарисов Руслан / Marked One (статус: 9-ый класс)
Ответ отправлен: 24.04.2008, 20:42
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо, очень помогло.....тока немножко отредактировать нада. но эт я сам как-нить справлюсь. Огромное спасибо что откликнулись и помогли мне.


Вопрос № 134.090
Уважаемые эксперты! Не могу понять почему:
DateEdit1.Text := DateToStr(Date);
дает ошибку:
Date - Inaccessible value
Не работает функция Date и Now

Спасибо
Отправлен: 25.04.2008, 11:46
Вопрос задал: ПАН (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 14)

Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, ПАН!

Судя по всему, сообщение "Inaccessible value" Вы получаете когда при отладке хотите просмотреть значения.
Для функций необходимо при добавлении выражения в Watches указать опцию "Allow Function Calls"
Ответ отправил: Лукьяненко Алексей Валериевич (статус: Студент)
Ответ отправлен: 25.04.2008, 11:53
Оценка за ответ: 5
Комментарий оценки:
Не была указана эта опция. Правда проблему это не решило. При присвоении DataEdit значения текущей даты происходит ошибка. Где и что я внес, что так повлияло, не знаю. Спасибо.


Вопрос № 134.093
Здравствуйте! Могу я программно на delphi7 задать копирование файла
на клиентский компьютер с другого компьютера , где файл лежит в папке доступной на чтение и запись ,но запороленной?
команда CopyFile('\192.168.0.10asupshtat.xls','c:2shtat.xls',true) не проходит
Отправлен: 25.04.2008, 12:12
Вопрос задала: Igorb (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Mishell
Здравствуйте, Igorb!
можно скопировать с пом. ShellApi
с паролем не пробовал - но поидее винда Windows (шелл) сама спросит пароль
см. пример тут

Исправлена длинная ссылка.
Исправлен сленг.

-----
∙ Отредактировал: Admiral (Профессор)
∙ Дата редактирования: 28.04.2008, 08:54
Ответ отправил: Mishell (статус: Студент)
Ответ отправлен: 25.04.2008, 12:42
Оценка за ответ: 4
Комментарий оценки:
НЕ ЗАРАБОТАЛО КАК БЫ Я ХОТЕЛА - ПОДРОБНОСТИ НА ФОРУМЕ


Вопрос № 134.187
Здравствуйте уважаемые эксперты! Как выборочно выделять стилем и цветом шрифта и фона строки (элементы) в компонентах ListView и TreeView? Заранее спасибо.
Отправлен: 25.04.2008, 22:21
Вопрос задал: Кабанов Денис Николаевич (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович
Здравствуйте, Кабанов Денис Николаевич!

Пример есть здесь
http://www.az-design.ru/Support/DataBase/002b4200.shtml

коды лежат здесь:
http://www.az-design.ru/Support/DataBase/002b1000.shtml

Приложение:

---------
Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист)
Ответ отправлен: 26.04.2008, 08:11
Оценка за ответ: 5


Вопрос № 134.192
Здравствуйте, эксперты, помогите разобраться. на форме есть поле Edit1, мне нужно в него записать число, и чтобы оно сохранилось в каком-нибудь файле, а потом при следующем запуске программы, во второй скажем форме при нажатии кнопке оно выводилось скажем в Label1. НО еще проблема в том что у меня будет много чисел, и мне нужно чтобы я мог выбирать и работать с этими числами, если можно пример с 2-3 числами,.. Заранее спасибо! ! !
Отправлен: 25.04.2008, 22:54
Вопрос задал: Makavely (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: SHERRY
Здравствуйте, Makavely!
Сомневаюсь, что мой код является универсальным, но по-крайней мере Вы сможете понять несколько моментов по работе с типизированными файлами.
См.приложение

Приложение:

---------
Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 8-ой класс)
Ответ отправлен: 25.04.2008, 23:11
Оценка за ответ: 4
Комментарий оценки:
Спасибо, будет от чего отталкиваться..


Вопрос № 134.279
Здравствуйте, уважаемые эксперты. Вот мой вопрос:
Допустим, я создал форму, расположил на ней кнопку SpeedButton1. В обработчике OnClick этой кнопки вписал ссылку на сайт. Я никогда не пользовался с .ini-файлом. Как создать его, и как сделать так, чтобы можно было открывать его, и там указывать ссылку на сайт, которая будет использоваться в программе по нажатию на SpeedButton1? Пожалуйста, ответьте поподробнее. Заранее Вам большое спасибо.
Георгий.

Приложение:

Отправлен: 26.04.2008, 19:22
Вопрос задал: Чечин Георгий Александрович (статус: 3-ий класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Абельхарисов Руслан / Marked One
Здравствуйте, Чечин Георгий Александрович!
В приложении код с коментариями.
На форме SpeedButton1 и Button1
Про Ini можете прочитать тут и тут.
Удачи!!!

Исправлены длинные ссылки.
-----
∙ Отредактировал: Николай Владимирович / Н.В. (Профессор)
∙ Дата редактирования: 27.04.2008, 07:45

Приложение:

Ответ отправил: Абельхарисов Руслан / Marked One (статус: 9-ый класс)
Ответ отправлен: 26.04.2008, 21:04

Отвечает: Моисеева Наталья Павловна
Здравствуйте, Чечин Георгий Александрович!

Создание ini-файла - это создание простого текстового файла с расширением ini. Например создадим NameFile.ini. Затем в файле создадим секция. Секцию можно назвать как угодно, лишь бы было понятно вам. Например NameWWW. Секция заключают в квадратные скобки, т.е. [NameWWW]. Затем ниже описываем необходимые переменные. В данном случаем название сайте. Называем эту переменную, к примеру, sait и пишем sait=http://www.site.com. Сохраняем файл в директории проекта.

В программе в uses прописываем IniFiles. В константе прописываем:
const
S_INIFILE = '.NameFile.INI';
S_INISECTION = 'NameWWW';

Затем в процедуре нажатия на кнопку прописываем:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
MyIniFile: TIniFile;
s:string;
begin
MyIniFile := TIniFile.Create(S_INIFILE);
with MyIniFile do
begin
s:=ReadString(S_INISECTION,'sait','.'); //в s храним значение считанной переменной sait из ini-файла
end;
MyIniFile.Free;
ShellExecute(Handle, nil, PChar(s), nil, nil, SW_SHOW);
end;
Ответ отправила: Моисеева Наталья Павловна (статус: 1-ый класс)
Ответ отправлен: 27.04.2008, 12:39
Оценка за ответ: 5
Комментарий оценки:
Спасибо. Попробую. Большое спасибо.


Вопрос № 134.301
Здравствуйте! Как сделать программу которая соединялась бы с определенным компьютером в локальной сети(ip 10.20.50.205) и брала системное время этого компьютера и устанавливала его на компьютере с которого была запущена. Помогите кодом пожалуйста и любой информацией на эту тему. Благодарю за внимание.
Отправлен: 26.04.2008, 22:40
Вопрос задал: rewer8 (статус: Студент)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Drbear
Здравствуйте, rewer8!

Попробуйте такой вариант:
WinExec('net time \127.0.0.1 /SET /Y);

Надеюсь, помог Вам.
Ответ отправил: Drbear (статус: 9-ый класс)
Ответ отправлен: 28.04.2008, 09:41
Оценка за ответ: 5
Комментарий оценки:
Спасибо! Попробую после праздников Чувствую что должно сработать
С праздником 1 МАЯ!


Вопрос № 134.330
Здравствуйте! При решении задачи у меня появился вопрос: как можно определить четность вещественного числа! или подскажите как можно решить задачу, в которой дается функция, явно резудьтат которой будет вещественен, и такой же аргумент!
Отправлен: 27.04.2008, 10:40
Вопрос задал: KOTik (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В.
Здравствуйте, KOTik!
Подобный вопрос уже когда-то поднимался на Портале...
Четность в теории чисел — способность целого числа делиться без остатка на 2. (wikipedia.org)
Таким образом для вещественных чисел нет понятия четности => Ваша задача некорректна.

Можно сделать следующее:
1. отбросить дробную часть числа функцией trunc (возвращает целую часть вещественного числа) и проверить является ли целое число четным с помощью целочисленного деления на 2.
Выглядеть будет так:
var a : real;
begin
  if trunc(a) mod 2 = 0 then
    // целая часть числа четная
  else
    // целая часть числа нечетная
end;


2. если известно количество символов в дробной части числа, то м ожно умножить на 10n где n - количество символов в дробной части. У получившегося числа отбросить дробную часть и проверить целую на четность как в первом примере.

Если будут вопросы, пишите в мини-форум.

Удачи!
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор)
Россия, Москва
WWW: nvsoft.org
ICQ: 420720
----
Ответ отправлен: 27.04.2008, 12:20
Оценка за ответ: 5
Комментарий оценки:
Спасибо за исчерпывающий ответ!Я так и предполагал, но уж какую задачу дали...


Вопрос № 134.430
Здравствуйте уважаемые эксперты. Я создаю игру в кубик. Играют двое, ход поочереди. ход состоит в том что игрок подбрасывает кубик до тех пор,пока не решит остановить игру или не выпадет 0. Если игрок останавливает игру,сумма всех очков за данный ход суммируется и ход передается, если выпадает 0 то все очки за этоот ход "сгорают" и ходит другой игрок.
Вопрос в том,как реализовать передачу хода? Подскажите пожалуйста
Отправлен: 27.04.2008, 20:29
Вопрос задал: Serpenser (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Моисеева Наталья Павловна
Здравствуйте, Serpenser!

На сколько я поняла вам необходимо что бы игрок играл и в какой то момент передал ход другому. После втрой игрок поиграм и опять передал ход первому. И так могут играть сколько угодно. Также условие останова и передачи хода если выпал ноль. То процедуры см в приложении :)
Удачи дописать программу.

Приложение:

Ответ отправила: Моисеева Наталья Павловна (статус: 1-ый класс)
Ответ отправлен: 28.04.2008, 05:49


Вопрос № 134.454
На форме в Delphi7 при помощи метода create создаются кнопки Tbutton как во время выполнения программы присвиить им уникальный код для каждой кнопки????????????
HELP please!!!!
Отправлен: 28.04.2008, 00:34
Вопрос задал: NeoAlexUA (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Виктор Пырлик
Здравствуйте, NeoAlexUA!

В приложении показан пример..
Событие кнопки - это обычная процедура, просто связанная с этой кнопкой. А потому, вы можем сами назначать эти события, которые опишем..

Приложение:

---------
Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Профессионал)
Россия, Свердловская обл.
Тел.: +7(34386) 53-5-98
ICQ: 490191733
----
Ответ отправлен: 28.04.2008, 06:25

Отвечает: PavelGM
Здравствуйте, NeoAlexUA!

TЕсли вам нужен единый обработчик для всех кнопок и хотите в нем отличать кнопки, то можно воспользоваться свойством Tag и присваивать ему уникальный код при создании кнопки, а потом распознавать его в обработчике, например так:

procedure TForm1.BtnClick(Sender: TObject);
begin
case (Sender as TButton).Tag of
1 : ShowMessage('Button 1');
2 : ShowMessage('Button 1');
end;
end;

Ответ отправил: PavelGM (статус: Студент)
Ответ отправлен: 28.04.2008, 10:38


Вы имеете возможность оценить этот выпуск рассылки.
Нам очень важно Ваше мнение!
Оценить этот выпуск рассылки >>

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2008, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале

∙ Версия системы: 4.91 pre 5.0 RC1 от 13.04.2008

Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное