Windows başlangıcında Programın Çalıştırılması

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
hikcan
Üye
Mesajlar: 2
Kayıt: 07 Nis 2017 09:04

Windows başlangıcında Programın Çalıştırılması

Mesaj gönderen hikcan » 23 Kas 2017 02:23

Arkadaşlar Merhaba
Bilgisayara programın reg ile run klasörü içine programı kaydederek he açılışta çalışmasını istiyoırum ancak http://www.swissdelphicenter.ch/en/showcode.php?id=396 adresindeki kodu olan
uses
Registry;

procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean);
const
RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
// or: RegKey = '\Software\Microsoft\Windows\CurrentVersion\RunOnce';
var
Registry: TRegistry;
begin
Registry := TRegistry.Create;
try
Registry.RootKey := HKEY_LOCAL_MACHINE;
if Registry.OpenKey(RegKey, False) then
begin
if bRegister = False then
Registry.DeleteValue(AppTitle)
else
Registry.WriteString(AppTitle, AppName);
end;
finally
Registry.Free;
end;
end;

// Example:

procedure TForm1.Button1Click(Sender: TObject);
begin
// 1.Parameter: Path to your Exe-File
// 2. Parameter: the Title of your Application
// 3. Set (true) or Unset (false) Autorun
SetAutoStart(ParamStr(0), 'Title of your Application', True);
end;
kodlamasını yapıyoırum ancak bana "failed to set for title of your application" diye bir hata veriyor acaba neden olur, ne yapmam lazım

ihalilcoban
Üye
Mesajlar: 61
Kayıt: 10 Ara 2015 10:39

Re: Windows başlangıcında Programın Çalıştırılması

Mesaj gönderen ihalilcoban » 23 Kas 2017 09:03

Bir projemde şu şekilde kullanmıştım;

Kod: Tümünü seç

procedure TForm1.CheckBox1Click(Sender: TObject);
var
AppExe :string;
Registry : TRegistry;
begin
   Registry := TRegistry.Create;
   try
    with Registry do
    begin
     RootKey := HKEY_CURRENT_USER;
     if OpenKey ('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true) then
     begin
      AppExe:=#34+Application.Exename+#34;
      WriteString('Project1', AppExe);
     end;
    end;
   finally
    Registry.Free;
   end;
end;
senin kullandığın kodda değiştirmen gereken kısım;

Kod: Tümünü seç

SetAutoStart(ParamStr(0), 'Title of your Application', True);
'Title of your Application' buraya programının ismini yazman gerek.

Cevapla