Некоторая помощь с TThread (Terminate, FreeOnTerminate и другие приключения в области многопоточности)

Я думаю, это то, что вы пытаетесь сделать... Назначьте событие OnTerminate() для TThread, которое выполняется как часть вашего основного потока, когда рабочий поток завершается. Вы можете делать все обновления вашего пользовательского интерфейса там (черный список). Создайте свойство своего рабочего потока, такое как «DownloadComplete», и выполняйте черный список/проверку только в том случае, если в событии OnTerminated установлено значение true. Это должно позволить потоку освободиться независимо от состояния загрузки при запуске программы, если вы .watifor() перед выходом из программы.

Во-первых, в объекте потока проверки создайте флаг «завершено». Вы можете проверить это, чтобы определить, все ли в порядке. Как предлагает Крис Т., пусть поток устанавливает глобальное значение, чтобы указать, что все хорошо/плохо, чтобы основной поток мог использовать что-то вроде таймера, чтобы проверить, все ли в порядке, или предпринять соответствующие действия.

Затем, если ваше приложение хочет завершить работу досрочно, вызовите

  MyThread.Terminate;
  MyThread.WaitFor;

И в потоке проверьте, установлен ли Terminated в соответствующих точках. Таким образом, вы можете закрыть красиво.

Что касается второго вопроса, не беспокойтесь об обновлении пользовательского интерфейса из потока. Просто установите глобальный флаг. то есть IsBlackListed := true; Теперь вы можете использовать этот глобальный флаг в качестве основы для придирок к пользователю в ответ на какое-либо действие, инициированное пользователем. Например, OnFileSave... ShowMessage('Я хотел бы сохранить этот файл для вас, но, к сожалению, вы используете ключ из черного списка.');

IsBlackListed Redux....

// globally...
var
  IsBlackListed  : integer;

...
initialization
  IsBlackListed  := 0;

...
// in your thread:
if OhMyGodThisIsABlackListedKey then
  IsBlackListed := 1;

... Back in the main code, maybe in the OnSaveMyData event:

if IsBlackListed then
begin
  IsBlackListed := -1; // so we don't repeat ourselves
  MessageBox('Hey, you naughty pirate!');
  MyDBConnection.Whatever.DoSQL('insert into licensetable (name,key) values(pirate,blacklisted);
end;