Topic: registry
hello friends... how to Write Registry in Local_Machine
procedure Nozzles_OnShow (Sender: string; Action: string);
var
Timer1,Timer2: TTimer;
reg: TRegistry;
iDays: integer;
sKey: string;
begin
sKey := '';
Reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE ;
reg.Access := KEY_ALL_ACCESS;
reg.OpenKey('Intel\Inter®\'+APP_NAME,true);
if not reg.ValueExists('StartFrom') then reg.WriteDate('StartFrom', (Now+15)); // trial period is 30 days
iDays := Trunc(reg.ReadDate('StartFrom')) - Trunc(Now); // time left days
sKey := reg.ReadString('Parameters');
RegKey.edKey.Text := sKey;
reg.CloseKey;
reg.Free;
if sKey<>'' then
begin
if CheckKey(sKey) then Exit;
end;if (iDays < 1) or (iDays > 15) then
begin
RegKey.lbTrial.Caption := 'Trial period is over.';
RegKey.ShowModal;
Nozzles.Close;
Exit;
end;
isAllowRun := True;
RegKey.lbTrial.Caption := 'Demo version. Time left: ' + IntToStr(iDays) +' days.';
RegKey.ShowModal;
end;