iconos de carpeta

[Max_E.]

hola a todos
disculpen por no haberme comunicado en buen tiempo, esque tuve una semana muy mala,.... pero bueno¡¡¡¡ volviendo al tema

paldave los codigos que me das no me compilan en

Código Delphi [-]
Result:=GetWindowsDir+'ShellIconCache';

no tengo ni la mas minima idea de que pueda ser......

y sobre el texto en el archivo .ini creado, no hay problema alli, fue error mio al digitar la pregunta si hace la extencion casco.ini , y apesar de aver reiniciado ma maquina no cambia nada ,


esperando alguna ayuda o sugerencia me despido, chau...

[paldave]

Te ruego mil disculpas, tienes razón, el error fué mío ya que a pesar de que lo probé y funciona perfecto se me "coló" esa llamada a una función que es mía y es la llamada GetWindowsDir. Lo que sucede es que tengo miles de rutinas propias en bibliotecas que utilizo para facilitar la programación y algunas de ellas tienen nombre similar a las de Windows y hace tanto que las uso que a veces me olvido que son mías solamente
Algunas me ahorran pequeños trozos de código como la citada, pero cuando tienes que programar mucho esa pequeña ayuda se agradece.
Va aquí el sencillo código de GetWindowsDir:

Código Delphi [-]
function GetWindowsDir:String;
var r,s:String;
begin
  s:=StringOfChar(#0,255);
  GetWindowsDirectory(pchar(s),255);
  result:=IncludeTrailingBackSlash(Trim(s));
end;

Espero que no tengas más problemas.

[Max_E.]

hola de nuevo (paldave):

no puedo creer que me complique por esta aplicacion que deseo hacer; pero bueno tengo que conseguirlo.

NO COMPILA aun con la funcion que me diste en la respuesta anterior, me parece que el problema va por la ubicacon de la función: debo declararlo como a los procedure?, o pornerlos defrente debajo de la zona privada o publica o talves debajo de:

Código Delphi [-]
 
implementation
{$R *.dfm}

sin declarlo, te recuerdo que son novato en esto pero con mucho interes en conocer mas. Te agradesco de ante mano la ayuda que me brindas y la ayuda que puedas darme con este nuevo paso.
GRACIAS Y HASTA LA PROXIMA....

[paldave]

Puedes ponerla en la sección Public de tu Form, algo así:

Código Delphi [-]
type
   TForm1 = class(TForm)
     private
     protected
     public
       function GetWindowsDir:String;
     published
   end;

y luego la implementas como:

Código Delphi [-]
function TForm1.GetWindowsDir:String;
var r,s:String;
begin
  s:=StringOfChar(#0,255);
  GetWindowsDirectory(pchar(s),255);
  result:=IncludeTrailingBackSlash(Trim(s));
end;

[Max_E.]

Hola a todos

paldave PORFIN, ya compila y al presionar el boton actualiza sistema a la perfección con un solo inconveniente NO CAMBIA EL ICONO jajajajajajaja.

se crea el archivo .ini correctamente

[.ShellClassInfo]
IconFile=E:\Administrador\disket\prueba de icono\casco.ico
IconIndex=0

-queda claro entonces que el problema no es el programa ni codigos???
-puede ser el problema el archivo de icono?? estoy utilizando el microangelo para la creación del icono e incluso iconos comunes bajados de internet
-la ubicación del archivo icono y la carpeta a modificar tiene algo que ver???

QUE SERA??????

[paldave]

Pues sí que es raro, a mi me funciona perfectamente
¿No será que tienes un problema en el Sistema Operativo?
Yo uso WinXP Professional con SP2.

[Max_E.]

hola a todos
si que raro, voya llevar la aplicación en otra computadora a ver si el problema es el sistema operativo.
traere noticias..............