Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   File Informationen (https://www.delphipraxis.net/2222-file-informationen.html)

poy 13. Jan 2003 13:08


File Informationen
 
hallo
ich hab da eine frage
ist es möglich (in delphi 4) das erstelldatum, letzte speicherung (nutzung) eines files ausfindig zumachen? wenn ja wie?
ein sourcebeispiel wäre eine tolle sache

ich bedanke mich fürs lesen und für alfällige antworten

Christian Seehase 13. Jan 2003 13:13

Moin poy,

seit Win98/NT4 gibt's die API Funktion GetFileAttributesEx.
Damit kann man das machen.

poy 13. Jan 2003 13:26

und wie gebrauche ich diese Win Api funktion?

RomanK 13. Jan 2003 13:52

Dazu kannst du mal in de MSDN nachschauen msdn.microsoft.com .

MathiasSimmack 13. Jan 2003 14:00

Ich werde mal nicht so sein. :)

Die C-Syntax:
Code:
BOOL GetFileAttributesEx(
  LPCTSTR lpFileName,
  GET_FILEEX_INFO_LEVELS fInfoLevelId,
  LPVOID lpFileInformation
);
Der erste Parameter ist dein Dateiname, der zweite kann -laut PSDK!- "GetFileExInfoStandard" sein. Das ist eine Konstante, die du so, wie sie da steht, angibst! Der dritte Parameter ist dann in dem Fall ein Zeiger auf ein Record vom Typ "TWin32FileAttributeData", das alles enthält, was du wissen möchtest:
Code:
typedef struct _WIN32_FILE_ATTRIBUTE_DATA {
  DWORD dwFileAttributes;
  FILETIME ftCreationTime;
  FILETIME ftLastAccessTime;
  FILETIME ftLastWriteTime;
  DWORD nFileSizeHigh;
  DWORD nFileSizeLow;
}
Übersetzt nach Delphi:
Delphi-Quellcode:
if(GetFileAttributesEx('c:\autoexec.bat',
  GetFileExInfoStandard,@fa)) then
begin
  { ... }
end;
Datums- und Uhrzeitwerte sind vom Typ FILETIME und müssen ggf. vorher umgewandelt werden. Stichworte für die API:

FileTimeToSystemTime
GetDateFormat
GetTimeFormat

poy 17. Jan 2003 08:17

wie kann ich die filetime in einen brauchbaren string umwandeln.
ich habe bereits in der win api nachgeschaut, abr da steht alles in c, daraus werde ich nicht schlau.

hoffe ihr könnt mir programmieranfänger helfen


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz