Új hozzászólás Aktív témák
-
ViragL
tag
Forrás: Jon Erik Oterhals Utolsó módosítás: 1998. december 17.
A fájl utolsó hozzáférésének (használatának) időpontját az alábbi eljárással tudod megjeleníteni. (A kérdéses fájl nevét (elérési útját) az AnyFile.FIL helyére kell behelyettesíteni.)
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;
MOD: gugli tudja
[Szerkesztve] -
RAM
őstag
, mostmár jobban tudom mi az a de bogarizáló.
Más:
Mikor elmenteni a dolgokat?
Van egy olyan érzésem, hogy elrontja, ha nyitogatok-szóval ki-be járkálok a fájlokkal, közben pas-t, unit-ot, form-ot szerkesztek, mialatt futtatok, dpr -re kattanok, és bekattanok, mert olyan kerül a programomba, amit ki nem tudok szedni, mert teljesen átláthatatlanná teszi a programot....
Írjátok le légyszíves mikor kell OK-t nyomni, amikor ajánlja a Mentést? (Nekem mindig ész nélkülinek tűnik, hogy ajánlja, van, amikor persze tovább sem enged, ha nem mentem...)
Az Office mentését értem, de ezt, hát.......
Pancser(Kezdő) szinten vagyok még. {Észkerék from 90-es évek rulZ![;]](//cdn.rios.hu/dl/s/v1.gif)
}
[Szerkesztve]
, mostmár jobban tudom mi az a de bogarizáló. 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
}
Új hozzászólás Aktív témák
- Playstation 4 Fat 500GB Kontrollerrel
- Eladó Dell Precision XPS 9510 FHD+ IPS i7-11800H RTX 3050Ti 16GB 1TB 1 hét gar
- LG 55SM9010PLA 4k Nanocell TV! 55"/Nano IPS/Dolby Vision/Atmos/4k-120hz/Freesync/HDR10/"Gaming TV"
- Canon 5D Mark IV + 24-70mm f/2.8L II + 50mm f/1.8 II teljes szettváltás miatt 780 000 Ft
- Light Phone 3 (gomb hibával)
- GYÖNYÖRŰ iPhone 11 128GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS3127, 100% Akkumulátor
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- MacBook Pro 13, 14, 15, 16, MacBook Air M1, M2 M3 M4 bill magyarosítás lézerrel / sapkacserével
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB DDR5 RAM RTX 5070 12GB GAMER termékbeszámítással
- Eredeti DELL 240W töltők (LA240PM160)
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest