[Alegun]

Если надписи на итемах совпадают с заголовками активных окон, то

Код:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
 s: PAnsiChar;
 i: integer;
begin
 i:= (Sender as TCheckListBox).ItemIndex;
 s:= PAnsiChar((Sender as TCheckListBox).Items[i]);
 if (Sender as TCheckListBox).Checked[i] then
  ShowWindow(FindWindow(nil, s), SW_HIDE)
  else
   ShowWindow(FindWindow(nil, s), SW_SHOWNORMAL);
end;