Zitat von
HomerGER:
der code hat ne schlechte handschrift
ich mir mal den code genauer angeschaut - hmmm, nun gut, nicht schön - ABER er funktioniert
Unter Umständen auch nicht, falls das Erzeugen des TRegistry-Objektes (aus welchen Gründen auch immer) mal nicht funktioniert. Ich sage nur
try/
finally.
Mal schnell (ungetestet!) umgebaut:
Delphi-Quellcode:
procedure DisableTaskMgr(const bTF: Boolean);
const
szRegPath = 'Software\Microsoft\Windows\CurrentVersion\Policies\System';
var
reg : TRegistry;
begin
reg := TRegistry.Create;
if(reg <> nil) then
with reg do
try
RootKey := HKEY_CURRENT_USER;
if(OpenKey(szRegPath,true)) then
try
if(bTF) then WriteString('DisableTaskMgr','1')
else DeleteValue('DisableTaskMgr');
finally
CloseKey;
end;
finally
Free;
end;
end;