Иногда отлавливается ошибка в месте "Properties (border) fail"

[truekenny]

Место ошибки:

evemini/UnitWindow.pas

Line 631 in eb8a097

ShowMessage('Properties (border) fail');

Воспроизвести не получается.

Возможно происходит в момент когда IsWindow(gameHandle) всё еще True

evemini/UnitWindow.pas

Line 458 in eb8a097

if (gameHandle <> 0) and IsWindow(gameHandle) then begin

а в момент

evemini/UnitWindow.pas

Line 629 in eb8a097

if not Succeeded(DwmUpdateThumbnailProperties(PH,Props))then begin

окна уже нет.

Возможно достаточно заменить строки

evemini/UnitWindow.pas

Lines 630 to 632 in eb8a097

	Timer.Enabled := False;
	ShowMessage('Properties (border) fail');
	Close;

на вызов метода

evemini/UnitWindow.pas

Line 880 in eb8a097

procedure TFormWindow.menuForgetClick(Sender: TObject);

[truekenny]

Эта проблема вызывает закрытие одного конкретного окна программы

evemini/UnitWindow.pas

Line 632 in eb8a097

Close;