使用 Delphi 获取秒级时间戳的代码如下:
function GetTimestamp: Int64;var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := DateTimeToUnix(SystemTimeToDateTime(SystemTime));
end;
在这段代码中,我们使用了 GetLocalTime 函数来获取本地时间,并使用 SystemTimeToDateTime 将其转换为日期时间格式。然后使用 DateTimeToUnix 将日期时间格式转换为 Unix 时间戳。最后,我们将结果返回为 Int64 类型。
希望这能帮到你。