- 博客(12)
- 资源 (1)
- 收藏
- 关注
原创 CQCArchMaker重新安装无需获取验证码的方法
只需要在第一次获取验证码正常登陆系统后,将“C:\ProgramData\CQCArchMaker\数字编号\您的登陆用户名”文件夹下的license.dat文件做一个备份。下次安装后,用备份的这个文件覆盖一次就可以了,省去了获取验证码的麻烦。...
2020-02-04 08:20:29 232
转载 IME输入法编程
Windows9x系统下汉字输入法的基本原理 Windows系统下汉字输入法实际上是将输入的标准ascii字符串按照一定的编码规则转换为汉字或汉字串,进入到目的地。由于应用程序各不相同,用户不可能自己去设计转换程序,因此,汉字输入自然而然落到WINDOWS系统管理中。一、输入法与系统的关系 键盘事件 应用程序 | | Windows的USER.EXE
2006-06-18 09:19:00 297
转载 利用Delphi消息处理建立类似Windows开始菜单
Windows下的很多程序都有十分漂亮的菜单,例如Windows“开始”菜单左方从上到下的长条形的Windows Banner 又或者是向Word那样在每一个菜单条左边都有一个小图标,看到这些很Cool的菜单,你是否觉得自己的菜单显得单调乏味呢?不需要第三方控件,利用Delphi就可以实现上面的功能。 如果要实现自定义菜单就需要在绘制菜单时改变菜单的大小以适应在菜单上绘
2006-06-11 08:41:00 695
转载 让 UltraEdit 支持 Delphi 语法高亮
请将其添加到 UltraEdit 安装路径下的 WORDFILE.TXT 文件的结尾即可。注意/L10改为你自己已经拥有语法的数量,例如你已经装了11个,就改为12。/L10"Delhpi" Nocase Line Comment = // Block Comment On = { Block Comment On Alt = (* Block Comment Off = } Block Comm
2006-06-11 08:38:00 757
转载 一元二次方程解
procedure TForm1.Button1Click(Sender: TObject);var delta,m,n:real; a,b,c:integer;begin a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); c:=strtoint(edit3.Text); if a delta:=b*b-4*a*c; m:=-b/(
2006-06-05 13:37:00 844
转载 气泡提示窗口
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; proce
2006-05-27 09:17:00 932
原创 使用indy9不能发送邮件的解决方法
1、找到procedure TIdSMTP.Send(AMsg: TIdMessage);这个函数将SendCmd(RSET);这行注销2、IdMessageCoderMIME这个单元,将下面的常量IndyMIMEBoundary,IndyMultiPartAlternativeBoundary,IndyMultiPartRelatedBoundary改成你自己需要的就可以了。
2006-05-25 15:04:00 1010
原创 清除ADVAPI32.EXE和AVICAP32.EXE木马
1。重启进入安全模式(启动时按F8)2。删除下列文件 1) windows/backup/*.* 2) windows/prefetch/advapi32*.* avicap32*.* 3) window/system32/MyIMLite/*.*(如果有的话,似乎这就是源头) 4) windows/downloaded program files/0319/*.*
2005-04-21 22:28:00 997 1
原创 用Delphi7.0实现漂亮的汉字窗口
在可视化开发的时代,窗体是绝大部分应用程序的核心,但是开发者也许已对Windows一成不变的方形窗体感到厌烦。其实巧妙地使用API函数即可实现汉字形状的窗体。 本文的实例运行后将显示一个由“电脑报”三个汉字作为外形的窗体。当然你还可以利用本期讲的方法实现更有个性的汉字窗口。 设计思路 1使用BeginPath和EndPath函数为窗体定义路径。 2用PathToRegion将路径转换
2005-04-13 18:28:00 1084
原创 支持XP下托盘栏气球提示的托盘单元
unit tray;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Registry,ShellAPI, ComCtrls, StdCtrls, Buttons, Menus, ExtCtrls;const ICON_ID=3; NIF
2005-02-25 13:08:00 1116
原创 生活中的一些原则
1、不说“不可能”;2、凡事第一反应: 找方法,不找借口;3、遇到挫折对自己说声:太好了,机会来了!4、不说消极的话,不落入消极的情绪,一旦发生立即正面处理;5、凡事先订立目标;6、行动前,预先做计划;7、工作时间,每一分、每一秒做有利于生产的事情;8、随时用零碎的时间做零碎的事情;9、守时;10、写点日记,不要太依靠记忆;11、随时记录想到的灵感;12、把重要的观念、方法写下来,随时提示自己;1
2005-02-19 14:11:00 806
原创 添加到IE工具栏
首先要建立一个ActiveX Library。将其保存为MailIEBand.Dpr;然后建立一个COM Object,将其保存为BandUnit.pas;然后建立一个Form,这个窗口将作为子窗口显示在IE工具栏中,将窗口的BorderStyle属性改为bsNone,添加一个TButton组件和一个TComboBox组件,将TButton的Caption属性改为获取全部,然后将窗口文件其保存为I
2005-02-19 13:38:00 803
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人