[El Sanchez]

пример работает, но есть проблема. при запуске второй копии выскакивает ошибка »

Хе-хе, сам про грабли говорил, сам наступил. Вот так надо:

Код:

procedure SubclassWizardForm(const ARemove: Boolean);
begin
  if PWndProc = 0 then
    PWndProc := CreateCallback(@WndProc);
  if not ARemove then
    SetWindowSubclass(WizardForm.Handle, PWndProc, 0, 0)
  else if (PWndProc <> 0) and (ExpandConstant('{wizardhwnd}') <> '0') then
    RemoveWindowSubclass(WizardForm.Handle, PWndProc, 0);
end;