myamanda

摘要： 我们只要巧妙的利用Delphi自己提供的TRichEdit就可以了。首先将TRichEdit控件的边框去除：RichEdit1．BorderStyle：ΚbsNone；同时设置只读属性为真：RichEdit1．ReadOnly：ΚTrue；然后，你利用write之类的软件制作好RichText格式的文本，通过以下语句就可以显示出来了：　　RichEdit1．PlainTex... 阅读全文

摘要： Delphi作为RAD工具，以其快速编译和友好的可视化界面受到广泛欢迎。Delphi提供了很多现成构件，而且随着版本更新不断增加新构件。另外还可以买到第三方开发的特色构件，或从因特网下载免费构件。这些构件足以支持一般应用系统开发。但应用开发人员仍有必要自己制作构件。采用构件形式可以把对象严密封装，并加上一层直观外壳，有利于软件调试和代码重用。开发群体以构件为功能单位分工协作，比较容易实现工程化管理... 阅读全文

摘要： 可以通过以下的方法找出当前显示模式的色深:GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL) *GetDeviceCaps(Form1.Canvas.Handle, PLANES)结果用位数表示。可能返回的值有：1 = 2 colors bpp4 = 16 colors bpp8 = 256 colors bpp15 = 32768 colors (w... 阅读全文

摘要： 可以使用API函数FlashWindow:var Flash : bool;procedure TForm1.Timer1Timer(Sender: TObject);begin FlashWindow(Form1.Handle, Flash); FlashWindow(Application.Handle, Flash); Flash := not Flash;end;proced... 阅读全文

摘要： 调用Windows API 函数 SystemParametersInfo 传送SPI_GETWORKAREA 参数和矩形结构的地址来接收坐标。例子:procedure TForm1.Button1Click(Sender: TObject);varhRect : TRect;beginSystemParametersInfo(SPI_GETWORKAREA,0,@hRect, 0);Sh... 阅读全文

摘要： 可以这样截取WM_SYSCOMMAND信息:typeTForm1 = class(TForm)publicprocedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;end;procedure TForm1.WMSysCommand;beginif (Msg.CmdType = SC_MINIMIZE) or (... 阅读全文

摘要： 下例子使用Windows API函数GetDc(0)返回的dc在Windows 的桌面上直接作图：procedure TForm1.Button1Click(Sender: TObject);vardc : hdc;begindc := GetDc(0);MoveToEx(Dc, 0, 0, nil);LineTo(Dc, 300, 300);end; 阅读全文

摘要： 捕捉 Windows WM_WINDOWPOSCHANGING信息和 WindowPos 结构的‘or’标记，它把预先定义了的常数SWP_NOMOVE 和 SWP_NOSIZE 作为信息的lparam参数。typeTForm1 = class(TForm)privateprocedure WMPosChange(var Message: TWMWINDOWPOSCHANGING);messa... 阅读全文

摘要： 有两种方法:第一个方法是调用WinAPI 函数 PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0)第二个方法是运行一个扩展名是.SCR 的屏幕保护文件。这个方法不可以调用密码保护。我希望单击一个小程序开始屏幕保护，并调用密码保护（当屏幕保护运行的时候有效地锁定我的桌面），所以生成以下.dpr 文件：program ... 阅读全文

摘要： 以下代码获得指定硬盘的序列号，并以字符串的形式返回：usesSysUtils, Windows;function Get_DiskSerialNo(DriveID : char) : string;varVolumeSerialNumber : DWORD;MaximumComponentLength : DWORD;FileSystemFlags : DWORD;beginresult :... 阅读全文