Hallo Roland,
da wollte ich wohl gleich ein
Bischen viel testen... (v7.6)
Def %Max_Path 260
Struct Win32_FileTime_Struct = dwLowDateTime&,dwHighDateTime&
Struct Win32_Find_Data_Struct = dwFileAttributes&,\
FILETIME ftCreationTime,\ 'nein
FILETIME ftLastAccessTime,\ 'nein
FILETIME ftLastWriteTime,\ 'nein
nFileSizeHigh&,nFileSizeLow&,\
dwReserved0&,dwReserved1&,\
cFileName$[ @Sub( %Max_Path, 1 ) ],\
cAlternateFileName$[ 13 ]
Mit deiner Lösung könnte ich die FILETIME-Struktur
nur einmal einsetzen, da Namens-Kollisionen.
(das obige Beispiel sollte aus WIN32.HLP übersetzt
werden und mußte bei den nein's abgebrochen werden)
oder habe ich einfach etwas übersehen?
Kann ich bei solchen Strukturen eigentlich die Größe
irgendwo abfragen? (SizeOf unter Pascal)
Oder geht das nur per Handzählung und...
Declare FFD#
Def %Win32_FFD_Size 318 'hier handgezählt
Struct Win32_Find_Data_Struct = (vererbte Structs)
Dim FFD#,Win32_Find_Data_Struct 'hier autom. Größe
BlockWrite #1,FFD#,0,%Win32_FFD_Size 'und hier benötigte Größe
Bisher habe ich das einfach immer abgezählt, aber
wenn jetzt die Strukturen umfangreicher werden
können, dann möchte man natürlich auch irgendwo
die Größe erfragen können.
Wie lösen die anderen Profaner eigentlich
dieses kleine Problem?
MfG
Michael Wodrich
--
Programmieren, das spannendste Detektivspiel der Welt.
|