Standardgateway Datentyp ??

[himitsu]

ich weiß, ich bin böße

Delphi-Quellcode:

type TRegistryHack = class(TRegistry)
  protected
    //function GetData(const Name: string; Buffer: Pointer;
    //  BufSize: Integer; var RegData: TRegDataType): Integer;
  end;

var regist: TRegistry;
  s: String;
  t: TRegDataType;
  i: Integer;
begin
  regist := TRegistry.Create;
  try
    regist.RootKey := HKEY_LOCAL_MACHINE;
    try
      regist.OpenKey('SYSTEM\ControlSet001\Services\{27CFEF95-92F4-457F-9C13-90CD9E78FF36}\Parameters\Tcpip', false);
      SetLength(s, regist.GetDataSize('DhcpDefaultGateway'));
      TRegistryHack(regist).GetData('DhcpDefaultGateway', PChar(s), Length(s), t);
      //s := StringReplace(s, #0, #13#10, [rfReplaceAll]);
      for i := Length(s) downto 1 do
        if s[i] = #0 then begin
          s[i] := #10;
          Insert(#13, s, i);
        end;
      Memo1.Text := s;
    except
      MessageDlg('Konnte nicht ausgelesen werden',mtError, [mbOk],0);
    end;
  finally
    regist.free;
  end;
end;