操作注册表

var
  Registry: TRegistry;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  Registry.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion',False);
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  Registry.OpenKey('\SOFTWARE\CCCCC',True);

  if not Registry.ValueExists('refreshtime') then
  begin
     Registry.CreateKey('refreshtime');
     Registry.WriteString('refreshtime','200');
  end;
  globerefreshtime:=Registry.readString('refreshtime');

  if not Registry.ValueExists('FCanPrint') then   
      Registry.WriteBool('FCanPrint',true);
  FCanPrint:=Registry.ReadBool('FCanPrint');

  if not Registry.ValueExists('PrintNum') then  
      Registry.WriteInteger('PrintNum',1);
  PrintNum:=Registry.ReadInteger('PrintNum');