Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Aplicar cambios hechos en Opciones de Carpeta (https://www.clubdelphi.com/foros/showthread.php?t=49157)

aeff 15-10-2007 06:27:35

Aplicar cambios hechos en Opciones de Carpeta
 
hola, hace poco hice una pregunta sobre como cambiar las "Opciones de carpeta" de Windows y encontré la solución, ahora, lo que pasa es que no se como informarle ese cambio al sistema, ¿alguien me puede ayudar en esto?

muchas gracias,

saludos, aeff!

cHackAll 15-10-2007 18:52:19

Bueno pues qué cambios especificos realizaste en las Opciones de carpeta? talvez con ese dato se podría hacer algo, pero en todo caso una solucion no buena pero efectiva seria que reinicies el proceso del explorer para que lea las nuevas variables. O talvez funcione un SendMessage(WM_BROADCAST, algo "INI CHANGE" (no recuerdo muy bien la constante).

Si me equivoco aclaranos un poco más el escenario.
Saludos

aeff 16-10-2007 04:37:39

Cita:

Empezado por cHackAll (Mensaje 238651)
Bueno pues qué cambios especificos realizaste en las Opciones de carpeta? talvez con ese dato se podría hacer algo, pero en todo caso una solucion no buena pero efectiva seria que reinicies el proceso del explorer para que lea las nuevas variables. O talvez funcione un SendMessage(WM_BROADCAST, algo "INI CHANGE" (no recuerdo muy bien la constante).

Si me equivoco aclaranos un poco más el escenario.
Saludos


saludos, en codigo C++, he probado con esto:

Código:

  #define wm_broadcast 0xffff
  #define wm_wininichange 0x001a
  SendMessage(Handle, wm_broadcast,  wm_wininichange, 0);

pero no funciona, ¿aguien tiene mas que esto?

¿cuando te refieres a reiniciar el proceso del explorer me dices que termine con el Explorer.exe y lo mande a ejecutar nuevamente?

muchas gracias,

saludos

aeff!!!

aeff 16-10-2007 04:42:46

bueno, de esta forma si fuanciona:

Código Delphi [-]
  uses shellapi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //
  ShellExecute(Handle, nil, 'tskill', 'Explorer', nil, SW_HIDE);
  ShellExecute(Handle, nil, 'Explorer.exe', nil , nil, SW_HIDE);
end;

end.

pero no muestra un efecto muy agradable, ¿alguna idea?

nuevamente muchas gracias,

salu2, aeff!


La franja horaria es GMT +2. Ahora son las 07:03:44.

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