Wanneer ik onderstaande code gebruik werkt die netjes de 1e keer en de entries worden aangemaakt.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
RegFile : TRegistry;
RegKey : string;
bOpenResult : boolean;
Today : TDateTime;
begin
RegFile := TRegistry.Create(KEY_READ);
RegFile.RootKey := HKEY_CURRENT_USER;
RegKey := 'Software\Bedrijf\Software';
if (not RegFile.KeyExists(RegKey)) then begin
RegFile.Access := KEY_WRITE;
bOpenResult := RegFile.OpenKey(RegKey,True);
if not RegFile.KeyExists('Installatie') then begin
Today := Now;
RegFile.WriteDateTime('Installatie', today);
end;
if not RegFile.KeyExists('Installcode') then begin
Regfile.WriteString('InstallCode', '123456');
end;
if not RegFile.KeyExists('Machinecode') then begin
Regfile.WriteString('Machine', '300463');
end;
end;
regFile.CloseKey();
regFile.Free;
Stel dat ik de code uitbreid met een extra entry en run het opnieuw dan
wordt deze laatste toevoeging in registry niet aangemaakt.
Verwijder ik de registry entry of het niveau van '\Software' dan worden
alle entries wel aangemaakt.
Wat zie ik over het hoofd ?
Code:
if not RegFile.KeyExists('Locatiecode') then begin
Regfile.WriteString('Locatiecode', 6021XX');
end;
Bookmarks