delphi XE2 Передать указатель на тип record в EnumWindows. Вылет в IntOverFlow или AV

[Человек_Борща]

Доброго времени суток!

Переношу проект в новую среду разработки..

Обьявлен некий тип record, нужно передать его указатель, в EnumWindows.

В delphi 7 работал такой код:

    if EnumWindows(@EnumProc, Integer(@sRec)) then
    begin
      ...
    end;

В XE2 с этим проблема. Такой код вылетает в EIntOverFlow.
Замема на DWORD приводит лишь к Access Violation..

[Аватар]

А в XE2 длина указателя случайно не 8 байт? Для 64-битного приложения скорее всего так и есть

[GunSmoker]

Ctrl + клик на EnumWindows подсказывает, что первый параметр у неё - Pointer, а второй - NativeInt.

[Человек_Борща]

Аватар, пишу 32-битное приложение.
GunSmoker, мне надо передать указатель на тип, а не сами данные.
Попытка передать EnumWindows(@EnumProc, NativeInt(@sRec)), так же закончилась AV.

[GunSmoker]

А запись-то где расположена?

[Человек_Борща]

тип

type
  TWindowSearchInfo = record
    swClass: string; 
    swTitle: string;
    swText: string; 
    swAction: TFoundedWindowAction; 
    swButtonClass: string; 
    swButtonText: string; 
    WindowInfo: PFoundedWindowInfo;
    swFound: Boolean; 
    swFoundButton: Boolean; 
  end;

кусок процедуры

...
var
  i: Integer;
  sRec: TWindowSearchInfo;
  pID: Cardinal;
begin
  for i := 0 to Count - 1 do
  begin
    FillChar(sRec, 0, SizeOf(TWindowSearchInfo));
 
     if EnumWindows(@EnumProc, NativeInt(@sRec)) then
      begin

      end; 

  end;

Кто-нибудь может мне помочь?

[GunSmoker]

У FillChar параметры перепутаны.

Больше ошибок нет. Приведи остальной код.

[Человек_Борща]

GunSmoker, писал тут.
Вот весь метод с использованием этой структуры:

procedure TWindowsManager.OnTimer(Sender: TObject);
var
  i: Integer;
  sRec: TWindowSearchInfo;
  fRec: TFoundedWindowInfo;
  pID: Cardinal;
begin
  for i := 0 to Count - 1 do
  begin
    FillChar(sRec, 0, SizeOf(TWindowSearchInfo));
    FillChar(fRec, 0, SizeOf(TFoundedWindowInfo));
    sRec.swClass := Windows[i].WindowClass;
    sRec.swTitle := Windows[i].WindowTitle;
    sRec.swText := Windows[i].WindowText;
    sRec.swAction := Windows[i].Action;
    sRec.swButtonClass := Windows[i].WindowBtnClass;
    sRec.swButtonText := Windows[i].WindowBtnText;
    sRec.WindowInfo := @fRec;
    sRec.swFound := False;
    sRec.swFoundButton := False;
     if EnumWindows(@EnumProc, NativeInt(@sRec)) then //ERROR
      begin

      end;

    if sRec.swFound then
    begin
      case sRec.swAction of
        fwaClose:
          SendMessage(fRec.wHandle, WM_CLOSE, 0, 0);
        fwaClickButton:
          begin
            if sRec.swFoundButton then
            begin
              SendMessage(fRec.wButtonHandle, WM_LBUTTONDOWN, 1, 1);
              SendMessage(fRec.wButtonHandle, WM_LBUTTONUP, 1, 1);
            end;
          end;

        fwaTerminateProcess:
          begin
            GetWindowThreadProcessId(fRec.wHandle, @pID);
            if pID <> 0 then
              if ProcessTerminate(pID) then
               //!inf IF TWindowsManager.OnTimer
              else
               //!inf ENDIF TWindowsManager.OnTimer
          end;
      end;
    end;
  end;
end;

[3D Hunter]

Может так:

EnumWindows(Pointer(EnumProc), LPARAM(Pointer(sRec)));

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx