- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Klaus Duran: Youtube AI szinkron
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- votlage71: Kábel menedzsment
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
- Elektromos rásegítésű kerékpárok
- Gurulunk, WAZE?!
Ú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}
[Szerkesztve]
Új hozzászólás Aktív témák
- Asztali PC , i5 11400F , RTX 3060 12GB , 16GB DDR4 , 512GB NVME , 2TB HDD
- Iphone 16 plus 6db folia + ajándék tok
- iPhone 15 Pro Max 256GB Natúr titán, makulátlan, független, 2026.12.08. garancia!
- Asus Zenbook 15 OLED UM3504 - 15.6" 2.8K 120Hz - Ryzen 5 7535U - 16GB - 512GB - 2+ év garancia
- AOC 27" 27G2U Full HD 144Hz monitor eladó!
- Telefon Felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- LG 32GS95UE - 32" OLED / UHD 4K / 240Hz - 480Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
- LG 27UL500-W - 27" IPS - 3840x2160 4K - 60Hz 5ms - HDR10 - AMD FreeSync - 300 Nits - sRGB 99%
- HIBÁTLAN iPhone 13 Pro 256GB Silver -1 ÉV GARANCIA - Kártyafüggetlen, MS3019, 100% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest