Скрыть процесс в диспетчере задач

HWND MyHandle = FindWindow(0,L"Диспетчер задач Windows");
if (MyHandle){
HWND hApplication = FindWindowEx(MyHandle,0,0,L"Процессы");
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 HWND win,WIN;
 char nam_proc[255];//имя найденого процесса
 int kol_proc=0;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
win=FindWindow//берем дескриптор своей программы
 (
 L"TApplication",//тип приложения (можно посмотреть в WinSight32 - поставляется вместе с Builder
 0/*Здесь можно написать имя своей проги если в системе есть еще приложения написаные в Buider или Delphi*/
 );
 WIN=win;
 while(1)//цикл для определения процессов вверх в Z-последовательности
 {
 kol_proc++;
 if(!GetNextWindow(win,GW_HWNDNEXT))break;//остановка, если следующего окна нет
 win=GetNextWindow(win,GW_HWNDNEXT);//присваиваем дескриптору новое значение
 GetWindowText(win,nam_proc,255);//сохраняем имя его окна
 if((AnsiString)nam_proc!="")Memo1->Lines->Add((AnsiString)nam_proc);//если у процесса есть заголовок, то выводим
 }
 win=WIN;//восстанавливаем исходное значение дескриптора
 while(1)//цикл для определения процессов вниз в Z-последовательности
 {
 kol_proc++;
 if(!GetNextWindow(win,GW_HWNDPREV))break;//остановка, если предыдущего окна нет
 win=GetNextWindow(win,GW_HWNDPREV);//присваиваем дескриптору новое значение
 GetWindowText(win,nam_proc,255);//сохраняем имя его окна
 if((AnsiString)nam_proc!="")Memo1->Lines->Add((AnsiString)nam_proc);//если у процесса есть заголовок, то выводим
 }
 Memo1->Lines->Add(L"Количество процессов в системе (найденых):" +(AnsiString)kol_proc);
}
//---------------------------------------------------------------------------

[BCC32 Error] Unit1.cpp(35): E2034 Cannot convert 'char[255]' to 'wchar_t *'
[BCC32 Error] Unit1.cpp(35): E2342 Type mismatch in parameter 'lpString' (wanted 'wchar_t *', got 'char *')
[BCC32 Error] Unit1.cpp(44): E2034 Cannot convert 'char[255]' to 'wchar_t *'
[BCC32 Error] Unit1.cpp(44): E2342 Type mismatch in parameter 'lpString' (wanted 'wchar_t *', got 'char *')

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
#include <tlhelp32.hpp>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 PACKAGE void __fastcall GetActiveAppList (TStringList *slist)
{
if (!slist) return;
 
slist->Clear();
 
TProcessEntry32 prj;
prj.dwSize = sizeof(PROCESSENTRY32A);
 
HANDLE hss = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
if (((int)(hss)) == (-1)) return;
 
AnsiString fname;
try {
for (bool loop = Process32First(hss, &prj); loop; loop = Process32Next(hss, &prj))
{ fname = AnsiString(prj.szExeFile).Trim().UpperCase();
if (fname.IsEmpty()) continue;
slist->Add(fname);
}
} // try
catch (...) { slist->Clear(); }
 
CloseHandle(hss);
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *slist = new TStringList();
try { GetActiveAppList(slist); Memo1->Lines->Text = slist->Text; }
__finally { delete slist; }
}
//---------------------------------------------------------------------------

wchar_t nam_proc[255];

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo1->Clear();
  TProcessEntry32 prj;
  prj.dwSize = 800000L; //  sizeof(PROCESSENTRY32A)
  HANDLE hss = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if (((int)(hss)) == (-1)) return;
  AnsiString fname;
  try {
  for (bool loop = Process32First(hss, &prj);
             loop; loop = Process32Next(hss, &prj))  {
    fname = AnsiString(prj.szExeFile).Trim().UpperCase();
    if (fname.IsEmpty()) continue;
    Memo1->Lines->Add(fname);
    }
  } // try
  catch (...) {  ; }
  CloseHandle(hss);
}

[BCC32 Error] Unit1.cpp(25): E2451 Undefined symbol 'TProcessEntry32'
[BCC32 Error] Unit1.cpp(25): E2379 Statement missing ;
[BCC32 Error] Unit1.cpp(26): E2451 Undefined symbol 'prj'
[BCC32 Error] Unit1.cpp(27): E2268 Call to undefined function 'CreateToolhelp32Snapshot'
[BCC32 Error] Unit1.cpp(27): E2451 Undefined symbol 'TH32CS_SNAPALL'
[BCC32 Error] Unit1.cpp(27): E2034 Cannot convert 'int' to 'void *'
[BCC32 Error] Unit1.cpp(31): E2268 Call to undefined function 'Process32First'
[BCC32 Error] Unit1.cpp(32): E2268 Call to undefined function 'Process32Next'

#include <tlhelp32.hpp>

loop; loop = Process32Next(hss, &prj))  {

HP.HideProcess();

[BCC32 Error] Unit1.cpp(210): E2294 Structure required on left side of . or .*