메인프로그램이 실행할때 FormCreate이벤트에서
핑테스트를 해서 핑이 죽었으면 메인프로그램을
죽이려고 합니다.
Ping1.DnsLookup(TmpTns);
if pingError then begin
WinExec('C:TessTnsTnsProgram.EXE', SW_SHOWNORMAL);
Application.Terminate;
Close;
end;
procedure TfBas_Main.Ping1EchoReply(Sender, Icmp: TObject; Error: Integer);
begin if Error = 0 then pingError := True
else pingError := False;
end;
라고 하면 TnsProgram은 실행되지만 메인프로그램은 FormActivate이벤트에서
에러가 생기는데요.
이유가 뭔지 알수가 없네요.
고수님들의 조언을 부탁드립니다. 꾸뻑...