Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Апр

Ограничить доступ к программе

Posted by obzor under Delphi

Давненько видел на youtube такую вещь.
Если создатель захотел обновить программный код и внести изменения то он просто отключает программу ..
и выдает что то типа такого showMessage(‘Ошибка соединения’); и при нажатие ок сообщение пропадает и приложение или программа не открывается .

Как можно это реализовать?

eoln

Проверка при старте?
Вырезка из программы как есть, поправить под свои нужды. Поместить в onCreate формы

var
  http_up: THTTPSend;
  ver: string;
  reslist: TStringList;
begin
  ver := 'V8.1S';
  http_up := THTTPSend.Create;
  reslist := TStringList.Create;
  try
    http_up.HTTPMethod('Get', 'http://****.ru/ver');
    reslist.LoadFromStream(http_up.Document);
    if trim(reslist.text) <> ver then begin
      MessageDlg('Версия не поддерживается. ', mtInformation, [mbYes], 0);
      application.Terminate;//перед смертью мусор убирать лень ))
    end;
  except
    MessageDlg('бла-бла-бла.', mtError, [mbYes], 0);
    application.Terminate;
  end;
  http_up.Free;
  reslist.Free;
end;

В файле ver лежит номер версии, в данном случае V8.1S.
Добавить uses httpsend

тема на форуме

Пост написан при поддержке сайта topnetseo.com — лучшая поисковая оптимизация, эксперты в Нью-Йорке.

New York SEO — компания предлагает профессиональные услуги SEO.