windows ile programımı otomatik açmak.. ???

[qamyoncu]

sLm beyler..

internette heryerde dolaşan bir kod war.. //windows açıldıgında otomatik olarak programın başlamasını sağlıo,, güya..

Kod: Tümünü seç

{$IFNDEF WIN32}
const MAX_PATH = 144;
{$ENDIF}

uses registry
procedure TForm1.Button1Click(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(Uygulamam,Uygulamanın_yolu_adı);
  reg.CloseKey;
  reg.free;
end;

[/size]

burdaki uygulamam ve uygulamanın yolu yerini tam olarak doldurabilcek warmı..? her nasıl denediysemde olmadı bitürlü otomatik başlatamadım..
uygulamanın yolu[/color] D:\...\...\...\project1.exe
kodu biri bana tam yazabilrse sewinirim..

teŞekkürLer..
[/b]

[bulutsuzluk_35]

hkey_local _machine yerine hkey_current_user ı denedinmi???.Ve gerçekten ikili değer yazılıyormu kontrol ettinmi??Yazılıyorsa dorumu???

[sabanakman]

reg.WriteString('Benim Denemem',Application.Exename); çalışır olan projeni açılışa yerleştirir.
veya
reg.WriteString('Not Defteri Açarım','C:\Windows\System32\notepad.exe'); not defteri uygulamasını açılışa yerleştirir. Artık açılacak program neyse bunu ayarlamak sana kalmış.

[qamyoncu]

anladm hocam çk teşekkür ederim ilginiz için..
kolay geLsin. .

*** Sanada Teşekkür ederim 'NeverFear' ...

[NeverFear]

Kod: Tümünü seç

reg.WriteString('project1.exe','D:\...\...\...\project1.exe'); project1.exe uygulamasını açılışa yerleştirir. 

bilgisayarını kapatıp açtığında Project1 isimli uygulamanın otomatik çalıştığını göreceksin. project1 uygulamasını çalıştırıp button1'i tıkladıktan sonra tabii.