function GetNumForNextInstance: string;
var
  il: TList<Integer>;

  function EnumProc(h: HWND; Param: LongInt): Boolean; stdcall;
  begin
    il.Add(1); // AV here!
  end;

begin
  il := TList<Integer>.Create;
  try
    il.Add(0); // OK
    EnumWindows(@EnumProc, 0);
  finally
    il.Free;
  end;
end;

function EnumProc(h: HWND; Param: LPARAM): Boolean; stdcall;
var
  il: TList<Integer> absolute Param;
begin
  il.Add(1); 
end;

function GetNumForNextInstance: string;
var
  il: TList<Integer>;
begin
  il := TList<Integer>.Create;
  try
    il.Add(0); // OK
    EnumWindows(@EnumProc, LPARAM(il));
  finally
    il.Free;
  end;
end;

function EnumProc(h: HWND; Param: LPARAM): BOOL; stdcall;
.......
EnumWindows(EnumProc, 0);

TMyClass = class
  class function EnumProc(h: HWND; Param: LPARAM): BOOL; stdcall; static;
  procedure Enum;
end;
.......
procedure TMyClass.Enum;
begin
  EnumWindows(EnumProc, 0);
end;

TFarProc = Pointer;
TFNWndEnumProc = TFarProc;
function EnumWindows(lpEnumFunc: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall;

function EnumProc(h: HWND; Param: LPARAM): BOOL; stdcall;
.......
EnumWindows(EnumProc, 0);

function EnumProc(h: HWND; Param: LPARAM): BOOL; stdcall;
.......
EnumWindows(EnumProc, 0);

PInteger(nil)^

PInteger(nil)^

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы