Foros Club 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 10:53:40.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi