Hallo liebes Forum,
ich hab nochmal eine Frage zum schreiben der Registry,
ich habe mir hier eine Funktion zusammengeschrieben die ohne Probleme die Regitry verändern kann.
Delphi-Quellcode:
procedure TForm1.RegistryWrite(path: string; objekt: String; value: Integer);
var
reg : TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER; possible
if reg.OpenKey(path ,true) then
try
reg.WriteInteger(objekt ,value);
finally
reg.CloseKey;
end;
finally
reg.Free;
end;
end;
Jetzt möchte ich den Taskmanager für eine bestimmt Zeit in der Registry sperren. Bei PCs wo der Wert DisableTaskmgr schon angelegt ist, funktioniert das mit dem Aufruf
RegistryWrite('Software\Microsoft\Windows\CurrentVersion\Policies\System', 'DisableTaskMgr', 1);
wunderbar.
Bei PCs bei den der Wert DisableTaskmgr noch nicht angeleget ist funktioniert das ganze nicht.
Wie bekomme ich es hin, dass er den Wert automatisch anlegt, wenn er noch nicht vorhanden ist?
In der procedure selbst sind die Boolean ja schon auf true gesetzt und etwas anderes finde ich bei Google leider nicht.
Vielleicht hat jemand von euch eine Idee?
Gruß