Kako dobiti date changed, modified in size?

Odpiranje, tiskanje, pisanje v datoteke in drugo.
Odgovori
Čavlji
Prispevkov: 985
Pridružen: 28.08.2002 14:05:24

Kako dobiti date changed, modified in size?

Odgovor Napisal/-a Čavlji » 06.06.2006 01:53:10

Katere so funkcije, ki vrnejo date Changed, modified in size datoteke?
Iz fileNamea po možnosti.

LP
čavlji

Uporabniški avatar
Lee_Nover
Prispevkov: 3653
Pridružen: 20.05.2001 14:31:55

Kako dobiti date changed, modified in size?

Odgovor Napisal/-a Lee_Nover » 06.06.2006 02:39:19

direktno s CreateFile, GetFileTime, GetFileSize al pa uporab FindFirstFile pa poglej v FindData
kdo bi si mislu ...
.. my 2 c ..
- I hate noobs -

Čavlji
Prispevkov: 985
Pridružen: 28.08.2002 14:05:24

Kako dobiti date changed, modified in size?

Odgovor Napisal/-a Čavlji » 06.06.2006 09:35:24

Aja tocno findfirst pa direkt filename not... :(
čavlji

Čavlji
Prispevkov: 985
Pridružen: 28.08.2002 14:05:24

Kako dobiti date changed, modified in size?

Odgovor Napisal/-a Čavlji » 06.06.2006 09:59:06

Evo pa se s filecreate ce bo kdo rabil:

Koda: Izberi vse

TJanFileRec = record
  Size     :int64;
  Created,
  Written,
  Accessed :TFileTime;
  end;

function  GetFileRec(const fileName: string; var FR:TJanFileRec ): boolean;
var HWND:THandle;
begin
Result := false;
HWND := CreateFile(PChar(fileName), 0, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if HWND = INVALID_HANDLE_VALUE then exit;
try
FR.Size := GetFileSize( HWND, @Int64Rec(FR.Size).Hi );
GetFileTime( HWND, @FR.Created, @FR.Accessed, @FR.Written )
finally CloseHandle(HWND); end;
Result := true;
end; 
Zadnjič spremenil Čavlji, dne 06.06.2006 10:01:53, skupaj popravljeno 1 krat.
čavlji

Uporabniški avatar
Lee_Nover
Prispevkov: 3653
Pridružen: 20.05.2001 14:31:55

Kako dobiti date changed, modified in size?

Odgovor Napisal/-a Lee_Nover » 06.06.2006 13:16:11

HWND za handle fajla? dej dej .. a ni leps recimo hFile: THandle
HWND je tudi definiran kot tip in se uporablja za handle(h) oken(WND - Window)
tud vidm zakaj mas tok problemov - code formatting :)
.. my 2 c ..
- I hate noobs -

Odgovori