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

Мисля, че това е, което се опитвате да направите.... Присвоете събитие OnTerminate() на TThread, което се изпълнява като част от вашата основна нишка, когато работната нишка бъде прекратена. Можете да правите всичките си актуализации на потребителския интерфейс там (черният списък). Направете свойство на вашата работна нишка като „DownloadComplete“ и правете черния списък/валидирането само ако това е зададено на true в събитието OnTerminated. Това би трябвало да позволи на нишката да се освободи независимо от състоянието на изтеглянето, когато програмата се изпълнява, стига да я .watifor() преди програмата да излезе.

Първо, във вашия обект за проверка на нишка, създайте флаг "завършен". Можете да проверите дали това е вярно, за да определите дали всичко е наред. Както предлага Chris T, накарайте нишката да зададе глобална стойност, за да покаже, че нещата са добри/лоши, така че основната нишка да може да използва нещо като таймер, за да провери това и че всичко е наред или да предприеме подходящи действия.

След това, ако приложението ви иска да се откаже по-рано, обадете се

  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;