Udtræk fra Win9x Reg.DB (HASTER!)

var
  reg: TRegistry;
  i: Integer;

begin
 
  reg := TRegistry.Create();
  reg.Root := HKEY_CURRENT_USER;
  reg.OpenKey("\Software\BlablaWare\MyGoldenSoft");
  i := reg.ReadInteger("width");

end;

Lidt mere fyldigt:

var
  Registry: TRegistry;

begin

  // read application settings from registry
  Registry := TRegistry.Create;
  try
    Registry.Rootkey := HKEY_CURRENT_USER;

    if (Registry.OpenKey(APP_REGPATH, False)) then begin

      if (Registry.ValueExists('sample')) then
        m_sample := Registry.ReadString('sample');

      if ( Registry.ValueExists('tray') ) then
        bStartMin := Registry.ReadBool('tray');

      if (Registry.ValueExists('x')) then
        x := Registry.ReadInteger('x');

      if (Registry.ValueExists('y')) then
        y := Registry.ReadInteger('y');

      if (Registry.ValueExists('width')) then
        width := Registry.ReadInteger('width');

      if (Registry.ValueExists('height')) then
        height := Registry.ReadInteger('height');

      Registry.CloseKey;
    end;

  finally
    Registry.Free;
  end;


end

Det med at checke om dit og dat findes er slet ikke nødvendigt i mit tilfælde, for den key som jeg skal læse findes altid, for det er HKEY_LOCAL_MACHINE\Network\Logon og key'en "username" jeg skal læse !!!

Så det er egentlig ikke en værdi, men en streng jeg skal læse, sorry ;)

Snowball

Men det fungere jo paa praecis samme maade:

  Registry := TRegistry.Create;
  try
    Registry.Rootkey := HKEY_LOCAL_MACHINE;
    if (Registry.OpenKey("\Network\Logon")) Then
    begin
      username := Registry.ReadString("username");

    end;

  finally
    Registry.Free;
  end;

Din kode skulle lige rettes lidt til, men nu virker det ;)

var
  reg: TRegistry;
  y: Integer;
  s: String;

begin
reg := TRegistry.Create;
  try
    reg.Rootkey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('\SYSTEM\ControlSet001\Control\ComputerName\ComputerName', True) Then
    //    if reg.OpenKey('\Network\Logon', True) Then
    begin
      s := reg.ReadString('ComputerName');
    end;
  finally
    reg.Free;
  end;
end;

Tak for hjælpen !

Snowball

Hov, der er lige lidt der ikke skal være der, men skidt pyt med det ;)

Du får i hvert fald dine point som tak for hjælpen ;)

Snowball

Tak!

Det er vist for mange timer siden, jeg har programmet Pascal :o)