Foros Club Delphi - Convertir codigo c# a delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- .NET (https://www.clubdelphi.com/foros/forumdisplay.php?f=17)

- - Convertir codigo c# a delphi (https://www.clubdelphi.com/foros/showthread.php?t=93085)

Delphi01

14-05-2018 20:13:13

Convertir codigo c# a delphi

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

Código:



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 Notevi

14-05-2018 20:55:52

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

21-05-2018 22:01:16

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

22-05-2018 01:47:45

Cita:

Empezado por ebeltete (Mensaje 526437)

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 :confused:.
Saludos .

La franja horaria es GMT +2. Ahora son las 02:15:16.