mainform.cpp

来自「C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部」· C++ 代码 · 共 65 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
#include "Registry.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  StrFile="";
  this->BitBtn1Click(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{//查看桌面墙纸
  TRegistry *Registry=new TRegistry();
  Registry->RootKey=HKEY_CURRENT_USER;
  Registry->OpenKey("\\Control Panel\\Desktop", false);
  try
  {
    StrFile=Registry->ReadString("WallPaper");
  }
   catch(...)
  {
    StrFile="";
  }
  delete Registry;
  if(StrFile.Length()<1)
  {
    MessageBox(Handle,"没有设置桌面墙纸","信息提示",MB_OK);
    return;
  }
  this->Image1->Picture->LoadFromFile(StrFile);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{//选择桌面墙纸
  if(this->OpenDialog1->Execute())
  {
     StrFile=this->OpenDialog1->FileName;
     this->Image1->Picture->LoadFromFile(StrFile);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{//设置桌面墙纸
   if(StrFile.Length()<1)
     return;
   TRegistry *Registry=new TRegistry();
   Registry->RootKey=HKEY_CURRENT_USER;
   Registry->OpenKey("\\Control Panel\\Desktop", false);
   Registry->WriteString("Wallpaper", StrFile);
   delete Registry;
   MessageBox(Handle,"系统墙纸设置成功!","信息提示",MB_OK);
}
//---------------------------------------------------------------------------