Windows 10 uygulamayı Başlangıçta çalıştırma problemi

[hakanharbeli]

merhaba,
geliştirdiğim uygulama windows'larda başlangıçta çalışmalı (registry) fakat
böyle bir kod'la windows 10'da hata alıyorum ve başlangıca eklenmiyor

Kod: Tümünü seç

procedure WindowsBaslangicaEkle;
var
AppExe :string;
Registry : TRegistry;
begin
   Registry := TRegistry.Create;
   try
    with Registry do
    begin
     RootKey := HKEY_CURRENT_USER;
     if OpenKey ('SOFTWAREMicrosoftWindowsCurrentVersionRun', true) then
     begin
      AppExe:=#34+Application.Exename+#34;
      WriteString('PROGRAMIM', AppExe);
     end;
    end;
   finally
    Registry.Free;
   end;
end;

[ertank]

Merhaba,

Sorunuzda kullandığınız Delphi sürümünü bildirmemişsiniz. Aşağıdaki örnek Delphi 2010 ve sonrası için geçerli olan System.IOUtils unitesinden faydalanmaktadır. Eğer Delphi 7 kullanıyor iseniz aşağıdaki linkteki ExtractFileNameEx() fonksiyonunu kullanabilirsiniz.
http://www.delphipages.com/forum/showth ... p?t=211511

Hatanız OpenKey() fonksiyonuna bölüm isimlerini ayraç kullanmadan parametre olarak geçmek olmuş.

Kod: Tümünü seç

uses
  System.IOUtils,
  Registry;

procedure WindowsBaslangicaEkle();
var
  Registry: TRegistry;
begin
  Registry := TRegistry.Create;
  try
    Registry.RootKey := HKEY_CURRENT_USER;
    if Registry.OpenKey ('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False) then
    begin
      Registry.WriteString(TPath.GetFileNameWithoutExtension(Application.ExeName), AnsiQuotedStr(Application.ExeName, '"'));
    end;
  finally
    Registry.Free();
  end;
end;

[hakanharbeli]

çok teşekkür ederim abi vallahi her yardımımıza koşuyorsun allah razı olsun