Список процессов

PACKAGE void __fastcall GetActiveAppList (TStringList *slist)
{
   if (!slist) return;
 
   slist->Clear();
 
   Tlhelp32::TProcessEntry32 prj;
   prj.dwSize = sizeof(Tlhelp32::PROCESSENTRY32);
   HANDLE hss = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   if (((int)(hss)) == (-1)) return;
 
   try {
      for (bool loop = Process32First(hss, &prj); loop; loop = Process32Next(hss, &prj))
      {
        AnsiString fname = AnsiString(prj.szExeFile).Trim();
        //slist->Add(AnsiString(prj.szExeFile)+AnsiString(prj.th32ProcessID));
        //if (fname.IsEmpty()) continue;;
        char szBuffer[MAX_PATH] = "";
        HANDLE hdl2 = OpenProcess(PROCESS_QUERY_INFORMATION|PROCESS_VM_READ|PROCESS_ALL_ACCESS, 0, prj.th32ProcessID);
 
        //определяем
        //GetModuleFileNameExA(hdl2, NULL,szBuffer, sizeof (prj.szExeFile));
        GetProcessImageFileNameA(hdl2,szBuffer, sizeof (prj.szExeFile));
           //if(String(szBuffer) !="")
           slist->Add("Полный путь = " +String(szBuffer));
 
          CloseHandle(hdl2);
      }
   } // try
   catch (...) { slist->Clear(); }
   //Form1->Label1->Caption = IntToStr(Form1->Memo1->Lines->Count);
   CloseHandle(hss);
   Form1->Label2->Caption = slist->Count;
   Form1->Memo1->Lines->Text = slist->Text;
}

QueryFullProcessImageNameA(hdl2,szBuffer,sizeof(prj.szExeFile),NULL);

  Unit1.cpp(41,71): error E2034: E2034 Cannot convert 'char[260]' to 'unsigned long'
  Unit1.cpp(41,71): error E2342: E2342 Type mismatch in parameter 'dwFlags' (wanted 'unsigned long', got 'char *')