- 博客(25)
- 收藏
- 关注
RSS订阅原创 去除Windows生成快捷方式时命名中的“快捷方式”4个字
开始 运行 输入 reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer" /v "link" /d 00000000 /t REG_binary /f 确定然后 开始运行 输入 cmd /c taskkill /f /im explorer.exe&&...
2013-07-04 23:39:19
2417
原创 Delphi基本图像处理代码
Delphi基本图像处理代码//浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRGBTriple;begin for i :...
2013-03-17 11:22:25
284
原创 删除cookies及上网历史记录(DELPHI代码完整版本)
//前面要加几个pas单元 uses Registry,ShellApi, WinInet,ShlObj,ComObj; procedure DelRegCache; var reg:TRegistry; begin reg:=Tregistry.create; reg.RootKey:=HKEY_CURRENT_USER; reg.D...
2012-12-29 14:39:52
444
原创 Delphi DateTime，Date，Time TDateTimePicker
一、DateTime,Date,Time存储方式本质上也是以double来存储的。用整数部分表示日期，小数部分表示时间。可看我另外一篇“access 中“日期/时间”存储方式 ”TDateTimePicker有上面三种属性。二、TDateTimePicker的kind属性设置为dtkDate用于显示日期，第二个kind设置为dtkTime用于显示时间，但是不能同时显示的。三、用D...
2012-12-22 17:38:53
885
原创 关于delphiwebbrowser二次点击来路问题
webbrowser二次点击webb可以实现二次点击但是二次点击的来路为空。这里先说明一下为什么是没有来路的。二次点击的代码本质是2个内置浏览器webbrowser，webb1点击的网页的时候把新打开的网页地址赋值给webb2去打开。就相当于webb是从新打开了一个新的地址，来路当然是空的。下面的代码附上解决的办法。代码比较长 我把关键的地方标注一下var curUrl:string;///定义...
2012-12-08 15:56:49
300
原创 delphi返回一个汉字的Unicode编码
//机内码 -> 汉字Function MacCode2Chinese(AiUniCode : Integer) : String;Varch, cl : Integer;Begin ch := AiUniCode Div 256; cl := AiUniCode Mod 256; Result := Chr(ch) + Chr(cl);end;//汉字 -> 机内码Functi...
2012-11-30 16:00:07
592
原创 Delphi 从外部拖拽文件
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) ListView1: TList...
2012-10-22 19:36:54
884
原创 Delphi汉字简繁体转换代码
unit ChineseCharactersConvert;interfaceuses Classes, Windows;type TGBBIG5Convert = class(TObject) public class function BIG5ToGB(BIG5Str : String): AnsiString; class function GBToBIG5(GBStr :...
2012-07-02 15:53:27
395
原创 对当前焦点发送文字
var clp: TClipboard;begin clp := TClipboard.Create; try clp.AsText := '模拟键盘输入的值'; PostMessage(GetFocus,WM_PASTE,0,0); finally clp.Free; end; procedure TForm1.FormCreate(Sender: TObje...
2012-07-02 07:46:42
115
原创 Delphi中destroy, free, freeAndNil, release用法和区别
经过这段时间对delphi中free 和 release 的仔细学习，先总结如下：1。form.free直接释放资源后，调用OnDestroy事件，但是没有将form指针改为nil2。form.release 等待资源不再使用后释放资源，同样不修改form指针为nil，所以在destroy中最好使用 release进行资源释放操作。3。局部变量释放资源时，可以考虑用freeand...
2012-06-23 07:14:11
111
原创 解决delphi indy10下 utf8码转换的问题
用delphi2010调试一个以前的程序，因为以前的程序是delphi7下编写的，大家都知道delphi7下的用的是indy9，后面的主流版本都是用indy10啦。 所以以前用的Temp1 := UTF8Decode(Temp);Temp1 := Utf8ToAnsi(Temp);Temp1 := UTF8Decode(Temp);Temp1 := UTF8Encode(Temp)...
2012-06-15 09:59:10
1475
原创 Delphi EmbeddedWB组件遍历Frames并执行子frame的js
var wDoc:IHTMLDocument2; wc:IHTMLWindow2; Dispatch:IDispatch;begin //遍历emWb:TEmbeddedWB的Frames if emWb <> nil then begin wDoc := ((emWb.Document as IHTMLDocument2)...
2012-06-14 18:13:18
170
原创 (POS打印机LPT1口)卡密打印工具<by Only↗Me>介绍
前两年写“(POS打印机LPT1口)卡密打印工具”，现在还有人用，真是慰啊！有网友邮件反馈问题BUG，今天上来更新一下，加了字号调整功能。打印核心代码： 程序界面如下：功能介绍：主要用于售点卡处，用POS机打印充值卡帐号密码。增加批量复制功能：如： 卡号 密码K12332131,1212121K12332132,7233...
2012-06-13 17:08:33
388
原创 Delphi 判断一个字符串是否为数字
//函 数 名: IsDigit//返 回 值: boolean//日 期：2011-03-01//参 数: String//功 能: 判断一个字符串是否为数字//作 者：liubin//**********************************************************************...
2012-06-13 16:32:10
1530
原创 解决EmbeddedWB弹出页面错误框的问题
使用EmbeddedWB控件的时候，发现有一些错误完全无法用try..except去接，这些错误的提示并非是通过Raize抛出的，而是通过Windows消息传递而来，因此要解决此问题，必须从消息下手。在EmbeddedWB.pas中，找到重写消息的方法，即TEmbeddedWB.FormWndProc()，其中的代码即是消息的接收，而看其他码，它正是处理了WM_ACTIVATE消息，即有对话框...
2012-06-07 13:34:29
567
原创 Delphi中WebBrowser控件打开部分网站报"Invalid floating point operation”解决
最近用EmbeddedWB控件做浏览器相关应用的时候，发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常（关掉异常对话框以后，浏览器无响应），而程序仅仅是一句 WebBrowser1.Navigate(Edit1.Text);貌似很多含有Silverlight元素的网页打开时都会带出这个bug。而且关键是，错误提示完全让人摸不着头...
2012-06-07 13:29:41
129
原创 Delphi中Memo显示行号列号
实例说明本例是个光标应用的简单技巧，希望通过这个例子的学习后能举一反三。Delphi中像这样简单而又实用的例子还有很多，只要平时多注意积累就能写出简洁、执行效率高的代码。编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值，即可获知此组件中光标所在的行号，向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列...
2012-06-04 10:43:51
1778
原创 Delphi中Chart组件，Chart控件用法
本文主要讲解Delphi中Chart,TeeChart的属性,方法及用法.Tchart分析报告,TeeChart使用指南,TeeChart控件介绍1.AllowZoom : Boolean是否允许鼠标拖动来缩放图表2.AnimatedZoom : Boolean拖动是否显示缩放过程3.AxisVisible : Boolean显示...
2012-05-18 11:06:35
3023
原创 delphi中URL的汉字编码
show.asp?sort=全部&sortlevel=1&gorq=供&n=5&sitename=全部&img=yes&imgfile=/images/dot_g.gif诸如这样的形式，在百度查询会转成GB2312的编码，每个汉字对应2个%xx%xx ，但是在google，每个汉字则对应的三个%xx%xx%xx，采用的是unicode编码...
2012-05-07 08:20:47
479
原创 在APMServ 5.2.6不环境中如何修改MySQL数据库密码
1、用phpmyadmin更改root密码 首先用root账号登陆phpmyadmin，然后点击左侧进入mysql数据库，在顶部点击“mysql”进入sql输入界面。输入以下命令： update user set password=password('123456') where User='root' 然后点击右下角的“执行”，看到修改成功。...
2012-04-18 14:53:46
364
原创 邮件(短信)天气预报MailWeather
记不得啥时间了，移动推出了免费邮件短信提醒服务，使用我们这些穷苦百姓都可以“Push Mail”一把了，当然这得注册相应运营商旗下的邮箱。 移动就是：mail.139.com电信就是：mail.189.cn联通没关注过，大家百度了~~~ 移动邮箱新邮件短信通知的速度较电信快一点，而且长短信提醒时，格式好过一点，电信的短信通知即使邮件内容有回车换行，收到了提醒也都过滤掉了，这...
2012-01-01 20:03:24
3194
原创 51系列单片机C语言编程ADC模/数转换器程序模板
[img]http://dl.iteye.com/upload/attachment/598956/b8204d93-2cc5-3eac-b06b-1b5e58cfdf53.jpg[/img][code="c"]/*************************************************************************************...
2011-12-02 14:27:36
947
原创 单片机C语言编程基础模板
[quote] 本源程序是每一个MCS-51系列单片机C语言程序的必备内容，包括程序开始处的说明信息、头文件、SFR定义、子函数、主函数和C语言常用的5大语句（if,while,do while,for,switch）模板。可将其模板下载到本地硬盘，在编写新程序的时候复制、粘贴到工程当中，然后根据情况写入具体内容。[/quote]注意：使用本模板必须熟悉单片机C语言编程[code...
2011-12-02 14:18:54
939
原创 STC单片机ADC转换的例子
[code="c"]#include sfr ADC_CONTR = 0XBC;sfr P1ASF = 0X9D;sfr ADC_RES = 0XBD;sfr ADC_RESL = 0XBE;#define AD_SPEED 0x60void init_adc(){ ADC_CONTR = ADC_CONTR|0x80; //打开adc电源 P1...
2011-12-02 14:14:05
4886
1
原创 delphi中SendMessage使用说明
SendMessage基础知识函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。 函数原型：LRESULT SendMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam...
2011-11-28 16:49:00
852
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人