---------------------------------------------------------------------------
| 1083 | } |
| 1084 | //--------------------------------------------------------------------------- |
| 1085 | void __fastcall TMainForm::aRunIEExecute(TObject *Sender) |
| 1086 | { |
| 1087 | String url; |
| 1088 | TSyslogMessage * sm = GetMessageByIndex(LogSG->Row - 1); |
| 1089 | if( sm ) |
| 1090 | url = String("http://") + sm->SourceAddr; |
| 1091 | |
| 1092 | ShellExecute(GetDesktopWindow(), "open", url.c_str(), NULL, NULL, SW_SHOWNORMAL); |
| 1093 | } |
| 1094 | //--------------------------------------------------------------------------- |
| 1095 | void __fastcall TMainForm::aPingExecute(TObject *Sender) |
| 1096 | { |
nothing calls this directly
no outgoing calls
no test coverage detected