Hilfe ??? Wie kann ich Datenträger Datum auslesen ?

[sakura]

@Chakotay1308: Das wird wohl kaum weiterhelfen.

Hier mal ein Beispiel. Erstelle ein neues Projekt, füge einen Button hinzu. In das OnClick Ereignis schreibe einfach folgenden Code (Laufwerksbuchstaben anpassen!)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  FI: TWin32FileAttributeData;
  ST: TSystemTime;
begin
  if GetFileAttributesEx('C:\', GetFileExInfoStandard, @FI) then
  begin
    FileTimeToSystemTime(FI.ftCreationTime, ST);
    ShowMessage(
      IntToStr(ST.wYear) + '\' +
      IntToStr(ST.wMonth) + '\' +
      IntToStr(ST.wDay) + ' ' +
      IntToStr(ST.wHour) + ':' +
      IntToStr(ST.wMinute) + ':' +
      IntToStr(ST.wSecond)
    );
  end;
end;