При длительной работе программа зависает

@inetinf · Регистрация: 29.07.2014

Author24 — интернет-сервис помощи студентам

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

Delphi

procedure TForm1.Timer2Timer(Sender: TObject);
var
  Result,Result1: THandle;
  i,x,y,color1,color2,flagcolor:integer;
  Rect: TRect;
  dc: HDC;
begin
............
 dc:=GetDC(Result1);
 Color1:=GetPixel(dc, x, y);
 i := MakeLong( x, y );
 SendMessage(Result, WM_ACTIVATE, 1, 1);
 SendMessage(Result,WM_LBUTTONDOWN,MK_LBUTTON, i);
 SendMessage(Result, WM_LBUTTONUP,MK_LBUTTON, i);
 dc:=GetDC(Result1);
 Color2:=GetPixel(dc, x, y);
 if (Color1=Color2) and (flagcolor=1) then
  Begin
  flagcolor:=0;
  Form1.Timer2.Enabled:=False;
  Form1.SpeedButton2.Down:=False;
  End;
 
if Color1<> Color2 then
  Begin
  flagcolor:=1;
  End;

если работает долга весит прогу

@FIL · 24.11.2014, 09:10

Не понятно, откуда берется Result1 и зачем для него контекст получается два раза без освобождения.

@inetinf · 24.11.2014, 10:24 **[ТС]**

да с контекстом я перемудрил
а как освобождать

Добавлено через 49 минут
извините что не в тему как узнать имена фреймов или окон в чужом окне

@FIL · 24.11.2014, 10:41

Сообщение от inetinf

а как освобождать

ReleaseDC

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	24.11.2014, 09:10	2
	Не понятно, откуда берется Result1 и зачем для него контекст получается два раза без освобождения. 0

@inetinf 0 / 0 / 8 Регистрация: 29.07.2014 Сообщений: 513
	24.11.2014, 10:24 [ТС]	3
	да с контекстом я перемудрил а как освобождать Добавлено через 49 минут извините что не в тему как узнать имена фреймов или окон в чужом окне 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	24.11.2014, 10:41	4
	Сообщение от inetinf а как освобождать ReleaseDC 1