/ Forside/ Teknologi / Udvikling / Delphi/Pascal / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Hvornår blev fil sidst læst?
Fra : sandy
Vist : 593 gange
50 point
Dato : 07-01-01 18:28

Er der nogen som ved, hvordan man kan finde ud af hvornår en fil sidst blev læst?

//Sandy

 
 
Kommentar
Fra : Nyhedsbruger


Dato : 07-01-01 23:20

Hej.

Prøv at se på TSearchRec og TWin32FindData

"sandy" <sandy.news@kandu.dk> skrev i en meddelelse
news:AF166.3605$yR4.62403@twister.sunsite.dk...
> Er der nogen som ved, hvordan man kan finde ud af hvornår en fil sidst
blev læst?
>
> //Sandy
>
>
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>



Accepteret svar
Fra : foobar

Modtaget 50 point
Dato : 18-01-01 11:46

Hej sandy,

Her er et eksempel :

procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle : THandle;
LocalFileTime : TFileTime;
DosFileTime : DWORD;
LastAccessedTime : TDateTime;
FindData : TWin32FindData;

begin
FileHandle := FindFirstFile(''AnyFile.FIL'', FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,
LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);
LastAccessedTime := FileDateToDateTime(DosFileTime);
Label1.Caption := DateTimeToStr(LastAccessedTime);
end;
end;
end;


Håber dette hjælper dig

Foobar

Godkendelse af svar
Fra : sandy


Dato : 18-01-01 11:48

Tak Foobar.

Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177449
Tips : 31962
Nyheder : 719565
Indlæg : 6408120
Brugere : 218879

Månedens bedste
Årets bedste
Sidste års bedste