|Source| Configuração MuOnline | Para launchers

Configuração MuOnline | Para launchers | By: Shiu

Olá pessoal.
Resolvi compartilhar uma source bem simples que é utilizada em launchers de MuOnline.
Ela salva as configurações no registro do Windows.

Para usar é bem fácil. Veja um exemplo abaixo:

Código:

procedure AbrirConfiguracoes();
begin
  // Pega o Login e coloca no TextEdit
  frmConfig.tx1.Text := GetLogin();
  // Pega a Resolução e cor e coloca na ComboBox
  frmConfig.cb1.ItemIndex := GetResolution();
  frmConfig.cb2.ItemIndex := GetColorMode();

  // Verifica se a Música está ativa e da check ou não no CheckB
  if GetMusicState() = 0 then
    frmConfig.cb3.Checked := false
  else
    frmConfig.cb3.Checked := true;
 
  // Verifica se o som está ativo e da check ou não no CheckBox
  if GetSoundState() = 0 then
    frmConfig.cb4.Checked := false
  else
    frmConfig.cb4.Checked := true;
end;

procedure SalvarConfiguracoes();
begin
  // Salva o Login
  SetLogin(frmConfig.tx1.Text);

  // Salva a Resolução e modo de Cor
  SetResolution(frmConfig.cb1.ItemIndex);
  SetColorMode(frmConfig.cb2.ItemIndex);

  // Verifica se a ComboBox está ativa e salva
  if frmConfig.cb3.Checked = false then
    SetMusicState(0)
  else
    SetMusicState(1);

  // Verifica se a ComboBox está ativa e salva
  if frmConfig.cb4.Checked = false then
    SetSoundState(0)
  else
    SetSoundState(1);

  // Salva o Volume (9 é o valor máximo, deixei como padrão)
  SetVolumeLevel(9);
end;

Na Unit tem todos os valores possíveis de configuração. Leiam que vocês entendem.
Espero que gostem!