Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 2.920 pregleda

Najnovija ↓

informacij o fajlu 25.12.2005. u 12:05 · pre 253 meseca #1
kojom funkcijom mogu da doijem informacije o nkom fajlu?
Re: informacij o fajlu 25.12.2005. u 13:15 · pre 253 meseca #2
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 :)
Re: informacij o fajlu 25.12.2005. u 15:32 · pre 253 meseca #3
U delphiu 7 ne postoji funkcija getfattr
Re: informacij o fajlu 25.12.2005. u 15:54 · pre 253 meseca #4
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!
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme