Ребят привет. Самостоятельно разобрался с методом компонента Tmemo.
А именно, меня интересовало сохранение выделения. Для реализации необходимо объявить переменную buf типа PAnsiChar – указатель.
Вот код.
Var //Описание переменных которые будем использовать.
Form1: TForm1;
buf :PAnsiChar; //Переменная указатель.
implementation
procedure TForm1.Button1Click(Sender: TObject);//Весь код я прописал по клику на кнопку
begin
memo1.SetFocus; //Установка фокуса.
memo1.SelStart := 1; //Начало выделения
Memo1.SelLength := 100; //Длинна выделения.
getmem (buf,200); //Резервирование памяти. Это ключевой момент, не зарезервировав память, ничего не выйдет.
Memo1.GetSelTextBuf(buf,20); //Метод сохранения выделения в буфер.
ShowMessage (buf) //Вывод значения которое сохранено в памяти.
st := buf; //Присваивание значения строковому типу
ShowMessage (st[1]); //Вывод первого символа переменной строкового типа.
end;
end.
Теоретически всё должно быть понятно. Сам наступил на грабли когда не резервировал память для переменной (процедура freemem).
Спасибо.
Артём Зайцев
Привет дорогие.
Наткнулся на одном сайте, на небольшой список ключей к антивирусу nod3.
Как обычно производитель ПО хочет денег, а кто не хочет платить - ищут альтернативные пути.
Вот список.
(далее…)
Проект Reactos скоро выйдет на стадию бета тестирования.
Установочный CD
С помощью Установочного CD Вы можете установить систему ReactOS на компьютер.
Live CD
Live CD позволяет Вам попробовать ReactOS без необходимости установки на жесткий диск.
Предустановленный в QEMU
Данный вариант содержит последнюю версию ОС ReactOS предустановленную в виртуальной машине QEMU. Версия самого QEMU для Windows также содержится в этом дистрибутиве, что позволяет Вам попробовать ReactOS наиболее простым
Предустановленная в виртуальной машине VMware
Этот дистрибутив содержит виртуальную машину типа VMware с предустановленной ОС ReactOS.
Zaitsev Artyom
Давно не писал о ирк чате CIIC.
Со дня последнего поста произошло много изменений в функциональности программы.
Его основные характеристики.
- не требует установки
- анимированные смайлы со звуковым сопровождением
- возможность установить статус пользователя (в сети, отошел, хочу общаться)
- отображение пола собеседника (совместимо с KVIrc)
- аватары пользователей
- на русском языке
- распространяется по лицензии GNU GPL - именно, теперь Вы можете скачать исходный код всего проекта.
Скачать загрузить Irc клиент CIIC версии 0.0.57.0
Скачать загрузить исходный код (не путать с самой программой) Irc клиент CIIC версии 0.0.57.0
С уважением Зайцев Артём aka artyomkaes
Программы для интернет клубов, компьютерных клубов.
Хорошая тема если она взломанная. Качайте, в архиве есть реально рабочий патч.
Только перед установкой патча, не забудьте ознакомится - как это сделать?
Спасибо spyder который поломал данную программу.
Всё что нужно и лекарство 
лежат в архиве по ссылке ниже.
Пользуйтесь!
Скачать загрузить download Club Control 3.6 ClubControl 3.8 Клуб контроль 3.7 Хорошая Программа для интернет клуба компьютерного клуба интернет кафе Crack Patch KeyGen лекарство
С уважениме Artyom Zaitsev
Наверно каждый знает для чего нужен этот пакет.
Многие приложения разработанные под платформу дотнет не запускаются без этой платформы.
Качайте ниже по ссылке.
Скачать загрузить бесплатно NET Framework 2.0 NETFramework 2.0 Dotnet 2.0
Восстановление удалённых данных - весьма важный вопрос!!!
Существует очень много различного программного обеспечения в этом роде. Лично я остановил свой выбор на GetDataBack for NTFS. NTFS говорит о том что программа работает с файловой системой NTFS, существует GetDataBack for FAT32.
В архиве лежит лекарство, всё как нужно.
Программа с легкостью восстанавливает данные после форматирования раздела. Восстанавливает так же структуру каталогов - что немаловажно при поиске восстанавливаемых данных!
Качать по ссылке ниже.
Скачать загрузить download GetDataBack for NTFS v3.03 crack patch лекарство keygen ключ серийный номер
С уважениме Artyom Zaitsev
Не совсем давно вышел пакет Nero 8. Если хотите им пользоваться, нужны ключи. Так вот. В архиве лежит кейген, так же в этом keygenе можно активировать плагины для неро 8.
Качать ниже по ссылке.
Скачать загрузить Nero 8 crack patch лекарство keygen
С уважением Zaitsev Artyom
Всем доброго времени суток. Скачивайте ЧУДНУЮ среду разработки турбо паскаль. Именно с помощью этого языка программирования, программисты начинают писать свои первые программы. Им по сей день пользуются многие колледжи, университеты не говоря о школах.
В данном пакете есть модуль graph. Есть пару моих исходников, и игра пинг понг с возможность игры в режиме arcanoid (арканоид).
Если будут вопросы по поводу установки, настройке среды - пишите обязательно помогу
Для загрузки воспользуйтесь ссылкой ниже.
Скачать загрузить Turbo Pacal TP 7.0 7.1 Турбо паскаль ТП
С уважением Артём Зайцев
Для тех кто хочет бесплатно пользоваться комплексной системой разработки приложений на Delphi 7.0 держите лекарство в виде генератора ключей.
Скачать загрузить download кряк crack кейген keygen key gen for для Delphi 7
С уважением, Зайцев Артём.
Привет, занимаюсь программирование на Delphi 7. Взял диск, а на диске был русификатор. Если кто хочет сделать свою Delphi русифицированной, скачивайте и устанавливайте на здоровье.
Скачать загрузить download русификатор для Delphi 7
С уважением, Артём Зайцев.
Привет дорогие друзья.
Ко всему прочему выкладываю дистрибутивы антивирусных пакетов.
Kaspersky Internet Security 7.0 (kis) и Антивирус Касперского 7.0 (Kav kaspersky anti virus 7).
В чём фишка того что я их выложил, в том что в архивах находятся не забаненные корпоративные ключи до 2009 года.
Что имеем:
Kaspersky Internet Security 7.0 (kis) + ключ (key) до 2009
Антивирус Касперского 7.0 (Kav kaspersky anti virus) + ключ (key) до 2009.
На момент выгрузки файлов на сервер, большая часть ключей была проверенна на наличие того что они не в чёрном списке. В архиве более 10 корпаративных ключей длительностью рабочего преиода более чем до 2009 года. Так же я постоянно упоминаю фразу корпоративные ключи, это значит, что 1 ключ можно использовать на нескольких машинах. Соответственно их банят намного реже.
Скачать загрузить download Kaspersky Internet Security 7.0 (kis) + ключ (key ключи) до 2009
Скачать загрузить download Антивирус Касперского 7.0 (Kav kaspersky anti virus 7).
+ ключ (key ключи) до 2009.
Пользуйтесь на здоровье!
Как обычно в архиве нет мусора, всё отобрано как положено.
Если будут вопросы, отписывайтесь в комментариях – с радостью отвечу.
С уважением Зайцев Артём aka artyomkaes.
Выкладываю свежие архивы с ключами для антивируса KIS Kaspersky Internet Security 7.0.
Скачивайте и пользуйтесь на здоровье. Не исключено что в архиве есть несколько забаненных ключей. Но большая часть, уверяю рабочие - проверенные лично мной. Есть так же в архиве корпоративные, срок окончания - актуальный дате текущего поста, для продолжительной работы. Есть ключи до 2009 года.
В каждом архиве по 35 ключей - есть что выбрать, и чего дать друзьям!
Скачать загрузить ключи для антивируса Kaspersky Internet Security 7.0 чаcть 1
Скачать Download ключи для антивируса KIS Kaspersky Internet Security 7.0 чаcть 2
Дорогие посетители, не путайте предыдущий пост с этим, в предыдущем посте ссылки на ключи для антивируса KAV, в этом посте исключительно для KIS.
Удачи.
С уважением Артём Зайцев aka artyomkaes.