摘要:
function Kill_Task(ExeFileName: string): integer;const PROCESS_TERMINATE=$0001; //进程的PROCESS_TERMINATE访问权限var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin result:= 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //获取系统所有进程快照 FProcessEntr 阅读全文
摘要:
procedure SetFileDateTime(const Tf: string; now1: TDateTime);var Dt1, Dt2: Integer; Fs: TFileStream; Fct, Flt: TFileTime;begin Dt1 := DateTimeToFileDate(now1); Dt2 := Dt1; try FS := TFileStream.Create(Tf, fmOpenReadWrite); try if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and Local 阅读全文