|
respuesta retardada pero vale
es posible que la siguiente función te sirva...
usa la función FindFirstFile, un ejemplo
var
vPropiedades: _WIN32_FIND_DATA;
begin
FindFirstFile('C:\Test', vPropiedades);
case vPropiedades.dwFileAttributes of
16: ShowMessage('solo lectura');
18: ShowMessage('oculta');
48: ShowMessage('normal/archivo');
50: ShowMessage('solo lectura; oculta y normnal/archivo');
end;
...
espero que te funcione...
la respuesta es un poco tarde, pero lo que sucede es que no había revisado el foro por completo...
|