EI3.0每日清空文本变量小工具Delphi源码

夜游神

EI3.0每日清空文本变量小工具Delphi源码

不支持引擎清理ini变量 就写了一个简易的工具 ,复制源码 直接编译即可！

1. program AutoClear;
   
2. 
   
3. {$APPTYPE CONSOLE}
   
4. 
   
5. uses
   
6.   SysUtils, Windows, Dialogs;
   
7. 
   
8. const
   
9.   FileName = 'D:\MIR300\Envir\Variable\每日任务.ini';
   
10. 
    
11. procedure ClearFileContents(const FileName: string);
    
12. var
    
13.   FileHandle: THandle;
    
14. begin
    
15.   FileHandle := CreateFile(PChar(FileName), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
    
16.   if FileHandle <> INVALID_HANDLE_VALUE then
    
17.   begin
    
18.     CloseHandle(FileHandle);
    
19.     Writeln('今日任务参数已重置.......');
    
20.   end
    
21.   else
    
22.     Writeln('无法打开文件：', FileName);
    
23. end;
    
24. 
    
25. procedure CheckTime;
    
26. var
    
27.   CurrentTime: TSystemTime;
    
28.   ConsoleHandle: THandle;
    
29.   ConsoleWindowRect: TSmallRect;
    
30. begin
    
31.   GetLocalTime(CurrentTime);
    
32. 
    
33.   if (CurrentTime.wHour = 0) and (CurrentTime.wMinute = 0) and (CurrentTime.wSecond = 0) then
    
34.     ClearFileContents(FileName);
    
35. 
    
36.   // 获取控制台窗口句柄
    
37.   ConsoleHandle := GetStdHandle(STD_OUTPUT_HANDLE);
    
38. 
    
39.   // 设置控制台窗口的尺寸和位置
    
40.   ConsoleWindowRect.Left := 0;
    
41.   ConsoleWindowRect.Top := 0;
    
42.   ConsoleWindowRect.Right := 29;  // 设置窗口宽度
    
43.   ConsoleWindowRect.Bottom := 9;  // 设置窗口高度
    
44.   SetConsoleWindowInfo(ConsoleHandle, True, ConsoleWindowRect);
    
45. 
    
46.   // 每秒检查一次时间
    
47.   Sleep(1000);
    
48.   CheckTime;
    
49. end;
    
50. 
    
51. begin
    
52.   try
    
53.     Writeln('----------------------------');
    
54.     Writeln('AutoClear正在运行，请勿关闭。');
    
55.     Writeln('----------------------------');
    
56. 
    
57.     // 检查时间并执行操作
    
58.     CheckTime;
    
59.   except
    
60.     on E: Exception do
    
61.       Writeln('发生错误：', E.ClassName, ' - ', E.Message);
    
62.   end;
    
63. end.
    
64. 
    

复制代码