Ver Mensaje Individual
  #3  
Antiguo 21-05-2018
ebeltete ebeltete is offline
Miembro
 
Registrado: may 2003
Posts: 236
Reputación: 21
ebeltete Va por buen camino
Colocando un combobox con los siguientes items:
Alchemy
Battery
Bars
BlazingColors
y en el evento onchange:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
VAR
REG:TREGISTRY;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
 Reg.OpenKey('software\microsoft\mediaplayer\preferences',True);
 Reg.writestring('CurrentEffectType',ComboBox1.Text);
finally
 Reg.Free;
end;


end;
sin olvidar poner registry en el uses.
Esto modifica el registro, lo que no he podido reiniciar el windowsmediaplayer en mi aplicacion.
Salu2
Responder Con Cita