Convertir codigo c# a delphi

[Delphi01]

Hola , Alguien puede ayudarme a convertir este código escrito con C# a Delphi ?

public void SetCurrentEffectPreset(int value)
{
    WindowsIdentity identity = WindowsIdentity.GetCurrent();
    string path = string.Format("{0}\\Software\\Microsoft\\MediaPlayer\\Preferences", identity.User.Value);
    RegistryKey key = Registry.Users.OpenSubKey(path, true);
    if (key == null)
        throw new Exception("Error! Registry not found!");
    key.SetValue("CurrentEffectPreset", value, RegistryValueKind.DWord);
    ReinitializeAxWindowsMediaPlayer();   
 }

Muchas gracias .

[Casimiro Noteví]

Si se trata de leer/escribir en el registro de windows, entonces echa un vistazo a este hilo que te puede servir de referencia.

[ebeltete]

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

[Delphi01]

Empezado por ebeltete

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 .