servis uygulamarı içinden registry işlemleri

servis uygulamarı içinden registry işlemleri - Baskı Önizleme

+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (https://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: servis uygulamarı içinden registry işlemleri (/showthread.php?tid=552)

servis uygulamarı içinden registry işlemleri - goabdullah - 14-01-2017

Merhaba arkadaşlar,

bir servis uygulaması içinden registry' e ulaşıp yazmak ve okuma istiyorum. Kullanıcının Administrator yetkisi olması durumunda işlem yapabilir miyiz.
yoksa windows buna izin vermiyor mu ? (Normal uygulamarda registy işlemleri sorun olmuyor)

saygılar.

Cvp: servis uygulamarı içinden registry işlemleri - esrehmaan - 14-01-2017

procedure TMyTestServiceApp.ServiceAfterInstall(Sender: TService);
var
 Reg: TRegistry;
begin
 Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
 try
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
   begin
     Reg.WriteString('Description', 'This is a description for my fine Service Application.');
     Reg.CloseKey;
   end;
 finally
   Reg.Free;
 end;
end;

Böyle bişi buldum bi dener misin ?

Cvp: servis uygulamarı içinden registry işlemleri - goabdullah - 16-01-2017

(14-01-2017, Saat: 22:33)esrehmaan Adlı Kullanıcıdan Alıntı:

procedure TMyTestServiceApp.ServiceAfterInstall(Sender: TService);
var
 Reg: TRegistry;
begin
 Reg := TRegistry.Create(KEY_READ or KEY_WRITE);
 try
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then
   begin
     Reg.WriteString('Description', 'This is a description for my fine Service Application.');
     Reg.CloseKey;
   end;
 finally
   Reg.Free;
 end;
end;

Böyle bişi buldum bi dener misin ?

Evet HKEY_LOCAL_MACHINE erişebiliyoruz.

Sorun yok. Cevabınız için teşekkürler..