01 2023 档案
摘要:获取临时文件目录(文件夹)和文件 代码 调用Winapi方式 procedure TForm1.Button1Click(Sender: TObject); var vPath, vFile: array [0 .. MAXBYTE] of Char; begin //获取临时文件路径 GetTem
阅读全文
摘要:获取Unix 时间戳 代码 uses System.DateUtils; procedure TForm1.Button1Click(Sender: TObject); begin //获取当前时间的 Unix 时间戳 Memo1.Lines.Add(IntToStr(DateTimeToUnix(
阅读全文
摘要:计算运行时间(耗时) 代码 var vTick: DWORD; begin vTick := GetTickCount; //计算运行时间的代码... Application.MainForm.Caption := Format('耗时:%f 秒', [(GetTickCount - vTick)
阅读全文