Delphi 保存Linux时间戳至剪切板案

Delphi 保存Linux时间戳至剪切板案

主要代码：

var

str1, str2 : string;

begin

  // 获取时间戳

  str1 := DateTimeToUnix(now,False).ToString;

  // ShowMessage(str1);

  // 时间戳转16进制

  str2 := IntToHex(strtoint(str1),2);

  // ShowMessage(str2);

  // 复制到剪切板

  Clipboard.SetTextBuf(PChar(str2));

end;

————————————————

原文链接：https://blog.csdn.net/qq_44111597/article/details/112008419