AÇIKLAMA

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt 

Program Kodu:

Unit1.cpp

 
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Registry.hpp"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String anahtar;
TRegistry *R=new TRegistry;
try
{
 R->RootKey=HKEY_LOCAL_MACHINE;
 anahtar="Software\\EkranKoruyucu";
 if(R->OpenKey(anahtar,true))
 {
  R->WriteString("Metin","Hayal");
  R->WriteString("Font","18");
  R->CloseKey();
 }
}
catch(Exception &E)
{
R->Free();
}
}
//---------------------------------------------------------------------------