Taskmanager sperren

[Lyan]

ich mach das immer einfacher^^

Delphi-Quellcode:

procedure TForm5.pDisableTask;
var
  slBAT: TStringlist;
begin
  slBAT := TStringlist.Create;
  slBAT.Add('reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f');
  slBAT.SaveToFile('C:\killTaskmng.bat');
  ShellExecute(Application.Handle,'open',PChar('C:\killTaskmng.bat'),'.\',PChar('C:\'),SW_NORMAL);
end;

Naja.. sauber zwar nich aber waaas solls^^