Create a new file date/de
From Lazarus wiki
Jump to navigationJump to search
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)