Delphi
文章平均质量分 71
cnhgj
这个作者很懒,什么都没留下…
展开
-
更改屏幕显示区
找设置任务栏高度时发现了这些代码,保留了下来 procedure FullScreenArea; var rcWork: TRect; begin rcWork.Top:=0; rcWork.Left:=0; rcWork.Bottom:=GetSystemMetrics(SM_CYSCREEN); rcWork.Right:=GetSystemMetrics(SM_CXSCR原创 2004-07-22 01:25:00 · 1297 阅读 · 0 评论 -
枚举NT系统服务
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Winsvc, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo;原创 2004-08-06 18:28:00 · 1217 阅读 · 0 评论 -
例用AdoQuery+ListView分页
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB,Grids, DBGrids, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1原创 2004-11-05 20:52:00 · 2029 阅读 · 0 评论 -
给LISTVIEW加背景图
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, commctrl, ImgList;type TForm1 = class(TForm) ListView1: TLi原创 2004-11-08 14:55:00 · 2769 阅读 · 0 评论