[ Bojann @ 25.12.2005. 11:05 ] @
kojom funkcijom mogu da doijem informacije o nkom fajlu? |
[ Bojann @ 25.12.2005. 11:05 ] @
[ Passwd @ 25.12.2005. 12:15 ] @
Otvoris help i lijepo ides po njemu
![]() GetFAttr (procedure) (Dos unit and WinDos unit) Returns the attributes of a file. Declaration: procedure GetFAttr(var F; var Attr: Word); Target: Windows, Real, Protected Remarks: F must be a file variable (typed, untyped, or text file) that has been assigned but not opened. See Also: GetFTime SetFAttr SetFTime Sample Code: {Getfattr.PAS} {Sample code for the GetFAttr procedure.} { For Windows: } { uses WinDos,WinCrt; } uses Dos; var F: file; Attr: Word; begin { Get file name from command line } Assign(F, ParamStr(1)); GetFAttr(F, Attr); Writeln(ParamStr(1)); if DosError <> 0 then Writeln('DOS error code = ', DosError) else begin Write('Attribute = ', Attr); { Determine attribute type using file attribute constants } if Attr and ReadOnly <> 0 then { For Windows: faReadOnly } Writeln('Read only file'); if Attr and Hidden <> 0 then { For Windows: faHidden } Writeln('Hidden file'); if Attr and SysFile <> 0 then { For Windows: faSysFile } Writeln('System file'); if Attr and VolumeID <> 0 then { For Windows: faVolumeID } Writeln('Volume ID'); if Attr and Directory <> 0 then { For Windows: faDirectory } Writeln('Directory name'); if Attr and Archive <> 0 then { For Windows: faArchive } Writeln('Archive (normal file)'); end; { else } end. itd,itd i naci ces sve funkcije i primjere za njih poz ![]() [ Bojann @ 25.12.2005. 14:32 ] @
U delphiu 7 ne postoji funkcija getfattr
[ Passwd @ 25.12.2005. 14:54 ] @
Govorio sam za Pascal... evo ti mali primjercic u attachu da dobijes neke osnovne informacije u delphiu..ako ti bude trebalo jos samo reci, uglavnom nije tesko!
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|