procedure TauAutoUpgrader.DeleteTemporaryFiles; var FindHandle: THandle; FindData: TWin32FindData; begin FindHandle := FindFirstFile(PChar(EXEDir + '*' + TMPExt), FindData); if FindHandle <> INVALID_HANDLE_VALUE then begin repeat
//DeleteFile(FindData.cFileName);
until not FindNextFile(FindHandle, FindData); Windows.FindClose(FindHandle); end; end; 为什么已经注释了删除文件 这行,控件重新编译,仍然把所有 *.uTMP 文件删除了
----------------------------------------------
▄︻┻┳═