1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

//Hier lese ich aus

if IsAdmin = true then admin := '1';
if IsAdmin = false then  admin := '0';

if admin = '1' then begin
  reg := TRegistry.Create;
  try
  reg.Rootkey:=HKEY_LOCAL_MACHINE;
    if reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows Script Host\Settings\')= true then
    begin
      if reg.ValueExists('enabled') then
      begin
      DataType := reg.GetDataType('enabled');
      case DataType of
          rdString, rdExpandString: begin
          aktivstring1 := reg.ReadString('enabled');
          end;
          rdInteger: begin
          aktivdword1 := IntToStr(reg.ReadInteger('enabled'));
          end;
          end;
    end;
      reg.CloseKey;
end;
  finally
    reg.Free;
 end;
end;

if admin = '0' then begin
  reg := TRegistry.Create;
  try
  reg.Rootkey:=HKEY_CURRENT_USER;
    if reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows Script Host\Settings\')= true then
    begin
     if reg.ValueExists('enabled')=true then
      begin
      DataType := reg.GetDataType('enabled');
      case DataType of
          rdString, rdExpandString: begin
          aktivstring2 := reg.ReadString('enabled');
          end;
          rdInteger: begin
          aktivdword2 := IntToStr(reg.ReadInteger('enabled'));
          end;
          end;
      end;
      reg.CloseKey; 
    end;
  finally
    reg.Free;
  end;end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

//Hier möchte ich schreiben
if aktivstring2 = '0' then begin
with TRegistry.Create do
begin
   Rootkey:=HKEY_CURRENT_USER;
    OpenKey('Software\Microsoft\Windows Script Host\Settings\',false);
    WriteString('Enabled','1');
    Free;
end;end;