Registrerings databasen

D-WORD er 4 byte så du læser bare værdien som en Integer (også 4 bytes).


const
  _RegProgramKey        = '\Software\FaxServer';
  _RegPollInterval      = 'PollInterval';
var
  Reg          : TRegistry;
  iPollInterval : Integer;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey(_RegProgramKey, True);
  //---
  iPollInterval := Reg.ReadInteger(_RegPollInterval);
  //---
  Reg.CloseKey;
  Reg.Free;
end;

Pellelil har helt ret, men mangler dog et par "pæne" programmeringsteknikker:

1. i Openkey skal du bruge "false" som parameter når du bare skal læse. "True" betyder "tilladelse til at oprette nøgle hvis den ikke findes". Ved en læs opretter du selvfølgeligt ikke noget, men alligevel.

2. Brug altid try..finally..end når du har en create og free. Hvis der sker et eller andet mellem de 2 bliver memory ikke frigivet, så:

begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey(_RegProgramKey, True);
    //---
    iPollInterval := Reg.ReadInteger(_RegPollInterval);
    //---
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end

Det er den "pæne" måde at programmere på, men eller har pellelil som nævnt ret

Hvordan skriver man så??

Foruden at du stadig skal bruge "den omliggende kode", så skriver du bare: "Reg.WriteInteger(_RegPollInterval, iValue);", hvor iValue indeholder det D-Word du vil skrive.

Tak for hjælpen :-)