Natürlich, aber ich kann das Alter nicht auslesen. Wenn ich FileAge auslese ist der Wert immer -1! Ich habe es gerade mal mit einem label1 Objekt porbiert und der Datei c:/test.txt
Delphi-Quellcode:
var
zahl: integer;
wert: string;
procedure TForm1.FormCreate(Sender: TObject);
begin
zahl := SysUtils.FileAge('c:\test.txt');
wert := IntToStr(zahl);
label1.caption := wert;
end;
Im Label steht dann leider nur "-1", die Datei besteht aber und ich habe sie schon einige male einfach verändert... doch es kommt immer als Antwort "-1" heraus.
Zielfunktion wäre:
Beim Formstart: "Alter bestimmen der Datei test.txt"
Beim Prüfen: "Das Vom Start bestimmte Alter mit der aktuellen vergleichen" oder "Das letzt Alter mit der aktuellen vergleichen"
Hat sich dann was geändert soll er ein Soundfile abspielen.