D7
文章平均质量分 66
fhfanxin
一个极难相处的人
展开
-
Shape的应用
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls;type TForm1 = class(TForm) ColorDialog1: TColorDial原创 2009-10-25 12:58:00 · 552 阅读 · 0 评论 -
通过进程ID获取进程名
通过进程ID获取进程名网上流传代码:uses TLhelp32function GetProcessNameById(const AID: Integer): String;var h:thandle; f:boolean; lppe:tprocessentry32;begin Result := ''; h := CreateTool原创 2016-03-06 20:38:58 · 2645 阅读 · 0 评论 -
电源管理事件
WM_POWERBROADCAST 消息 根据网络资料整理而来,整体意义不大,因为在 Windows Vista以上系统,此消息只对顶层窗口广播,不会对UAC控制下的程序广播,所以很麻烦。wParam参数 电源管理事件。此参数可以是下列事件标识符之一。事件意义PBT_APMPOWERSTATUSCHANG原创 2016-03-06 10:23:10 · 1691 阅读 · 0 评论 -
整数判断
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; proce原创 2009-10-25 14:14:00 · 407 阅读 · 0 评论 -
求最大公约数
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1:原创 2009-10-25 13:58:00 · 519 阅读 · 0 评论 -
计算从1加到10000
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; pro原创 2009-10-25 13:50:00 · 1629 阅读 · 0 评论 -
MemoryStream的应用
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton;原创 2009-10-25 14:29:00 · 453 阅读 · 0 评论 -
99乘法表
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;type TForm1 = class(TForm) StringGrid1: TStringGrid; //ColCoun原创 2009-10-25 13:32:00 · 622 阅读 · 0 评论 -
简单计算器
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons,Math;//Math是数学运算单元type TForm1 = class(TForm) Edit1: TEdit;原创 2009-10-25 13:05:00 · 447 阅读 · 0 评论 -
Delphi判断是否有全屏程序
Delphi判断是否有全屏程序网络流传代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ShellAPI; // 要引用此单元const原创 2016-03-07 15:43:27 · 1037 阅读 · 0 评论