Create a new file date/de

From Free Pascal wiki
Jump to navigationJump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.

Deutsch (de)

Ändert das Erstellungsdatum einer Datei: 

function funDateiDatumAendern(strDateiname: string;
  strNeuerZeitstempel: string): boolean;
var
  datNeuesDateidatum: TDateTime;

begin

  Result := False;

  // Prüft, ob die Datei vorhanden ist
  if not FileExists(strDateiname) then
    exit;

  // legt den aktuellen Datums- und Zeitstempel der Datei fest
  // Die Schreibweise des Datums richtet sich nach dem Betriebssystem
  // Die Schreibweise der Uhrzeit richtet sich nach Sommer- und Winterzeit

  datNeuesDateidatum := StrToDateTime(strNeuerZeitstempel);

  // StrToTime('03:00')
  // TryStrToDateTime

  // Setzt das neue Dateidatum
  FileSetDate(strDateiname, DateTimeToFileDate(datNeuesDateidatum));

  Result := True;

end;


Aufruf unter Windows: 

  if not funDateiDatumAendern('E:\Test.txt', '10.01.2000 14:34:56') then
    ShowMessage('Fehler');


Aufruf unter Linux (Ubuntu): 

  if not funDateiDatumAendern('/home/user/Dokumente/Test.txt', '10-1-00 14:34:56') then
    ShowMessage('Fehler');



--Olaf 06:44, 19 July 2013 (UTC)

Retrieved from "http://wiki.freepascal.org/index.php?title=Create_a_new_file_date/de&oldid=130657"