procedure TScreenShot.Execute;
var
 T: Cardinal;
 pause: Integer;
 res: boolean;
 pt: TPoint;
begin

 if fOfflineMode then // в офлайн версии нельзя запускать поток.
   exit;

 T := GetTickCount;
 if (fType = 'Global') then //при выполнении этого условия все работает всегда
 begin
   fScreen.Width := screen.Width;
   fScreen.Height := screen.Height;
   fhSrcDC := GetDC(0);
   fhDC1 := CreateCompatibleDC(fhSrcDC);
   SelectObject(fhDC1, fScreen.Handle);
   pt.X := 0;
   pt.Y := 0;
 end;

 while (not Terminated) do // and (getasynckeystate($1B) = 0) do
 begin
   res := true;

   SimpSync.StartWrite;

    if fType = 'Local' then //а при выполнении этого глюки
   begin
     try
       res := MyFindWindow;
     except
       ferrorText := 'koshmar';
     end;

     if fClientShot then
     begin
       pt.X := fClR.left - R.left;
       pt.Y := fClR.Top - R.Top;
     end
     else
     begin
       pt.X := 0;
       pt.Y := 0;
     end;
   end;

   if res then
   begin
     BitBlt(fhDC1, 0, 0, fScreen.Width, fScreen.Height, fhSrcDC, pt.X,
       pt.Y, SRCCOPY);
   end;

   SimpSync.EndWrite;
 end;
end;

Function TScreenShot.MyFindWindow(): boolean;
begin

 if isWindow(FHandle) then
 begin

   if (not IsWindowVisible(FHandle)) or IsIconic(FHandle) then
   begin
     ShowWindow(FHandle, SW_SHOWNORMAL);
     sleep(200);
   end;
   // на случай если окно сдвинули или изменили в размерах, нужно координаты обновить

   GetWindowRect(FHandle, fR);

   if fR.left < 0 then
   begin
     result := false;
     exit;
   end;

   if CheckSizeWindow then
   // если окно съехало или изменилось в размерах поменяем дескрипторы, а то возникает ошибка
   begin

     if fhSrcDC <> 0 then
     // если мы пересоздаем окно, то убьем старые дескрипторы
     begin
       DeleteDC(fhSrcDC);
       ReleaseDC(FHandle, fhDC1);
       DeleteDC(fhDC1);
     end;

     fhSrcDC := GetwINDOWDC(FHandle);
     fhDC1 := CreateCompatibleDC(fhSrcDC);
     SelectObject(fhDC1, fScreen.Handle);
   end;

   if fClientShot then
   begin
     GetClientRect(FHandle, fClR);
     MapWindowPoints(FHandle, 0, fClR, 2);
     // получает координаты клиенской части в глобальных координатах
     fScreen.Width := fClR.Width;
     fScreen.Height := fClR.Height;
   end
   else
   begin
     fScreen.Width := fR.Width;
     fScreen.Height := fR.Height;
   end;

   result := true;
   exit;
 end;

 result := false;

 
   WaitForSingleObject(MyMutex, INFINITE);
   FHandle := FindWindowA(CNP, WNP);
   ReleaseMutex(MyMutex);
 
 if FHandle > 0 then
 begin
   if (fhSrcDC <> 0) then
   // если мы нашли окно заново, то возможно его перезапустили, а потому, убьем старые дескрипторы
   begin
     ReleaseDC(FHandle, fhDC1);
     DeleteDC(fhSrcDC);
     DeleteDC(fhDC1);
   end;

   GetWindowRect(FHandle, fR);
   if fClientShot then
   begin
     GetClientRect(FHandle, fClR);
     MapWindowPoints(FHandle, 0, fClR, 2);
     fScreen.Width := fClR.Width;
     fScreen.Height := fClR.Height;
   end
   else
   begin
     fScreen.Width := fR.Width;
     fScreen.Height := fR.Height;
   end;

   If (fScreen.Width = 0) or (fScreen.Height = 0) then
   Begin
     ferrorText := ferrorText + 'Размер области формы равен нулю';
     // А вдруг у него нет размера ???
     result := false;
     exit; // Тогда выходим
   End;

   fhSrcDC := GetwINDOWDC(FHandle);
   fhDC1 := CreateCompatibleDC(fhSrcDC);
   SelectObject(fhDC1, fScreen.Handle);

    if fhSrcDC > 0 then
     result := true;
 end;

end;