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

[АлександрDelphi]

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

Копипастить не люблю делаю все ручками обращаюсь за помощью )


Потерял видео и даже нету примера как можно это реализовать..

Буду благодарен за помощь )

[eoln]

Под синапс, судя по прошлой теме?

программа не открывается

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

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

[АлександрDelphi]

Сообщение от eoln

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

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

Да проверка при старте
а вот вывод сообщения бла бла это когда выводит?

    MessageDlg('бла-бла-бла.', mtError, [mbYes], 0);
    application.Terminate;

[Serge_Bliznykov]

а вот вывод сообщения бла бла это когда выводит?

когда нет доступа к сети/сайту...

[Alex11223]

Разве синапс кидает исключения, а не просто true/false?

https://sourceforge.net/p/synalist/c...psend.pas#l380

[АлександрDelphi]

Сообщение от Serge_Bliznykov

когда нет доступа к сети/сайту...

Благодарю

[АлександрDelphi]

Сообщение от Serge_Bliznykov

когда нет доступа к сети/сайту...

А как сделать когда вылезает

 MessageDlg('ImperialHack на обновление', mtError, [mbOK], 0);

Ты нажимаешь [mbOK] и переходило на скачку
У меня есть пример но как вставить его в код
Пример правда при нажатие на кнопку

rocedure TForm1.btn3Click(Sender: TObject);
var
  buttonSelected : Integer;
begin
buttonSelected := MessageDlg('На обнове ',mtInformation,[mbOK], 0);
if  buttonSelected = mrOk   then ShellExecute(handle,'open', 'тут сайт или что то ну вообщем от куда качать ', nil, nil, SW_SHOW);

Мне надо то что с верху запихать между

if trim(reslist.text) <> ver then begin
      MessageDlg('Программа на обновление', mtError, [mbOK], 0);
          {сюда надо этот  код }
      application.Terminate;

Буду признателен
Извините за мою тупость сам сделал)