---------------------------------------------------------------------------
| 24 | } |
| 25 | //--------------------------------------------------------------------------- |
| 26 | void __fastcall TAboutBoxForm::LabelClick(TObject * Sender) |
| 27 | { |
| 28 | switch( ((TLabel *)Sender)->Tag ) |
| 29 | { |
| 30 | case 1: ShellExecute(GetDesktopWindow(), "open", |
| 31 | ((TLabel *)Sender)->Caption.c_str(), NULL, NULL, SW_SHOWNORMAL); |
| 32 | break; |
| 33 | case 2: ShellExecute(GetDesktopWindow(), "open", |
| 34 | (AnsiString("mailto:") + ((TLabel *)Sender)->Caption).c_str(), NULL, NULL, SW_SHOWNORMAL); |
| 35 | break; |
| 36 | } |
| 37 | } |
| 38 | //--------------------------------------------------------------------------- |
| 39 |
nothing calls this directly
no outgoing calls
no test coverage detected