Ver Mensaje Individual
  #4  
Antiguo 22-05-2018
Delphi01 Delphi01 is offline
Miembro
 
Registrado: nov 2015
Ubicación: Barcelona,España
Posts: 68
Reputación: 9
Delphi01 Va por buen camino
Cita:
Empezado por ebeltete Ver Mensaje
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
Hola ebeltete,
Muy bien trabajo amigo, el código funciona perfecto , pero eso de reiniciar el windowsmediaplayer, tampoco he podido .
Saludos .
Responder Con Cita