Windows Registry Rekursiv auslesen

[KrazyMartz]

Also ich habe die JCL mal installiert aber er ist da immernoch am Mosern:

er sagt mir zum einen, dass die Function einen Rückgabewert brauch also er stoppt schon in der 1. Zeile davon abgesehen wird es bestimmt ärger mit dem hkroot und dem KeytypetoStr geben weil wenn ich die anklicke kommt zB. "var Keytypetostr :erroneus type -unit1"

er würde da denke ich auch wieder auf einen Fehler laufen oder zeigt er das in Delphi nur net richtig an und das Problem wurde schon von den JCLs gefixt?


Das kommt beim start:

Zitat:

[Error] Unit1.pas(27): Function needs result type
[Error] Unit1.pas(42): Undeclared identifier: 'hkRoot'
[Error] Unit1.pas(43): Undeclared identifier: 'sPath'
[Error] Unit1.pas(45): Undeclared identifier: 'RegGetDataType'
[Error] Unit1.pas(45): Undeclared identifier: 'sName'
[Error] Unit1.pas(49): Undeclared identifier: 'KeyTypeToStr'
[Error] Unit1.pas(49): Undeclared identifier: 'bForBartPE'
[Error] Unit1.pas(78): Undeclared identifier: 'RegReadMultiSz'
[Error] Unit1.pas(87): Undeclared identifier: 'StrLeft'
[Error] Unit1.pas(87): Incompatible types
[Error] Unit1.pas(95): Undeclared identifier: 'RegGetDataSize'
[Error] Unit1.pas(96): Undeclared identifier: 'RegReadBinary'
[Error] Unit1.pas(98): Operator not applicable to this operand type
[Error] Unit1.pas(112): Incompatible types
[Error] Unit1.pas(127): Undeclared identifier: 'ConvertKeysToBartPE'
[Error] Unit1.pas(127): Undeclared identifier: 'HKCU'
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TfrmMain.ReadKeyToString(hkRoot ; sPath: string; sName: string; bForBartPE: Boolean = True): string;
var
  reg                         : TRegistry;
  sl                          : TStringList;
  x                           : Integer;
  rgdt                        : Cardinal;
  sRegType                    : string;
  Buff                        : array[0..1023] of Byte;
  Size                        : Cardinal;

begin
  sl := TStringList.Create;
  Result := '';

  reg := TRegistry.Create(KEY_READ);
  reg.RootKey := hkRoot;
  reg.OpenKeyReadOnly(sPath);

  RegGetDataType(hkRoot, sPath, sName, rgdt);
  case rgdt of
    REG_SZ:
      begin
        sRegType := KeyTypeToStr(rgdt, bForBartPE);
        if bForBartPE then
          Result := '"' + reg.ReadString(sName) + '"'
        else
          Result := reg.ReadString(sName);
      end;

    REG_EXPAND_SZ:
      begin
        sRegType := KeyTypeToStr(rgdt, bForBartPE);
        if bForBartPE then
          Result := '"' + reg.ReadString(sName) + '"'
        else
          Result := reg.ReadString(sName);
      end;

    REG_DWORD:
      begin
        sRegType := KeyTypeToStr(rgdt, bForBartPE);
        if bForBartPE then
          Result := '0x' + IntToHex(reg.ReadInteger(sName), 1)
        else
          Result := '0x' + IntToHex(reg.ReadInteger(sName), 1) + ' (' + IntToStr(reg.ReadInteger(sName)) + ')';
      end;

    REG_MULTI_SZ:
      begin
        sRegType := KeyTypeToStr(rgdt, bForBartPE);

        RegReadMultiSz(hkRoot, sPath, sName, sl);

        for x := 0 to sl.Count - 1 do
          begin
            if bForBartPE then
              Result := Result + '"' + sl[x] + '",'
            else
              Result := Result + sl[x] + ',';
          end;
        Result := StrLeft(Result, Length(Result) - 1);
      end;

    REG_BINARY:
      begin
        sRegType := KeyTypeToStr(rgdt, bForBartPE);

        ZeroMemory(@Buff, SizeOf(Buff));
        RegGetDataSize(hkRoot, sPath, sName, Size);
        RegReadBinary(hkRoot, sPath, sName, Buff, Size);

        if (bForBartPE) and (Size > 50) then Result := Result + '\'#13#10;

        for x := 1 to Size do
          begin
            if bForBartPE then
              begin
                Result := Result + IntToHex(Buff[x - 1], 2) + ',';
                if ((x mod 50) = 0) and (x < Integer(Size)) then
                  Result := Result + '\'#13#10;
              end
            else
              Result := Result + IntToHex(Buff[x], 2) + ' ';
          end;

        Result := StrLeft(Result, Length(Result) - 1);
      end;

    REG_NONE: sRegType := KeyTypeToStr(rgdt, bForBartPE);
    else
      Result := '!UNKNOWN!';
  end;

  reg.CloseKey;
  reg.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ConvertKeysToBartPE(HKCU, '\SOFTWARE\Microsoft', form1.Memo1, True);
end;

end.

Gruß martz