<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[123123121]]></title><description><![CDATA[1231312]]></description><link>https://blog.csdn.net/zhlfdm</link><language>zh-cn</language><generator>https://blog.csdn.net/</generator><copyright><![CDATA[Copyright &copy; zhlfdm]]></copyright><item><title><![CDATA[显示数据库时数字保留１位小数等]]></title><link>https://blog.csdn.net/zhlfdm/article/details/3004134</link><guid>https://blog.csdn.net/zhlfdm/article/details/3004134</guid><author>zhlfdm</author><pubDate>Tue, 30 Sep 2008 18:57:00 +0800</pubDate><description><![CDATA[Tfloatfield(query1.fieldbyname(your_field)).displayformat   :=   #0.00 procedure Tfrm_main.DBGxxDrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TG]]></description><category></category></item><item><title><![CDATA[让Delphi的标准TStatusBar状态栏控件具有容器功能]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2995165</link><guid>https://blog.csdn.net/zhlfdm/article/details/2995165</guid><author>zhlfdm</author><pubDate>Mon, 29 Sep 2008 11:54:00 +0800</pubDate><description><![CDATA[Delphi中的标准TStatusBar没有再它上面添加控件的功能，继承它，创建一个新的控件，拥有容器功能。 新的StatusBar可以在它上面添加如进度条等其他控件，拥有容器功能。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ unit ControlStatusBar; interfaceuses   Windows, Messages, SysUtils,]]></description><category></category></item><item><title><![CDATA[程序开机启动]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2990820</link><guid>https://blog.csdn.net/zhlfdm/article/details/2990820</guid><author>zhlfdm</author><pubDate>Sun, 28 Sep 2008 09:56:00 +0800</pubDate><description><![CDATA[ procedure   Check_AutoRun(CheckBox1:   TCheckBox;   StrRegName:   String;   StrRegValue:   String);     var             RegMy   :   Tregistry;     //定义变量RegMy     begin             RegMy   :=   Tregi]]></description><category></category></item><item><title><![CDATA[查找有多少个串口]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2990340</link><guid>https://blog.csdn.net/zhlfdm/article/details/2990340</guid><author>zhlfdm</author><pubDate>Sun, 28 Sep 2008 08:29:00 +0800</pubDate><description><![CDATA[uses registry procedure TForm1.Button1Click(Sender: TObject);  var      reg:   TRegistry;      st:   Tstrings;      i:   Integer;  begin      reg   :=   TRegistry.Create;      try          reg.Roo]]></description><category></category></item><item><title><![CDATA[delphi 如何设置快捷键之2]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2959324</link><guid>https://blog.csdn.net/zhlfdm/article/details/2959324</guid><author>zhlfdm</author><pubDate>Mon, 22 Sep 2008 09:09:00 +0800</pubDate><description><![CDATA[设置全局快捷键type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var Form1: TFo]]></description><category></category></item><item><title><![CDATA[delphi 多热键注册]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2916319</link><guid>https://blog.csdn.net/zhlfdm/article/details/2916319</guid><author>zhlfdm</author><pubDate>Fri, 12 Sep 2008 10:24:00 +0800</pubDate><description><![CDATA[unit Unit1;       interface      uses     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,      Dialogs;       type     TForm1 = class(TForm)        pro]]></description><category></category></item><item><title><![CDATA[SQL 收藏------------SQL操作全集]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2915812</link><guid>https://blog.csdn.net/zhlfdm/article/details/2915812</guid><author>zhlfdm</author><pubDate>Fri, 12 Sep 2008 08:37:00 +0800</pubDate><description><![CDATA[SQL操作全集 下列语句部分是Mssql语句，不可以在access中使用。 SQL分类： DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE) DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT) DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK) 首先,简要介绍基础语句： 1、说明：创建数据库 CREATE DATAB]]></description><category></category></item><item><title><![CDATA[使用IdIPWatch后，产生iphist.dat，并非病毒]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2915797</link><guid>https://blog.csdn.net/zhlfdm/article/details/2915797</guid><author>zhlfdm</author><pubDate>Fri, 12 Sep 2008 08:28:00 +0800</pubDate><description><![CDATA[使用IdIPWatch后，产生iphist.dat，并非病毒！作者:yejuncheng 日期:2008-08-02大家去百度搜一下iphist.dat，会发现基本都说它是由病毒产生的，难道我也中毒了？怎么可能，呵呵~ 经过一翻查找解决了该问题。运行程序时没问题，当关闭程序后便产生了iphist.dat文件，这是由于使用了IdIPWatch，并未去修改它的相关参数所致，自然它的默认设置]]></description><category></category></item><item><title><![CDATA[delphi建立快捷方式]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2915791</link><guid>https://blog.csdn.net/zhlfdm/article/details/2915791</guid><author>zhlfdm</author><pubDate>Fri, 12 Sep 2008 08:26:00 +0800</pubDate><description><![CDATA[unit   uSC;         interface         uses         Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,         StdCtrls,   ComObj,   ActiveX,   ShlObj,   Registry; ]]></description><category></category></item><item><title><![CDATA[10以上串口的打开]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2883883</link><guid>https://blog.csdn.net/zhlfdm/article/details/2883883</guid><author>zhlfdm</author><pubDate>Fri, 05 Sep 2008 10:10:00 +0800</pubDate><description><![CDATA[主要是在這段有問題hNewCommFile := CreateFile( PChar(FCommName),                                   GENERIC_READ or GENERIC_WRITE,                                 0, {not shared}                 ]]></description><category></category></item><item><title><![CDATA[AT发送短信时的长度计算]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2849470</link><guid>https://blog.csdn.net/zhlfdm/article/details/2849470</guid><author>zhlfdm</author><pubDate>Fri, 29 Aug 2008 16:48:00 +0800</pubDate><description><![CDATA[AT+CMGS=后边的数字为：去掉短信中心后所要发送的所有字节数。如：00 01 03 0D 91 685149008794F4 0000 发送的实际字节长度（十六进制00） 发送变换后的字符串CMGS长度为第一个00为中心号。就是00 后边的所有的字节数和]]></description><category></category></item><item><title><![CDATA[delphi热键定义及应用]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2830530</link><guid>https://blog.csdn.net/zhlfdm/article/details/2830530</guid><author>zhlfdm</author><pubDate>Tue, 26 Aug 2008 08:37:00 +0800</pubDate><description><![CDATA[type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); protected procedure hotykey(var msg:TMessage); message WM_HOTKEY; end; var Form1: TForm1; id,i]]></description><category></category></item><item><title><![CDATA[打开文件软件与图标相配置]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2815272</link><guid>https://blog.csdn.net/zhlfdm/article/details/2815272</guid><author>zhlfdm</author><pubDate>Fri, 22 Aug 2008 16:40:00 +0800</pubDate><description><![CDATA[{-------------------------------------------------------------------------------　@过程名:　　slpert -> TFm_main.SetAssociatedExec　@作者:　　　Gavin　@日期:　　　2004.09.08　@功能描述：　@参数:　　　FileExt, Filetype, FileDescrip]]></description><category></category></item><item><title><![CDATA[MAPX中修改图元的属性值]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2781891</link><guid>https://blog.csdn.net/zhlfdm/article/details/2781891</guid><author>zhlfdm</author><pubDate>Thu, 07 Aug 2008 13:25:00 +0800</pubDate><description><![CDATA[procedure TForm1.Map1ToolUsed(ASender: TObject; ToolNum: Smallint; X1,  Y1, X2, Y2, Distance: Double; Shift, Ctrl: WordBool;  var EnableDefault: WordBool);Var   i : Integer;   fID : String;   search]]></description><category></category></item><item><title><![CDATA[delphi 内存清理的好方法]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2647481</link><guid>https://blog.csdn.net/zhlfdm/article/details/2647481</guid><author>zhlfdm</author><pubDate>Mon, 14 Jul 2008 11:15:00 +0800</pubDate><description><![CDATA[ procedure ClearMemory;beginif Win32Platform = VER_PLATFORM_WIN32_NT thenbeginSetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);application.ProcessMessages;end;end;DELPHI清理释放内存小代码 ]]></description><category></category></item><item><title><![CDATA[从内存中加载DLL (修正版)]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2627694</link><guid>https://blog.csdn.net/zhlfdm/article/details/2627694</guid><author>zhlfdm</author><pubDate>Wed, 09 Jul 2008 10:01:00 +0800</pubDate><description><![CDATA[从内存中加载DLL (修正版)2008-06-17 19:09                                                转载地址: http://www.freshbug.com/archives/39 ======================================================         ]]></description><category></category></item><item><title><![CDATA[Delphi多线程编程]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2627664</link><guid>https://blog.csdn.net/zhlfdm/article/details/2627664</guid><author>zhlfdm</author><pubDate>Wed, 09 Jul 2008 09:54:00 +0800</pubDate><description><![CDATA[Delphi多线程编程2007-03-19 17:41                                    1-1 多线程的基本概念     WIN 98/NT/2000/XP 是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用CPU 运行时间和资源，或者说，把CPU 时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂]]></description><category></category></item><item><title><![CDATA[delphi 中使用Tmscomm]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2627635</link><guid>https://blog.csdn.net/zhlfdm/article/details/2627635</guid><author>zhlfdm</author><pubDate>Wed, 09 Jul 2008 09:43:00 +0800</pubDate><description><![CDATA[Delphi 中TMsComm控件使用指南2008-07-08 15:10                                                             l         注册TMsComm控件                          1.将Mscomm.srg, Mscomm32.ocx,Mscomm3]]></description><category></category></item><item><title><![CDATA[delphi 自身快捷键]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2627595</link><guid>https://blog.csdn.net/zhlfdm/article/details/2627595</guid><author>zhlfdm</author><pubDate>Wed, 09 Jul 2008 09:35:00 +0800</pubDate><description><![CDATA[Delphi热键                                     1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样) 2.Shift+F8 调试时弹出CPU窗口。 3.Shift+F10 等于鼠标右键（Windows快捷键）。 4.Shitf+箭头 选择 5.shift +F12 ]]></description><category></category></item><item><title><![CDATA[delphi程序中定义热键]]></title><link>https://blog.csdn.net/zhlfdm/article/details/2627567</link><guid>https://blog.csdn.net/zhlfdm/article/details/2627567</guid><author>zhlfdm</author><pubDate>Wed, 09 Jul 2008 09:30:00 +0800</pubDate><description><![CDATA[Delphi定义热键2007-03-20 08:34                                                用到3个API函数             BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers, ]]></description><category></category></item></channel></rss>