01 2023 档案

摘要:获取临时文件目录(文件夹)和文件 代码 调用Winapi方式 procedure TForm1.Button1Click(Sender: TObject); var vPath, vFile: array [0 .. MAXBYTE] of Char; begin //获取临时文件路径 GetTem 阅读全文
posted @ 2023-01-17 10:15 txgh 阅读(875) 评论(0) 推荐(0) 编辑
摘要:获取Unix 时间戳 代码 uses System.DateUtils; procedure TForm1.Button1Click(Sender: TObject); begin //获取当前时间的 Unix 时间戳 Memo1.Lines.Add(IntToStr(DateTimeToUnix( 阅读全文
posted @ 2023-01-12 14:59 txgh 阅读(521) 评论(0) 推荐(0) 编辑
摘要:计算运行时间(耗时) 代码 var vTick: DWORD; begin vTick := GetTickCount; //计算运行时间的代码... Application.MainForm.Caption := Format('耗时:%f 秒', [(GetTickCount - vTick) 阅读全文
posted @ 2023-01-04 14:06 txgh 阅读(549) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示