//---------------------------------------------------------------------
#include <vcl.h>
#include <sysinit.hpp>
#pragma hdrstop

#include "About.h"
#include "define.h"
#include "common.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//---------------------------------------------------------------------
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent *Owner)
	: TForm(Owner)
{
  if(IsVivien()){
    lbSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION + " (Vivien)";
  } else {
    lbSystem->Caption = PROGRAM_NAME + " " + VERSION + MINOR_VERSION;
  }
}
//---------------------------------------------------------------------

void __fastcall TAboutBox::FormCreate(TObject *Sender)
{
  SetFont();
  http->Font->Color=clBlue;
  http->Font->Style = TFontStyles()<<fsUnderline;
}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::SetFont(){
  SetSmallFont(Font);
}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::httpClick(TObject *Sender)
{
  char win[MAX_PATH];
  GetWindowsDirectory(win,MAX_PATH);

  SHELLEXECUTEINFO screeninfo;
  memset(&screeninfo,0,sizeof(screeninfo));
  screeninfo.cbSize = sizeof(screeninfo);
  screeninfo.lpVerb = "open";
  screeninfo.lpDirectory = win;

  screeninfo.lpFile = "explorer.exe";
  screeninfo.lpParameters = http->Caption.c_str();
  screeninfo.fMask = SEE_MASK_NOCLOSEPROCESS;
  screeninfo.nShow = SW_SHOWDEFAULT;
  if(!ShellExecuteEx(&screeninfo)) {
    ShowMessage("Unknown Error in "+this->Name);
  }
  
}
//---------------------------------------------------------------------------