Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Handle auf verzeichnis?! (https://www.delphipraxis.net/9772-handle-auf-verzeichnis.html)

SirThornberry 3. Okt 2003 18:37


Handle auf verzeichnis?!
 
ich will mit
GetFileTime(AHandle, @time1, @time2, @time3);
die datumswerte eines verzeichnisses auslesen. Mit dateien klappts supi
aHandle := CreateFile(PChar(filename), 0, 0, NIL, OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, 0);
bei verzeichnissen weiß ich allerdings nicht wie ich ein handle darauf bekommen kann... Hat jemand ne Idee oder ne andere variante die datumswerte von verzeichnissen zu bekommen??

sakura 3. Okt 2003 18:52

Re: Handle auf verzeichnis?!
 
Mit Verzeichnissen kannst Du den gleichen Code (CreateFile) nutzen. Ich bin mir jatzt aber nicht sicher, ob Du den Namen des Verzeichnissen mit oder ohne abschließenden BackSlash ("\") angeben musst, nur eine Variante funktioniert!

...:cat:...

Chewie 3. Okt 2003 19:05

Re: Handle auf verzeichnis?!
 
Laut dem Hilfetext von ExtractFilePath nehmen die API-Funktionen den Verzeichnisnamen ohne abschließendes Backslash an.

Christian Seehase 4. Okt 2003 01:13

Re: Handle auf verzeichnis?!
 
Moin SirThornberry,

Du musst noch das Flag FILE_FLAG_BACKUP_SEMANTICS mit angeben, sonst funktioniert das nicht.
CreateFile auf ein Directory funktioniert unter 95/98/ME grundsätzlich nicht.

Basilikum 4. Okt 2003 07:48

Re: Handle auf verzeichnis?!
 
Wenn es nur um das Datum geht, gäbe es da noch:
Code:
BOOL GetFileAttributesEx(
    LPCTSTR lpFileName,    // pointer to string that specifies a file or directory
    GET_FILEEX_INFO_LEVELS fInfoLevelId,    // value that specifies the type of attribute information to obtain
    LPVOID lpFileInformation    // pointer to buffer to receive attribute information
);
Diese Funktion ist bereits mit dem Filename/Directoryname zufrieden.


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:08 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