некая несовместимость функций в delphi XE3

[Ginrey]

Sirioga, а ты знаешь что такого произошло в этой обнове XE -> XE2 , что перестал на ХР работать адекватно?

[Dinmaite[Work]]

Я просто оставлю это здесь.

7:   function GetClassName; external user32 name 'GetClassNameA';
ХЕ2: function GetClassName; external user32 name 'GetClassNameW';

[ToRcH2565]

Вот альтернатива без окон(совсем без них).
Клавиши послать не выйдет, а вот чтение\запись памяти пожалста(Хватит для инекций)

Procedure GetProcessList;
var
  hP: THandle; 
  hM: hmodule; 
  prcs: array[0..$FFF] of dword;
  cP, cM: cardinal;
  i: integer;
  NameProc: array[0..max_path] of char;
begin
    if not EnumProcesses(@prcs, sizeof(prcs), cP) then
    begin
      //Ошибка доступа к списку процессов
      Exit;
    end;

    for i := 0 to cP div 4 - 1 do
    if (prcs[i]<>0) then
    begin
      hP := OpenProcess(PROCESS_ALL_ACCESS ,True, prcs[i]);
      if hP <> 0 then
      begin
        EnumProcessModules(hP, @hM, 4, cM);
        GetModuleFileNameEx(hP, hM, NameProc, sizeof(NameProc));
        if ExtractFileName(string(NameProc))='elementclient.exe' then
        Begin
          //prcs[i] - Pid процесса PW, получить дальше список его окон проблемы составить не должно.
	  //зы. мне окна не требуются, так что я их не получаю даже.
        end else CloseHandle(hP);
      end else SysLogAddErr('Невозможно открыть процесс!');//<<Бывает и такое, особенно на Win vista и старше.
    end;
end;

Код XE2, для D7 нужно пара мелких изменений в типах данных.

перешел на ХЕ5, правок в коде непотребовалось, все работает....