Function FileGetAttr(nombre:UnicodeString):longword; Begin FileGetAttr:=GetFileAttributesW(PWidechar(nombre)); End;