void __fastcall TFormMain::AutoRunClick(TObject *Sender)
{
TRegistry *regedit = new TRegistry();
regedit->RootKey = HKEY_CURRENT_USER;
regedit->OpenKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", false);
if (this->AutoRun->Checked == true) {
try {
regedit->WriteString("ScreenShot", Application->ExeName);
ShowMessage("Given program will be launched at start computer");
} catch (Exception *e) {
ShowMessage("Error: I can not remove autorun");
DebugOutput(e->Message);
}
} else {
try {
regedit->DeleteValue("ScreenShot");
ShowMessage("Autorun was deleted");
} catch (Exception *e) {
ShowMessage("Error: i Can't delete a autorun");
DebugOutput(e->Message);
}
}
regedit->CloseKey();
regedit->Free();
}
//---------------------------------------------------------------------------
void __fastcall TFormMain::ExtractParam() {
if (FileExists(ExtractFilePath(Application->ExeName) + PARAM_FILE) == false)
return;
TIniFile *ini = new TIniFile(ExtractFilePath(Application->ExeName)+PARAM_FILE);
this->EditHost->Text = this->Crypt(ini->ReadString("ftp", "Host", ""));
this->EditLogin->Text = this->Crypt(ini->ReadString("ftp", "Login", ""));
this->EditPassword->Text = this->Crypt(ini->ReadString("ftp", "Password", ""));
this->EditPort->Text = this->Crypt(ini->ReadString("ftp", "Port", ""));
this->EditPwd->Text = this->Crypt(ini->ReadString("ftp", "Pwd", ""));
ini->Free();
TRegistry *regedit = new TRegistry();
regedit->RootKey = HKEY_CURRENT_USER;
regedit->OpenKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", false);
if (regedit->ValueExists("ScreenShot") == true)
this->AutoRun->Checked = true;
regedit->CloseKey();
regedit->Free();
}