category/278776.aspxzh-CNThu, 12 Jun 2008 11:57:17 GMT60simonhttp://blog.csdn.net/simonhehe/archive/2008/06/12/2538876.aspxThu, 12 Jun 2008 11:57:00 GMThttp://blog.csdn.net/simonhehe/archive/2008/06/12/2538876.aspxcomments/2538876.aspxhttp://blog.csdn.net/simonhehe/archive/2008/06/12/2538876.aspx#Feedback0comments/commentRss/2538876.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2538876最早的时候就有C++程序员做Win32的产品没有Delphi程序员快，不服气地说Delphi的不好，理由是Delphi只能拖拉控件，不能OOP。几年以前，当Java刚刚火起来的时候，Java程序员说Delphi不行，理由是Delphi不能开发web。后来有一本《Java与模式》的书让Java程序员大开眼界，他们常常在与Delphi程序员论战时使出撒手锏：“Delphi能用设计模式吗？”。再后来，有了C#，C#程序员也不甘示弱，他们一边在VS.net中享受着拖拉控件乐趣，一边故作高深地挑战Delphi程序员：“Delphi有反射机制吗？Delphi能.net吗？”<img src ="aggbug/2538876.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2008/05/19/2458597.aspxMon, 19 May 2008 15:53:00 GMThttp://blog.csdn.net/simonhehe/archive/2008/05/19/2458597.aspxcomments/2458597.aspxhttp://blog.csdn.net/simonhehe/archive/2008/05/19/2458597.aspx#Feedback0comments/commentRss/2458597.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2458597Dll窗体,dll,子窗体,焦点,停靠<img src ="aggbug/2458597.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2008/02/28/2126967.aspxThu, 28 Feb 2008 09:36:00 GMThttp://blog.csdn.net/simonhehe/archive/2008/02/28/2126967.aspxcomments/2126967.aspxhttp://blog.csdn.net/simonhehe/archive/2008/02/28/2126967.aspx#Feedback0comments/commentRss/2126967.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=2126967delphi中使用词霸2005的动态库XdictGrb.dll实现屏幕取词<img src ="aggbug/2126967.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723772.aspxFri, 03 Aug 2007 08:32:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723772.aspxcomments/1723772.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723772.aspx#Feedback0comments/commentRss/1723772.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723772Delphi6函数大全5-SysUtils.pas.<img src ="aggbug/1723772.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723771.aspxFri, 03 Aug 2007 08:31:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723771.aspxcomments/1723771.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723771.aspx#Feedback0comments/commentRss/1723771.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723771Delphi6函数大全4-SysUtils.pas<img src ="aggbug/1723771.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723770.aspxFri, 03 Aug 2007 08:30:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723770.aspxcomments/1723770.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723770.aspx#Feedback0comments/commentRss/1723770.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723770Delphi6函数大全3-SysUtils.pas.<img src ="aggbug/1723770.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723769.aspxFri, 03 Aug 2007 08:29:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723769.aspxcomments/1723769.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723769.aspx#Feedback0comments/commentRss/1723769.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723769Delphi6函数大全2-SysUtils.pas.///////End Languages━━━━━━━━━━━━━━━━━━━━━ 首部 function AllocMem(Size: Cardinal): Pointer; $[SysUtils.pas功能 返回一个指定大小Size的内存块说明 配合用FreeMem释放资源参考 function System.GetMem例子。///////Begin AllocMemprocedure TForm1.///////End AllocMem━━━━━━━━━━━━━━━━━━━━━ 首部 procedure AddExitProc(Proc: TProcedure); $[SysUtils.pas功能 添加一个退出处理的过程说明 建议用finalization部分取代参考。<img src ="aggbug/1723769.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723768.aspxFri, 03 Aug 2007 08:28:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723768.aspxcomments/1723768.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723768.aspx#Feedback0comments/commentRss/1723768.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723768Delphi6函数大全<img src ="aggbug/1723768.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723764.aspxFri, 03 Aug 2007 08:22:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723764.aspxcomments/1723764.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723764.aspx#Feedback0comments/commentRss/1723764.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723764ini 文件 使用说明。<img src ="aggbug/1723764.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723762.aspxFri, 03 Aug 2007 08:20:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723762.aspxcomments/1723762.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723762.aspx#Feedback0comments/commentRss/1723762.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723762Name:=‘宋体‘;Canvas.Font.Size:=200;Canvas.TextOut(150,130,‘文字‘);EndPath(Canvas.Handle);rgn:=PathToRegion(Canvas.Handle);SetWindowRgn(Handle,rgn,true);end;Name:=‘宋体‘;Canvas.Font.Size:=100;Canvas.TextOut(150,130,FormatDateTime(‘hh:nn:ss‘,now));EndPath(Canvas.Handle);rgn:=PathToRegion(Canvas.Handle);SetWindowRgn(Handle,rgn,true);end;<img src ="aggbug/1723762.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723758.aspxFri, 03 Aug 2007 08:17:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723758.aspxcomments/1723758.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723758.aspx#Feedback0comments/commentRss/1723758.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723758在Delphi7中实现停靠功能我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能，如果对这一部分不熟练时，通常会到CSDN等网站寻找各种相关的控件，或者参考Delphi自带的例程Docking，下面我给大家介绍一种能够凑乎用的简便方法。2、设定四个Panel的属性DockSite属性为True。<img src ="aggbug/1723758.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723755.aspxFri, 03 Aug 2007 08:16:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723755.aspxcomments/1723755.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723755.aspx#Feedback0comments/commentRss/1723755.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723755Procedure TForm1.FormCreate(Sender: TObject); Begin Form1.Top := Screen.Height; Form1.Left := Screen.Width - Form1.Width; SysTmrTimer.Enabled := True; End; Procedure TForm1.SysTmrTimerTimer(Sender: TObject);//SysTmrTimer是个Timer Begin //请将Interval属性设为10… Form1.Top := Form1.Top - 1; If Form1.Top = Screen.Height - Form1.Height Then SysTmrTimer.Enabled := False; End; End. <img src ="aggbug/1723755.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723756.aspxFri, 03 Aug 2007 08:16:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723756.aspxcomments/1723756.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723756.aspx#Feedback0comments/commentRss/1723756.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723756移动无标题栏窗口 一般情况下，移动一个窗体需要将鼠标放置在标题栏上才能拖动窗体，为 什么非要使用标题栏呢？其实我们可以使用一个巧妙的方法来实现将鼠标放置 在窗体上按下就可拖动窗体，下面先看实现代码。在private部分加入下列代码：procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;<img src ="aggbug/1723756.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723754.aspxFri, 03 Aug 2007 08:15:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723754.aspxcomments/1723754.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723754.aspx#Feedback0comments/commentRss/1723754.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723754Reg:Tregistry;Reg:=Tregistry.{创建Tregistry对象的实例}Reg.Rootkey:= Hkey_Current_User;{设置根键名称}Reg.OpenKey′Control Panel\Desktop′,False); {打开Control Panel\Desktop 路径对应的主键}Reg.WriteString (′TileWallPaper′,′0′);WriteString′Wallpaper′，filelistbox1.FileName);{向TileWallpaper 和Wallpaper串覆盖写入新值}Systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange);{向Windows发送消息，通知Windows更换壁纸}Reg.CloseKey;{将更改内容写入注册表并关闭}Reg.Free;{释放对象}End;<img src ="aggbug/1723754.aspx" width = "1" height = "1" />simonhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723753.aspxFri, 03 Aug 2007 08:14:00 GMThttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723753.aspxcomments/1723753.aspxhttp://blog.csdn.net/simonhehe/archive/2007/08/03/1723753.aspx#Feedback0comments/commentRss/1723753.aspxhttp://tb.blog.csdn.net/TrackBack.aspx?PostId=1723753//建立一个TRegistry实例　　 with ARegistry do　　 begin　　 RootKey := HKEY-LOCAL-MACHINE;//指定根键为HKEY-LOCAL-MACHINE　　 //打开主键Software　　 if OpenKey( ′Software′,false ) then　　 begin　　 memo1.lines.add(‘Windows版本：′＋ ReadString(′Version′));　　 memo1.lines.add(‘Windows版本号：′ ＋ ReadString(′VersionNumber′));　　 memo1.lines.add(′Windows子版本号：′ ＋ ReadString(′SubVersionNumber′));　　 end;　　 CloseKey;//关闭主键　　 Destroy;//释放内存　　 end;　　end;<img src ="aggbug/1723753.aspx" width = "1" height = "1" />