0 Üye ve 1 Ziyaretçi konuyu incelemekte.
reg := TRegistry.Create;reg.RootKey := HKEY_LOCAL_MACHINE;reg.LazyWrite := false;reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);reg.WriteString('uygulama', Application.ExeName);reg.CloseKey;reg.free;
while not Terminated do ServiceThread.ProcessRequests(True);
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', 'Servisinin Açıklaması buraya gelcek....'); Reg.CloseKey; end; finally Reg.Free; end;