atributos

[diniremix]

hola atod@s y saludos

mediante llamadas al api o parecedidas mediante codigo delphi podria darle atributos a mis archivos como de solo lectura, ocultos de sistema etc..
uso shellexecute y trato d localizar un archivo y pasarle los parametros pero no m los acepta

por ej (especulando ) se podria hacer algo asip?

Código Delphi [-]
shellexecute(Form1.handle,nil,'attrib C:\fichero.txt +H +R +S','',sw_shownormal);

agradezco las sugerencias

gracias po sus respuestas

[delphi.com.ar]

SetFileAttributes o SetFileAttributes es lo que buscas...

Código Delphi [-]
var
  Attrs : Word;
begin
  Attrs := FileGetAttr('MyFile.sys');

  if Attrs and faHidden <> 0 then
    FileSetAttr('MyFile.sys', Attrs – faReadOnly);
end;

En el foro hay varios ejemplos al respecto,
Saludos!

[diniremix]

hola gracias delphi.com.ar

muy interesante trato d entender (y lo hago) pero nop entiendo esta linea...

Código Delphi [-]
var
  Attrs : Word;
begin
  Attrs := FileGetAttr('MyFile.sys');
 
//esta!!
  if Attrs and faHidden <> 0 then
    FileSetAttr('MyFile.sys', Attrs – faReadOnly);
//hasta aqui

end;

entiendo lo q escribiste asip:

a attrs le asignas la ruta del fichero...
y ahora evaluas si el archivo esta oculto y attrs es <>0 cierto?...
finalmente fijas el atributo d solo lectura (Attrs – faReadOnly) al archivo..

corregirme...

ah saludos y gracias por el codigo!

[[seoane]]

Con el permiso de Federico creo que yo puedo explicartelo. La funcion FileGetAttr devuelve un numero, en el que cada bit significa un atributo (si el bit esta a 1 el atributo esta presente). Por lo tanto para saber si un atributo esta presente hacemos la operacion AND sobre el con un numero que tiene todos los bits a cero menos el que nos interesa, de este modo si el resultado es mayor que cero es que el bit que nos interesaba estaba a uno.

Espero no haberte liado mas

[diniremix]

hola y salu2
gracias amigo seoane por el comentario lo explicaste como dicen acá
"con plastilina"

muy instructivo gracias
y .... d nuevo gracias

P.D.
no nos olvidemos del amigo delphi.com.ar tambien muchas gracias a él por la idea