İstək Kodlar

[AliZairov]

Hamıya salam. Mənə konvertor kodu lazımdı. AZN = USD çevirən. Belə yəni amma artırmaq olsun. Birdə bir kod tapmışam bu

 

procedure TForm1.FormCreate(Sender: TObject);

 

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.LazyWrite := false;

reg.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun

39;, False);

reg.WriteString(form1.Caption, Application.ExeName);

reg.CloseKey;

reg.free;

end;

 

Kod proqrama Windows açıldığı vaxt açılış əmri verir. Amma mən bunu CheckBox necə qurum ki, aktiv edəndə işləsin deaktiv edəndə işləməsin. Amma ayrı formda olacaq. Birdə bunu yaddaşa vermək necə olar? yəni proqramı bağlayandan sonra seçim aktiv idisə aktiv deaktiv idisə deaktiv qalsın. Yaddaşa setting.txt faylına yazılsın?

[Ʌüsal]

kodun bezi yeridne yanlisliq var tam aydin yazilmayib...Bir az duzelis etdidke isleyecekdir ve CheBox-a elave etmek mumkundur.Sekildeki sekilde kimi ozunuz programiniza avto baslamani elave ede bilersiniz.

 

Kecek kodlamaya

 

Yeni form acin.forma 1 eded chebox ve 1 eded button elave ede bilersiz.buttonu elave etmeyede bilersiniz isteye bagli bir sey.

Kod bolmesine kecirik ve Uses bolumune bu kodu elave edirik

 

registry

 

Bu qaydada olmalidir

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, registry, StdCtrls;

 

formdaki chebox-a iki defe klik dirik ve kodumuzu yaziriq

 

var

reg: TRegistry;

begin

reg := TRegistry.Create;

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.LazyWrite := false;

reg.OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\\Run\', False);

reg.WriteString(\'Proqram\', Application.ExeName);

reg.CloseKey;

reg.free;

 

daha sonra buutona klik edirik ve kodu yaziriq.

 

Close;

 

Bu qeder

 

Untitled-1.jpg

[AliZairov]

Vüsal salam. Tşk. Bəs bunu yadda saxlamayacaq axı. Necə edim yadda saxlasın?

[Ʌüsal]

o koduda bir az ozun fikirlewsen duzub qosa bilersen

[AliZairov]

Vüsal salam. Kod səh verir. Uses bölməsində Registry olan sətirdə.

[Ʌüsal]

ozun yazdigin umumi kodu bura yerlesdir

 

CheckBox-un artiq isare qoyulduqda yerinde qalacaq.Yeni Forumu bagalyib acdiginda CheckBox-daki isare yerinde olacaqdir.

 

yuxaridak CheckBox-un kodunu yazmisdim.Bu defe kodumuz ferqlidir.

 

Form yaradiriq 1 eded CheckBox elave edirik.CheckBox-a 2 defe klik edirik ve kodu yaziriq.

 

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

reg := TRegistry.Create;

with reg do

begin

try

RootKey := HKEY_LOCAL_MACHINE;

LazyWrite := False;

OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\\Run\', False);

if CheckBox1.Checked = True then

begin

WriteString(\'deneme\', ExtractFilePath(Application.ExeName) + \'Project2.exe\');

end else

begin

DeleteValue(\'deneme\');

end;

CloseKey;

finally

reg.Free;

end;

end;

end;

 

Qeyd edimki Uses setrine registry kodunu mutleq yazmaliyiq

 

Daha sonra

 

var

Form1: TForm1;

 

setrinin asagisina bu kodu yaziriq reg: TRegistry;

 

Bu sekilde olmaldiir

 

var

Form1: TForm1;

reg: TRegistry;

 

Formun FormClose bolmesine asagidaki kodu yaziriq

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

 

var

reg : tregistry;

begin

reg := TRegistry.Create;

with reg do

begin

try

RootKey := HKEY_LOCAL_MACHINE;

LazyWrite := False;

OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\\Run\', False);

 

case CheckBox1.Checked of

True :

begin

WriteString(\'deneme\', ExtractFilePath(Application.ExeName) + \'Project2.exe\');

end;

 

False :

Begin

DeleteValue(\'deneme\');

end;

end;

CloseKey;

finally

reg.Free;

end;

end;

end;

 

 

Ve daha sonra ise Formun FormCreate bolumune ise asagidaki kodu yaziriq

 

procedure TForm1.FormCreate(Sender: TObject);

 

var

reg : tregistry;

begin

reg := TRegistry.Create;

with reg do

begin

try

RootKey := HKEY_LOCAL_MACHINE;

LazyWrite := False;

OpenKey(\'Software\\Microsoft\\Windows\\CurrentVersion\\Run\', False);

 

case ValueExists(\'deneme\') of // deneme dize degerinin olup olmad?g?na bak?yor

True :

begin

CheckBox1.Checked := True; // varsa tikliyor

end;

 

False :

Begin

CheckBox1.Checked := False; // yoksa tiki kald?r?yor..

end;

end;

CloseKey;

finally

reg.Free;

end;

end;

end;

 

end.

 

 

 

Umimi kod

 

--------------------------------------------------------------

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, registry, StdCtrls;

 

type

TForm1 = class(TForm)

CheckBox1: TCheckBox;

Button1: TButton;

procedure CheckBox1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

reg: TRegistry;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

reg := TRegistry.Create;

with reg do

begin

try

RootKey := HKEY_LOCAL_MACHINE;

LazyWrite := False;

OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);

if CheckBox1.Checked = True then

begin

WriteString('deneme', ExtractFilePath(Application.ExeName) + 'Project2.exe');

end else

begin

DeleteValue('deneme');

end;

CloseKey;

finally

reg.Free;

end;

end;

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

 

var

reg : tregistry;

begin

reg := TRegistry.Create;

with reg do

begin

try

RootKey := HKEY_LOCAL_MACHINE;

LazyWrite := False;

OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);

 

case CheckBox1.Checked of

True :

begin

WriteString('deneme', ExtractFilePath(Application.ExeName) + 'Project2.exe');

end;

 

False :

Begin

DeleteValue('deneme');

end;

end;

CloseKey;

finally

reg.Free;

end;

end;

end;

 

 

procedure TForm1.FormCreate(Sender: TObject);

 

var

reg : tregistry;

begin

reg := TRegistry.Create;

with reg do

begin

try

RootKey := HKEY_LOCAL_MACHINE;

LazyWrite := False;

OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);

 

case ValueExists('deneme') of // deneme dize degerinin olup olmad?g?na bak?yor

True :

begin

CheckBox1.Checked := True; // varsa tikliyor

end;

 

False :

Begin

CheckBox1.Checked := False; // yoksa tiki kald?r?yor..

end;

end;

CloseKey;

finally

reg.Free;

end;

end;

end;

 

 

end.

 

-------------------------------------------------------------------------

 

Ugurlar...

[AliZairov]

Vüsal salam. alınmadı. Buyur bax proyektə. reg.rar

[Ʌüsal]

(\'Software\\Microsoft\\Windows\\CurrentVersion\\Run\', False);

 

bu bolmeni bu usulda yeni ara yere \\ isaresi elave et

[AliZairov]

Vüsal işlədi amma gəlki seçildikdə pəncərəni bağlamaq olmur.

[Ʌüsal]

umimi kodu birde incele hardasa sehv edirsen

 

[AliZairov]

Vüsal ok görüm nə olar.

[Ʌüsal]

[AliZairov]

Vüsal salam. Tşk baxım görüm nə olar.