一些自编小工具集锦

• 日志文件更新监测工具 v1.1   (2017.9)
  AliveCheck用于监测多台主机上的运行日志文件或数据文件是否长时间没更新，以避免长时间死机未发现的情况。
  
  
  本地下载(719K)：
  
  
  
  
  
• EasyGoAgent v1.31 (GoAgent Controller) (2013.7)
  GoAgent辅助工具，自动调用或隐藏GoAgent,并可设置例外的网址。
  (win7/win8上需要把goagent设为显示图标和通知)
  (This tool will auto run GoAgent and hide it in background, using GoAgent most simply.)
  
  
  本地下载(275K)：
  
  
  
  
• Draw Something Helper v1.0 (Draw Something Cheat) (2012.5)
  Draw Something 游戏助手,帮助用户更容易的猜出答案, 并提供查字典功能,对不懂的单词能快速查出单词意思.
  (This cheat tool will help you guessing out the answer in Draw Something game.)
  
  
  本地下载(2.9M)：
  
  
  
  
  
• 磁盘隐藏小精灵 v1.1 (2010.6)
  设置某些盘为隐藏盘，使在我的电脑和资源管理器中不能访问。隐藏盘后，U盘及光盘插入后也不会显示盘符，一定程度上起到了禁用U盘和光盘的目的 。本软件需要使用管理员用户运行。
  
  
  
  本地下载(280k)：
  
  
  
  
  
• EXE Lite (EXE文件压缩小工具) v1.0 (2010.6)
  本软件通过调用 UPX 对 Delphi i编译出来的exe文件进行压缩，支持文件直接拖放。
  (This is an UPX UI program to make UPX much easier to use.)
  
  
  
  本地下载(493k)：
  
  
  
  
  
• Hex Base64 Converter (Hex十六进制，Base64编码转换器) v1.1 (2011.11)
  本软件对字符串文本进行十六进制及Base64编码与反编码, URL Decode.
  (This tool allows you to do HEX character encode and Base64 encode.)
  
  
  
  本地下载(162k)：
  
  
  
  
  
• Registry Jumper (注册表快速定位工具) v1.0 (2010.6)
  当知道某个注册表中的地址，打开RegEdit去一级级找，有时也很不好找。本软件让用户直接输入注册表地址，从而迅速定位到对应位置。
  (A tool to help user to locate a specified registry key in RegEdit.exe quickly.)
  
  
  
  本地下载(155k)：
  
  
  
  
  
• Delphi DFM Object Remover (DFM 控件删除小工具 v0.1 (2010.5)
  Delphi里，要删除一个含有多个子控件的父控件时(比如Panel1), 在IDE中操作起来比较麻烦。
  较好的方法是修改DFM文件的内容，但如果dfm文件里的控件多，用肉眼去找出要删除控件的起始及结束语句会相当费劲，
  这个小工具可以帮助解决这个问题。
  (A simple tool to help remove a parent object in delphi DFM file).
  
  
  
  本地下载(200k)：
  
  
  
  
  
• Windows驱动程序搜索路径修改器 v1.0 (2009.6)
  设置windows寻找驱动时的目录位置。可用命令方式调用, 参数如下:
  /Add [Path]  把 path 及其子目录增加到搜索路径， 不带path参数为当前目录
  /Del [Path]  把 path 及其子目录从搜索路径中删除， 不带path参数为当前目录
  /Replace [Path] 清空原来的搜索路径，再增加Path及其子目录.不带path参数指增加当前目录及其子目录
  
  
  
  本地下载(135k)：
  
  
  
  
  
• Delphi错误地址分析器
  作者： Delphi QQ群 幽冥魔焰-模式之狼 方奇老师
  说明：本软件可根据程序出错的错误地址和该程序对应的MAP文件，找出错误地址对应的源代码的单元文件，函数（过程）名称和所在的行数。
  
  
  
  本地下载(290k)：
  
  
  
  
• 软件隐藏器
  本软件可以把某些正在运行的应用程序隐藏起来，隐藏起来后，在哪都看不到了，需要显示的时候，可以通过本软件把隐藏的程序恢复回来。
  
  
  本地下载(150kb)：
  
  
  
  
• 垃圾文件定时自动删除器 (工作相关)
  每天按时把用户指定的一系列文件自动删除。公司的novell服务器上每天都有有大量的文件生成，而这些文件只当天有效，每隔三几天总要手动删除一次，这种重复性的纯手工劳动实在没什么意思，就写个小程序代劳了。
  相关说明：
  · 可以指定不同驱动器上的多组文件
  · 可以使用通配符
  · 可指定每天某个时刻开始操作
  · 检查机制，在设置好要删除的文件后，把左下角的打勾去掉，则删除操作不真正执行，只列出要删除的文件。
  . 注：出于安全考虑，本软件不支持删除根目录上所有文件(如c:\*.*), 也不删除系统文件和隐藏文件。
  
  
  
  最新版本地下载(200kb)：
  
  
  
  
• ZipLog 文件收集归档器 v1.5 (工作相关)
  每月都要把一些指定处理机的运行日志，及各种与工作有关的软件的配置文件收集打包作为备份，有好多的配置文件需要收集啊，一台台机器去找，找好了还要按规定格式一个个重命名文件，累吧？ 现在每月只需要点一下鼠标了。
  ★ 说明：
  1. 在设置配置文件时，如果收集到的文件需要重命名，就在该文件后用分号隔开，接着写上新的文件名就可以了。如果不需要重命令，就不用跟新文件名了。
  2. 收集log文件时，如果怀疑收集的文件不对，可以先不打上'删除文件'这个勾，试收集成功了，再打此勾重新收集一次。
  3. 收集log文件时，只收集3天以前的所有文件。
  4. 虽然本人使用本软件超过5年，程序运行都非常的稳定，但还是要说一句，风险自担。
  
  
  
  下载(218kb):
  
  
  
• 批量更新文件日期 v1.0
  一个DOS命令行程序，批量更新文件和目录的日期
  语法: Touch <File1> [File2] [File3] [Dir1] [Dir2] [/S] ...
          参数 /S 表示搜索目录下的子目录.
  
  本地下载(26k)：
  
  
  
• PowerOff 自动关机 v1.0
  一个定时自动关机的小程序。
  
  本地下载(180k)：
  
  
  
  
• FTP文件自动传送器
  每天到设定的时间，自动把指定目录的"新"文件上传到ftp上，或从ftp上把新的文件下载下来。(只上传下载有更新过的文件)
  ps: 因这只是几天时间的仓促之作，故功能上只达到基本符合同事的使用要求。
  
  本地下载(295kb)：
  
  
  
  
• VCool 补丁
  对于amd cpu的主机，vcool v2.0的降温效果很好，可惜作者后来因工作关系，不能继续该软件的更新，且软件在运行时，缺省总是使用halt detect方式降温，效果很差，每次都要在电脑启动完后，手动去点一下菜单，把降温方式改成 cool bit.
  
  把这个16k的小软件放在windows的“自动运行”组里，这样每次电脑启动后，vcool都是使用cool bit降温方式。
  
  本地下载(9kb)：
  
  
  
  
• Product Info 产品图片资料录入器
  帮一个做陶瓷进出口生意的canada朋友写的软件。 功能简单，就是对一个目录内的图片进行资料注解，可设定资料模板。
  
  版本地下载(330kb)：
  
  
  
  
• CJCBOT
  IRC聊天软件
  
  本地下载(1.23m)：
  
  

你可以使用穷举的方法，写6个循环从1至35，把值相加看是不是105。

procedure TForm1.Button1Click(Sender: TObject);
const m  = 35;
var
   count, k, v, i1, i2, i3, i4, i5, i6: integer;
   s, ss : string;
begin
   k := 105;
   count := 0;
   ss := '';
   for i1 := 1 to m do
   begin
      for i2 := i1+1 to m do
      begin
         if i1 = i2 then continue;
         for i3 := i2+1 to m do
         begin
            if (i3=i1) or (i3=i2) then continue;
            for i4 := i3+1 to m do
            begin
               if (i4=i1) or (i4=i2) or (i4=i3) then continue;
               for i5 := i4+1 to m do
               begin
                  if (i5=i1) or (i5=i2) or (i5=i3) or (i5=i4) then continue;
                  for i6 := i5+1 to m do
                  begin
                     if (i6=i1) or (i6=i2) or (i6=i3) or (i6=i4) or (i6=i5) then continue;
                     if i1 + i2 + i3 + i4 + i5 + i6 = k then
                     begin
                        inc(count);
                        // s := format('%d, %d, %d, %d, %d, %d', [i1, i2, i3, i4, i5, i6]);
                        // ss := ss+#13#10+s;
                     end;
                  end;
               end;
            end;
         end;
      end;
   end;
   memo1.lines.add(inttostr(count)+ '个');
   //savestring(ss, 'h:\result.txt');
end;

非常的感谢。

CJC你好，请问你那个自动删除文件怎么我想删除指定文件夹里面的所有文件和目录，但都没有用的？
比如：C:\Downloads  里面有几个文件夹和文件，虽然可以删但都删得不完全，有一两个文件和文件夹都删不了的，连DOC的文件也删不了！

谢谢你,cjc,我用了你的搜索路径修改器.
我在windows下用的,有点不习惯,能否改个鼠标直接点击能删除增加路径的,
还可以直接在路径栏输入路径的,就完美了
无论如何,非常感谢你.

很喜欢作者编的各种小软件!非常实用!想作者致敬

简易图片选择器