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

[tianddu]

решил перекинуть проекты с 7ой делфи на XE3 перекинул значит столкнулся с порой нюансов ну например что функция чтения памяти пследнюю переменную имеет теперь там типа SIZE_T а не DWORD ну да ладно это нюансы..
проблема заключается во многим известной функции поиска окон...

Form3.Combobox1.Clear;
  Local_WID:=FindWindow(0,0);
  While (Local_WID<>0) do
    Begin
      GetClassName(Local_WID,@buf,100);
      if buf='ElementClient Window' then
        begin
          GetWindowThreadProcessId(Local_WID, @PID);
          hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
          flag := 0;
          ReadProcessMemory(hProcess, Pointer($00C38B44), @flag, 1, BytesCount);
          if flag = 1 then
            begin
              ReadProcessMemory(hProcess, Pointer(PW_GAMERUN_ADDR), @ipbuf, sizeof(ipbuf), BytesCount);
              ReadProcessMemory(hProcess, Pointer(ipbuf+$34), @ipbuf, sizeof(ipbuf), BytesCount);
              ReadProcessMemory (hProcess, Pointer(ipbuf+$634), @gtro, sizeof(gtro), BytesCount);
              ReadProcessMemory(hProcess, Pointer(ipbuf+$688), @ipbuf, sizeof(ipbuf), BytesCount);
              ReadProcessMemory(hProcess, Pointer(PW_BASE_ADDRESS), @lok, sizeof(lok), BytesCount);
              ReadProcessMemory(hProcess, Pointer(lok+$4C8), @lok, sizeof(lok), BytesCount);
                  ReadProcessMemory(hProcess, Pointer(ipbuf+$0), @n1234, sizeof(n1234), BytesCount);
                  form3.ComboBox1.Items.Add(n1234);
                  hwndl[i1+1]:=Local_WID;
                  inc(i1);
                  closehandle(hProcess);
                  hProcess:=0;
        end;
      Application.ProcessMessages;
      Local_WID:=GetNextWindow(Local_WID,GW_HWNDNEXT);
    end;

ну вроде при компиляции в delphi 7 на WIN XP! работает нормально окна ищет...
а вот delphi XE3 компилит так что XP окна не видит...как быть?
не знаю как правильно выдать запрос гуглу ибо там вообще относительно delphi xe3 найти что то сложно..
небольшое наблюдение...почему то окно пв в XP не имеет PID процесса...а в вин 7 имеет...

[Ginrey]

и не увидишь, я сам не понял в чем прикол, но чтение с памяти на XP в XE3 не поддерживается. последняя рабочая если не ошибаюсь просто XE. Не могу утверждать этого в XE4 и XE5 так как не пользовался ими. А XE2 и XE3 точно не поддерживаются

[tianddu]

почитал сейчас...пишут что может прокатить с GetClassNameW вместо GetClassName завтра будет комп с XP отпишусь работает или нет...

[fds255]

Цитата: Сообщение от tianddu ну вроде при компиляции в delphi 7 на WIN XP! работает нормально окна ищет... а вот delphi XE3 компилит так что XP окна не видит...как быть?

Я сначала также хотел адаптировать проги под XE3, но по той же причине снова вернулся на delphi 2010.

[Ginrey]

tianddu, так Class окна вроде бы и так нормально находит

[ToRcH2565]

XE2 все работает) и окна ищет и процессы(кстати окна прошлый век, зачем?))
Проблема в W на конце функций, вызывайте или без буквы или с A

ps,
A=Ansi(xp и ниже)
W=Wide(Vista и выше, он же юникод.)
Без буквы = выбор стандартного для ОС(т.е. программа сама решит что ей звать W или A).

[tianddu]

Цитата: Сообщение от ToRcH2565 XE2 все работает) и окна ищет и процессы(кстати окна прошлый век, зачем?)) Проблема в W на конце функций, вызывайте или без буквы или с A ps, A=Ansi(xp и ниже) W=Wide(Vista и выше, он же юникод.) Без буквы = выбор стандартного для ОС(т.е. программа сама решит что ей звать W или A).

вот без буквыы и не катит...видать надо точно указать ей...
если окна это старый век то какую альтернативу предложите?

[_DVD_]

...........................
HoldString: PChar;
    PID: Cardinal;
...........................

    GetMem(HoldString, 1024);
    try
      if (GetClassName(hWindow, HoldString, 1023) > 0) then
        if StrComp(HoldString, 'ElementClient Window') = 0 then
        // Нашли окно клиента
        begin
          GetWindowThreadProcessId(hWindow, @PID);
          if GetWindowText(hWindow, HoldString, 1023) > 0 then
            frmMain.cbProgram.Items.Add(String(HoldString))
.......................

по-старинке, но работает
год на ХЕ2. работает от ХР до 8ки

[tianddu]

Цитата: Сообщение от _DVD_ по-старинке, но работает год на ХЕ2. работает от ХР до 8ки

XE3 не знает что такое StrComp ))
да и проблема будет с тем же GetClassName что то в нем не так...

Добавлено через 2 часа 15 минут
может у меня переменная buf не того типа...

[Sirioga]

Цитата: Сообщение от tianddu While (Local_WID<>0) do

Сколько такой цикл будет работать?

[tianddu]

Цитата: Сколько такой цикл будет работать?

глаз не замечает)

[Ginrey]

так че нашли альтернативу? чтобы поиск работал и на XP

[tianddu]

нет.. заметил особенность... на delphi 7 всегда hprocess генерируется с числом 380.. в delphi XE и выше генерируется каждый раз разные цифры )
не работает конкретно функция GetClassName(Local_WID,@buf,100); неправильно копирует название окна... переехал на delphi 2010

[Ginrey]

о даже так. надо глянуть что в ней изменилось

[Sirioga]

Цитата: Сообщение от tianddu не работает конкретно функция GetClassName(Local_WID,@buf,100); неправильно копирует название окна...

GetClassName WinAPI`шная же функция, как она может работать неправильно?