Сегодня в выпуске:
1-Программа MagDate v3.2.2.0
2-Вопросы читателей
3-Защита Shareware программ
4-Реестр
5-Фото приколы
Программа MagDate v3.2.2.0
Часть 1.
Программа MagDate, один из самых лучших
календарей на рабочий стол, почти за год заполнили
Internet(Поищите на поисковике или в архивах программ и Вы её обязательно найдёте).
Программа была написана Коржовым Алексеем(это я) в 2003 году и
до сих пор развивается. Первые версии были очень плохие из-за того что я ещё только начинал программировать, но благодаря двум программистам(Зарубин Михаил и
Кирилл Бугаёв - FCSOFT) на данный момент довольно хорошо освоил Delphi7.
Часть 2.
Вернёмся к программе.
MagDate сочетает в себе множество функций,
которые пригодятся человеку, который
много времени проводит за PC.
MagDate оснащён следующими функциями:
создание заметок на любой день любого
месяца, создание стикеров,
проверка обновлений, создание XP интерфейса у программ у которых он
отсутствует, смена дизайна, звуковая
схема и другие.
Часть 3.
Скачаёте программу с нашего сайта
http://www.x-program.narod.ru
Мы будем вам благодарны если Вы пришлёте нам свои
замечания или комментарии.
Вопросы читателей
Вопрос №1
Здравствуйте!
Как узнать какая клавиша была нажата если
приложение не в фокусе?
Заранее благодарен. Ответить
Вопрос№2
Привет всем.
У меня такой вопрос. Как узнать что моё приложение пытаются закрыть?
Ответить
Вопрос№3
Вопрос от Коржова Алексея.
Здравствуйте Уважаемые подписчики!
Помогите пожалуйста. Нужно всю память которую занимает какое-либо
приложение сохранить в файл, а потом загрузить обратно.
Ответить
Защита Shareware программ
В качестве примера приведен небольшой участок программного кода,
позволяющий быстро создать защиту для программ SHAREWARE,
которая, не влияет на функциональность самой программы,
но настоятельно «просит» ее зарегистрировать и закрывает при каждом повторном запуске.
Технология данного метода заключается в том, что пользователь
может запустить программу только один раз за текущий сеанс Windows. Используйте обработчик события FormShow:
procedure TForm1.FormShow(Sender: TObject);
var
atom: integer;
CRLF: string;
begin
if GlobalFindAtom('THIS_IS_SOME_OBSCUREE_TEXT') = 0 then
atom := GlobalAddAtom('THIS_IS_SOME_OBSCUREE_TEXT')
else
begin
CRLF := #10 + #13;
ShowMessage('Данная версия предусматривает только один запуск'
+ 'в текущем сеансе Windows.' + CRLF
+ 'Для повторного запуска необходимо перезапустить Windows, или,'
+ CRLF + 'что лучше, - ' + CRLF + 'ЗАРЕГИСТРИРУЙТЕСЬ !');
Close;
end;
end;
Преимущество данного метода в том, что пользователю доступны все
возможности программы, но только до момента ее закрытия, или перезапуска системы.
Вся хитрость заключается в сохранении некоторой строки в системных
глобальных переменных («атомах») и последующей проверке ее в таблице «атомов» системы