Fecha de Directorio en Windows XP

[vicvil]

Tengo un problema al leer la fecha de un directorio en Windows XP. Cuando corro el sistema en Windows 98 no hay problemas ya que este conserva siempre la misma fecha pero en Windows XP la fecha del directorio cambia cada vez que se agregan o eliminan archivos, pero me he dado cuenta que este maneja dos fechas, la de modificacion y la de creación. Mi pregunta es ¿como puedo obtener la fecha de creación en Windows XP? si es que se puede, y si existe la forma ¿servirá para Windows 98?
Gracias.

[negama]

En realidad XP maneja tres fechas: de creacion, modificacion y ultimo acceso, este ejemplo es para acceder a tales fechas de un archivo espero que te sirva para adaptarlo al directorio, el meollo del asunto está en el GetFileTime ..

function obtenerFechasFichero (const FileName: string; var Created: TDateTime;
var Accessed: TDateTime; var Modified: TDateTime): Boolean;
var
h: THandle;
Info1, Info2, Info3: TFileTime;
SysTimeStruct: SYSTEMTIME;
TimeZoneInfo: TTimeZoneInformation;
Bias: Double;
begin
Result := False;
Bias := 0;
h := FileOpen(FileName, fmOpenRead or fmShareDenyNone);
if h > 0 then
begin
try
if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then
Bias := TimeZoneInfo.Bias / 1440; // 60x24
GetFileTime(h, @Info1, @Info2, @Info3);
if FileTimeToSystemTime(Info1, SysTimeStruct) then
Created := SystemTimeToDateTime(SysTimeStruct) - Bias;
if FileTimeToSystemTime(Info2, SysTimeStruct) then
Accessed := SystemTimeToDateTime(SysTimeStruct) - Bias;
if FileTimeToSystemTime(Info3, SysTimeStruct) then
Modified := SystemTimeToDateTime(SysTimeStruct) - Bias;
Result := True;
finally
FileClose(h);
end;
end;
end;

.
.
.

procedure TForm1.Button1Click(Sender: TObject);
var
fechaCreacion, ultimoAcceso, ultimaModificacion : TDateTime;

begin

//fechas
if obtenerFechasFichero (txtFichero.Text, fechaCreacion, ultimoAcceso, ultimaModificacion) then
begin
RichEdit1.Lines.Add('Fecha creación: ' + DateToStr (fechaCreacion));
RichEdit1.Lines.Add('Fecha último acceso: ' + DateToStr(ultimoAcceso));
RichEdit1.Lines.Add('Fecha modificación: ' + DateToStr(ultimaModificacion));
end;

end;

[vtdeleon]

Saludos

negama por favor utiliza las etiquetas vB (se ve mejor, no?), informate en los enlaces de mi firma. ;)