2011 年 8月随笔档案 - 严武

delphi 实现无窗口移动

摘要：procedure imgListMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);privateprocedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST;procedure TfrmStartHit.WMNCHITTEST(var Msg: TWMNCHITTEST);const cOffset = 10;var vPoint: TPoint;begin inherited; vPoint := Scr 阅读全文

posted @ 2011-08-31 15:28 严武阅读(693) 评论(0) 推荐(0) |

regsvr32 命令小集注册OCX控件,注册控件

摘要：Regsvr32进程文件： regsvr32 or regsvr32.exe进程名称： Microsoft DLL Registration Service英文描述：regsvr32.exe is a processes belonging to the Windows OS and is used to register dynamic-link libraries and ActiveX controls in the registry.中文描述:regsvr32.exe用于注册和取消注册Windows操作系统的DLL(动态链接库)文件和ActiveX控件。这个命令行工具将 dll 文件注阅读全文

posted @ 2011-08-19 08:58 严武阅读(26494) 评论(0) 推荐(0) |

Delphi RichEdit的实现MSN / QQ 中的动画表情

摘要：unitUnit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActiveX,ComCtrls, RxRichEd,ImageOleLib_TLB;//RxRichEd单元是Rxlib下的RxRichEdit,一套增强功能的RichEdit//ImageOleLib_TLB是从qq的ImageOle.dll引入的类型库const IID_IOleObject: TGUID = ( D1: $00000112; D2: $0000; D3: $ 阅读全文

posted @ 2011-08-18 23:02 严武阅读(630) 评论(0) 推荐(0) |

在delphi ocx控件的安装

摘要：第一步: 使用过Activex的人都知道，Activex不注册是不能够被系统识别和使用的，一般安装程序都会自动地把它所使用的Activex控件注册，但如果你拿到的一个控件需要手动注册怎么办呢？如果修改注册表那就太麻烦了，在Windows的system文件夹下有一个regsvr32.exe的程序，它就是Windows自带的Activex注册和反注册工具。它的用法为：regsver32详解 regsvr32 [/s] [/n] [/i(:cmdline)] dllname其中dllname为activex控件文件名，建议在安装前拷贝到system文件夹下。参数有如下意义： /u——反注册控件 / 阅读全文

posted @ 2011-08-18 23:00 严武阅读(1768) 评论(0) 推荐(0) |

Delphi

摘要：我们一般在调用了一些API后都会用GetLastError来获得错误信息,但是信息都是Integer的,我们知道是什么意思么?嘿嘿,是的,有msdn呀,当然还可以用FormatMessage函数来.正好看了下Windows核心编程第一章有个例子,来用Delphi试一下.主要用了FormatMessage函数,具体用法和注意事项就很多了,大家可以看MSDN了.Unit UtMain;InterfaceUses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, CxGraphics 阅读全文

posted @ 2011-08-17 12:33 严武阅读(934) 评论(2) 推荐(0) |

I18N/L10N 是什么

摘要：开发人员把internationalization简写成I18N,中间的数字是前后两个字母间的字母个数。 L10N依据“localization” 使用同样的命名规则。 I18N/L10N方法、协议和应用结合在一起，允许用户使用他们自己所选择的语言。 I18N应用程序使用I18N工具来编程。它允许开发人员写一个简单的文件，就可以将显示的菜单和文本翻译成本地语言。我们非常鼓励程序员遵循这种规则。为什么要使用I18N/L10N? I18N/L10N标准能够很好地支持您查看、输入或处理非英语语言。I18N支持哪些语言？ I18N和L10N不是FreeBSD特有的。当前，它能支持世界上绝大部... 阅读全文

posted @ 2011-08-17 09:47 严武阅读(886) 评论(0) 推荐(0) |

Delphi messagedlg 用法

摘要：if MessageDlg('Welcome to my Delphi application. Exit now?',mtConfirmation, [mbYes, mbNo], 0) = mrYes thenbeginClose;end;MessageDlg用法对话框类型：mtwarning——含有感叹号的警告对话框mterror——含有红色叉符号的错误对话框mtinformation——含有蓝色i符号的信息对话框mtconfirmation——含有绿色问号的确认对话框mtcustom——不含图标的一般对话框，对话框的标题是程序的名称按钮组中的按钮：mbYes——mrYes 阅读全文

posted @ 2011-08-16 08:59 严武阅读(270) 评论(0) 推荐(0) |

delphi RichEdit控件中插入GIF动画表情

摘要：delphi在RichEdit控件中插入GIF动画表情在UDP即时通讯软件中实现类似于QQ的动画表情，在richEdit控件中插入gif动画表情。发送的时候将表情转为命令，接收之后，再将命令转换为相应的动画表情。需要引用一个QQ的DLL，文件在附件中。将此DLL导入到DELPHI中。unit URichEdit;interfaceusesWindows, Messages, SysUtils, Classes, Controls, StdCtrls, ActiveX, ComCtrls,RxRichEd, OleServer, ImageOleLib_TLB, coconst, UConst, 阅读全文

posted @ 2011-08-10 23:53 严武阅读(1579) 评论(0) 推荐(0) |

delphi Jpg和Gif转Bmp

摘要：beginbmp:=TBitmap.Create;jpeg:=TJPEGImage.Create;jpeg.LoadFromFile(fname);withbmpdobeginPixelFormat:=pf24bit;Height:=60;Width:=self.RzListBox.Width;Canvas.Brush.Color:=$00F0EDE6;Canvas.FillRect(Canvas.ClipRect);Canvas.StretchDraw(Bounds(0,0,80,60),jpeg);end;//这里你可以用save之类的方法了bmp.Free;jpeg.Free;----- 阅读全文

posted @ 2011-08-10 16:44 严武阅读(2538) 评论(0) 推荐(0) |

delphi 把一个ICO转换为BMP

摘要：（1）方法1varIcon : TIcon;Bitmap : TBitmap;begin Icon := TIcon.Create; Bitmap := TBitmap.Create; Icon.LoadFromFile('c:\picture.ico');//Load an ICOfrom File Bitmap.Width := Icon.Width; Bitmap.Height := Icon.Height; Bitmap.Canvas.Draw(0, 0, Icon ); Bitmap.SaveToFile('c:\picture.bmp'); //Co 阅读全文

posted @ 2011-08-10 16:20 严武阅读(1022) 评论(0) 推荐(0) |

delphi RichEdit的内容保存为图片

摘要：uses RichEdit;{将RichEdit1的内容保存为图片，此函数也适合于RxRichEdit，即RichEdit: TRxRichEdit}procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerInch: Integer);varImageCanvas: TCanvas;fmt: TFormatRange;beginImageCanvas := Canvas;with fmt dobeginhdc:= ImageCanvas.Handle;hdcTarget:= hdc;rc:= Rect( 阅读全文

posted @ 2011-08-10 10:05 严武阅读(1500) 评论(0) 推荐(0) |

Delphi 实现任务栏多窗口图标显示

摘要：uses Windows;type TfrmLogin = class(TForm)end;implementation{$R *.dfm}procedure TfrmLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));end; 阅读全文

posted @ 2011-08-04 13:46 严武阅读(691) 评论(0) 推荐(0) |

腾讯QQ是用什么语言写的？

摘要：腾讯QQ的开发分客户端软件和服务器端软件两部分。客户端采用 Microsoft Visual C++开发；服务器端软件采用Linux gcc开发；数据库采用MySql 数据库。腾讯QQ采用标准的TCP/IP协议为通信协议。 TCP/IP协议中又分为TCP协议和UDP协议，TCP协议是面向连接的协议，它比较安全、稳定，但是效率不高，占用资源较多。UDP协议是无连接方式的协议，它的效率高，速度快，占资源少，但是其传输机制为不可靠传送，必须依靠辅助的算法来完成传输控制。QQ采用的通信协议以UDP为主，辅以TCP协议。由于QQ的服务器设计容量是海量级的应用，一台服务器要同时容纳十几万的并发连接，因. 阅读全文

posted @ 2011-08-04 13:41 严武阅读(573) 评论(0) 推荐(1) |

Delphi 全面控制Windows任务栏

摘要：核心提示：使用Windows95/NT/98操作系统的用户知道：Windows正常启动后,在电脑屏幕下方出现一块任务栏。使用Windows95/NT/98操作系统的用户知道：Windows正常启动后,在电脑屏幕下方出现一块任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是：开始按钮、应用程序切换区(Application Switch Bar)、任务栏通知区(Notification Area)以及任务栏时钟。与其它Windows应用程序相同,任务栏程序(systray.exe)由几个不同的窗体组成,这些窗体是具有各自的窗口类名、显示方式等信息。因此,只要得到阅读全文

posted @ 2011-08-04 12:57 严武阅读(256) 评论(0) 推荐(0) |

DELPHI 任务栏无EXE显示

摘要：需要用到的一个函数：LONG SetWindowLong( HWND hWnd, int nIndex, LONG dwNewLong );program Project;usesForms,Windows,ufrmMain in 'ufrmMain.pas' {frmMain};{$R *.res}beginApplication.Initialize;SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);Application.CreateForm(TfrmMain, frmMain);Applica. 阅读全文

posted @ 2011-08-04 12:48 严武阅读(229) 评论(0) 推荐(0) |

严武

Microblue

公告

08 2011 档案