new Date().getTime(); //1533213439019 通过,启发 function DateTimeToUnix(const AValue: TDateTime): Int64;begin Result := SecondsBetween(UnixDateDelta, AValue); if AValue < UnixDateDelta then Result := -Result;end; 得到秒级别的,本人改造一下: MilliSecondsBetween(UnixD
function GetVolumeID: string; var vVolumeNameBuffer: ..] of Char; vVolumeSerialNumber: DWORD; vMaximumComponentLength: DWORD; vFileSystemFlags: DWORD; vFileSystemNameBuffer: ..] of Char; begin if GetVolumeInformation('C:\', vVolumeNameBuffer, SizeOf(
function TSetParkForm.RemoveSgin(str: string): string; // 去掉括号内的内容(包括括号) var i1, i2, i: integer; begin for i := 0 to length(str) - 1 do begin i1 := str.IndexOf('('); if i1 = -1 then break; i2 := str.IndexOf(')'); if i2 = -1 then break; end; result :=