Zitat von
Remko:
Delphi-Quellcode:
const
_SECOND: int64 = 10000000;
_MINUTE: Int64 = 600000000;
_HOUR: Int64 = 36000000000;
_DAY: Int64 = 864000000000;
var
ft: FILETIME;
i: Int64;
begin
// Set filetime to 0 which means January 1, 1601
ft.dwLowDateTime := 0;
ft.dwHighDateTime := 0;
// inc by 30 days
ft := TFileTime(Int64(ft) + (30 * _DAY));
ok thx, das werde ich mal ausprobieren!!
ok thx, i try it!!