iconos de carpeta

[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..............