[ captPicard @ 22.11.2012. 17:46 ] @
Dakle, greška se javlja kod zatvaranja programa i to samo u slučaju kada je mreža onemogućena (pokušava pingati tri adrese).

Ovo se pokreće unutar Timer kontrole:

Code:
TPingThread.Create(sIpPingHost1, sIpPingHost2, sIpPingHost3, PingCallBack);


execute kod:

Code:
procedure TPingThread.Execute;
var
  b: boolean;
begin
  FIPAddr := FIPAddr1;
  Ping(1, b);
  Sleep(30);

  if not (b) then
  begin
    FIPAddr := FIPAddr2;
    Ping(2, b);
    Sleep(30);

    if not (b) then
    begin
      FIPAddr := FIPAddr3;
      Ping(3, b);
      Sleep(30);
    end

  end;

  _FMain.Timer1.Enabled := not (b);
end;


Zanimljiva stvar je da istu stvar koristim u dvije aplikacije, na istom računalu. U jednoj se ne javlja invalid window handle a u drugoj da.
Probao sam maknuti onaj dio _FMain.Timer1.Enable... ali greška se i dalje javlja.
Ako maknem TPingThread.Create... iz Timer1 onda se greška ne javlja, tako da je definitivno problem u tome.
[ captPicard @ 22.11.2012. 18:08 ] @
Može brisanje, izgubio par sati radi gluposti
[ salaczr @ 23.11.2012. 08:26 ] @
Ako nije tajna u cemu je bio problem?

pozdrav
[ captPicard @ 23.11.2012. 09:51 ] @
Citat:
salaczr: Ako nije tajna u cemu je bio problem?

pozdrav


Nije tajna, ali problem na kraju nije bio u ovom dijelu Execute-a threada, gdje sam ja tražio, nego u funkciji PingCallBack. Naime, u TMemo sam zapisivao liniju, a zaboravio sam da sam TMemo postavio kao nevidljiv. I eto problema :)