In Delphi werkt navolgende prima. Verschil is het aantal dagen tussen de pc datum en de exe datum. (In Delphi is de functie FileAgeUTF8 weg gewoon FileAge)
Het resultaat in Lazarus is een groot getal. Dit in plaats van het verwachte nul omdat ik de exe net aanmaak).
Code:procedure TMain_Frm_Basis.Button1Click(Sender: TObject); var Verschil : Integer; ExeDate : TDateTime; begin ExeDate := FileAgeUTF8(Application.ExeName); verschil := DaysBetween(Now, ExeDate); end;
Bookmarks