08 2011 档案

摘要: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进程文件: 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) |

摘要: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) |

摘要:第一步: 使用过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) |

摘要:我们一般在调用了一些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) |

摘要:开发人员把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) |

摘要: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动画表情在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) |

摘要: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) |

摘要:(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) |

摘要: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) |

摘要: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的开发分客户端软件和服务器端软件两部分。客户端采用 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) |

摘要:核心提示:使用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) |

摘要:需要用到的一个函数: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) |

博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3