摘要: delphi 同盘移动文件所用时间测试(文件大小约6,083,545,088 字节)由于想做个 "delphi桌面图标清理备份与恢复"所以有必要测试一下各种方法对文件移动占用时间的影响unit Unit1;//桌面图标备份、恢复与清理{1 创建3个文件夹 C:\Users\Public\Desktop D:\Personal\AutoRun\Desktoplnk\DesktopBak D:\Personal\AutoRun\Desktoplnk\DesktopLnk2 移动 C:\Users\Public\Desktop 中的文件和文件夹到D:\Personal\AutoR 阅读全文
posted @ 2013-12-12 11:02 delphichm 阅读(349) 评论(0) 推荐(0) 编辑
摘要: 几个编程小技巧 关于 Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_201108012013-12-10 14:36:19由于在GExperts的Procedure List窗口中的Code View代码预览窗口中是从函数名所在行开始显示的,所以填写注释内容时最好在函数名所在行的下一行开始不要把函数的注释内容写在函数名之前函数过程列表(GExperts -> Procedure List (Ctrl + G)) , 热键 Ctrl + G函数过程列表(CnPack(N) -> 函数过程列表(G)), 热键 Alt + NG源代码查找GE 阅读全文
posted @ 2013-12-10 15:41 delphichm 阅读(751) 评论(0) 推荐(0) 编辑
摘要: SwitchToThisWIndow 阅读全文
posted @ 2013-12-05 18:53 delphichm 阅读(511) 评论(0) 推荐(0) 编辑
摘要: 思想的选择、语言的选择、习惯的养成选什么样的思想,面向对象的编程思想,mzd思想,马列主义思想等等选什么样的语言,Delphi语言,C语言,JAVA语言,VB语言,美语英文,简体中文等等养成什么习惯,编程好习惯,办事好习惯,思考问题的好习惯走什么样的道路,社会主义、共产主义等等,时间是宝贵的、人生是短暂的。选择走什么样的人生道路,向着什么方向发展,对于一个人来说是至关重要的。正确的方向和目标是进行其他一切工作的开始,有了目标接下来是制定详细的计划方案步骤,最好是多制定几套不同的详细的计划方案以便在不同情况下有所选择。 阅读全文
posted @ 2013-12-04 12:56 delphichm 阅读(214) 评论(0) 推荐(0) 编辑
摘要: program KillADProject1;{由于用枚举窗口和模糊查询窗口的方法有点烦、占用内存有点大EnumWindows(@EnumWindowsProc, 0);}{if Pos(StrWindowPosTitle, buf) 0 then 通过窗口的某一部分标题查找窗口句柄}{自动关闭弹出新闻广告窗口的一个实际例子,在Windows7+Delphi7中占用内存约为932K左右}{而DelphiXE5( Release )中占用内存要比Delphi7多一点,并且FreeConsole控制台窗口会闪一下}{窗体侦探 Window Spy 可以查看弹出广告窗口的标题或者类名}{Confi. 阅读全文
posted @ 2013-12-02 15:31 delphichm 阅读(393) 评论(0) 推荐(0) 编辑
摘要: 1 新建文件夹 d:\d2 下载 sqliteadmin3 用 sqliteadmin 新建数据库 D:\d\db1.s3db4 新建表 tb1 到数据库 db1 中5 添加 2行数据到表 tb1 中6 安装 Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801(不要汉化)7 下载并安装 ASqliteFile - Close AllFile - Open - ASGSQLite3Dsg.pasComponent - Install Component - ok8 创建 工程 File - Close AllFile - New - Ap 阅读全文
posted @ 2013-12-01 18:55 delphichm 阅读(897) 评论(0) 推荐(0) 编辑
摘要: program minEveProject;//{$APPTYPE CONSOLE} //不显示DOS窗口uses SysUtils, Windows, Messages;var h: HWND;begin { TODO -oUser -cConsole Main : Insert code here } repeat begin h := FindWindow(nil, 'Everything'); PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0); //最小化 Sleep(100); end; until h 0; exit;end 阅读全文
posted @ 2013-11-29 08:57 delphichm 阅读(132) 评论(0) 推荐(0) 编辑
摘要: AutoHotKey Script AHK脚本++Topre Realforce 104Pro十周年纪念版静电容键盘AutoHotKey Script AHK脚本++Topre Realforce 104Pro十周年纪念版静电容键盘; IMPORTANT INFO ABOUT GETTING STARTED: Lines that start with a; semicolon, such as this one, are comments. They are not executed.; This script has a special filename and path because 阅读全文
posted @ 2013-11-28 12:57 delphichm 阅读(418) 评论(0) 推荐(0) 编辑
摘要: 2013年11月9日-我对Delphi编程的软硬件系统的要求是:我的 腾讯QQ电子邮箱是 : 595076941@qq.com2013年11月9日 9:48:27 ---我对Delphi编程的软硬件系统的要求是:2013年11月9日 9:48:27 --------------------------------我对Delphi编程的软硬件系统的要求是:第一要能够干某事,比如能够安装Delphi XE3第二要能全自动干某事,比如全自动实时备份Delphi工程代码第三要能快速自动干某事,比如客户全自动登记查询系统第四要能不干某事,比如不用扫地,地就自动干净了(用管家或扫地机实现)第五要能自动智能 阅读全文
posted @ 2013-11-09 13:07 delphichm 阅读(692) 评论(0) 推荐(0) 编辑
摘要: Embarcadero Delphi XE317.0.4625.53395版安装过程 Delphi XE3 安装过程Embarcadero Delphi XE317.0.4625.53395版安装过程 安装Delphi XE3 总共有18步基本操作:第1步_备份文件和数据第2步_用DiskGen对硬盘进行分区(分2个区,C:盘大于30GB)第3步_用杏雨梨云安装Microsoft.Windows7旗舰版SP3第4步_Microsoft..NET.Framework.2.0.dotNetFx2.0第5步_Microsoft.Visual.J#.2.0.可再发行组件包第6步_Embarcadero 阅读全文
posted @ 2013-11-08 13:10 delphichm 阅读(381) 评论(0) 推荐(0) 编辑