Anti-armenia.ORG - Forumlar - Programınız Windows-la bərabər işə düşsün



Istifadəçi
    2011-12-01 15:40 GMT                 

Ferid23



Admin
Mesaj Sayı : 1875
Mövzu Sayı :
Rep Ver : 
Rep Sayı :   45  
Indi Saytda : Durum
Cinsiyyət : Oğlan
Şəhər : Anti-armenia.ORG
Ölkə :
Məslək : Programmer & Defacer
Yaş : 12
Mesaj :

Mövzunu Paylaş!


Delphidə yazdığınız Proqram Windows-la bərabər işə duşsün .Sadəcə Form-un OnCreat-ə aşağıdakı proseduranı əlavə edin.
Avtozapuskdan programın aktivləşməsinə qadağa qoyulsa da proqrama daxil olanda yenə də aktiv olacaq.



Kod:
procedure TForm1.FormCreate(Sender: TObject);
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(form1.Caption, Application.ExeName);
reg.CloseKey;
reg.free;
end;

AZ Domaini İhbar Hattı (Azərbaycan saytlarında olan boşluqları bizə bildirin): http://anti-armenia.org/forums.php?m=posts&q=572
Qaydalar (Saytın qayda-qanunlarını oxuyaraq əməl edin)
Anti-armenia.ORG
    

Istifadəçi
    2011-12-01 15:42 GMT                 

VusaL_R



Banned
Mesaj Sayı : 86
Mövzu Sayı :
Rep Ver : 
Rep Sayı :   0  
Indi Saytda : Durum
Cinsiyyət : Oğlan
Şəhər :
Ölkə :
Məslək :
Yaş : 31
Mesaj :

Mövzunu Paylaş!


tesekkurler.

Anti-armenia.ORG