Delphi öğrenmek istiyorum!

[Zaur]

Selam, arkadaşlar ben Delphi öğrenmek istiyorum bunun üçünde hazır küçük kodları deniyorum, birin denedim bu hatanı verdı bunun anlamı nedir ve nasıl çöze bilirim?!

Registry kaydi atmak

Kod: Tümünü seç

implementation

{$R *.DFM}

uses registry;

procedure TForm1.FormCreate(Sender: TObject);

var reg:TRegistry;

begin

reg:=TRegistry.Create;

with reg do begin

 try

  if OpenKey('\Control Panel\desktop', False)  then begin

//change wallpaper and tile it

   reg.WriteString      ('Wallpaper','c:\windows\CIRCLES.bmp');

   reg.WriteString      ('TileWallpaper','1');

//disable screen saver//('0'=disable, '1'=enable)

   reg.WriteString('ScreenSaveActive','0');

//update changes immediately

   SystemParametersInfo

     (SPI_SETDESKWALLPAPER,0,     nil,SPIF_SENDWININICHANGE);

   SystemParametersInfo

     (SPI_SETSCREENSAVEACTIVE,0,     nil,SPIF_SENDWININICHANGE);

  end

 finally

   reg.free

 end;

end;

end;

Dostlar ben www.delphiturk.com sitesinden kayıt oldum e-mailime gelen linki tıklıyorum sayfa açılmıyor neden acaba?

[velociraptor]

linki kopyala ve baska tarayicida dene

[Zaur]

Oldu teşekkürler.

Arkadaşlar bu Delphinin kodların güzel anlatan bir site biliyormusunuz vede videolu olarak?