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! :D
[Only registered and activated users can see links. Click Here To Register...]
Senha = www.imperyusgames.com.br
Créditos e Source: Shiu