KMem

[Khronos]

Hola, gracias por responder cHackAll y Dec.

Investigué bastante sobre la API SetProcessWorkingSetSize, aunque no tanto como tú dec
Ya sabía que movía partes de la memoria física a la memoria virtual del sistema, pero si Windows lo hace cada vez que minimizas un programa no tiene porque ser perjudicial ¿no?.

Aver este programa lo hice en una tarde de aburrimiento, y si que se nota la diferencia con ciertas tarjetas gráficas, me explico. Como seguramente sabréis hay tarjetas gráficas que no tienen una propia memoria dedicada, si no que emplean la memoria RAM para el renderizado de los gráficos. Usando KMem, tendremos un mayor consumo de memoria virtual pero dejaremos la memoria RAM "más ligera" para otros menesteres como bien puede ser este. Más bien KMem pienso que está pensado para ordenadores con poca memoria.

Y si Dec, en otros proyectos le dedico bastante más tiempo al nombre de los identificadores pero este programa lo hice bastante rápido. Me llevó más trabajo el instalador que el programa

Saludos.

[Khronos]

Valores INI por defecto

Cuando lees un "archivo de idioma", podrías proporcionar un valor "por defecto" a cada valor, para el caso de que una determinda "clave" no se encuentre en el archivo de idioma, o bien tenga un valor (o pueda tener un valor) "vacío".

Código Delphi [-]
procedure TFMain.FormCreate(Sender: TObject);
var
Reg: TRegistry;
i: integer;
begin
LoadLangs();
//En este procedimiento si no encuentra los archivos .lang en la carpeta \lang
//informa que se usará como idioma el español.


  try
    Reg:= TRegistry.Create;
    Reg.RootKey:= HKEY_CURRENT_USER;
    Reg.OpenKey('\Software\KMem', true);
    if Reg.ValueExists('Speed') = false then Reg.WriteInteger('Speed', 3);
    if Reg.ValueExists('StartUp') = false then Reg.WriteBool('StartUp', true);
    if Reg.ValueExists('Ico') = false then Reg.WriteBool('Ico', true);
    if Reg.ValueExists('Lang') = false then Reg.WriteString('Lang', 'spanish');

    i:= langbox.Items.IndexOf(Reg.ReadString('Lang'));
    if i > -1 then
      begin
        langbox.ItemIndex:= i;
        langbox.OnChange(sender);
      end;

    tbTime.Position:= Reg.ReadInteger('Speed');
    CheckBox1.Checked:= Reg.ReadBool('StartUp');
    CheckBox2.Checked:= Reg.ReadBool('Ico');
  finally
    Reg.Free;
  end;
   try
     Reg:= TRegistry.Create;
     Reg.RootKey:= HKEY_LOCAL_MACHINE;
     Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false);
     Reg.WriteString('KMem', Paramstr(0));
   finally
     Reg.free;
   end;
   If CheckBox2.Checked = false then  TrayIcon1.Visible:= false;
end;

Saludos.