2010年01月文章归档 - bruce shi

常见的几种语言特征

破解@经历 | 2010-01-27 21:16 | 阅读 1405 次 | 评论 0 条

理解一下use中用到得东西

很基础的东东：自己翻译了一下Windows,视窗 //调用系统api函数。比如winexec函数Messages消息, // 消息里面要用到的SysUtils,单元 // 做inttostr是要用到的。管理字符串的。 Variants变量, // 在做无窗体的程序时不用也行。 Classes类, //类 Graphics图形, //。。。 Controls,控制 //。。 Forms,窗体 //窗体 Dialogs对话框 // ...

编程点滴 | 2010-01-26 21:51 | 阅读 1506 次 | 评论 0 条

动画屏保的制作

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; Image2: TImage; procedure FormCreate(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key:...

编程点滴 | 2010-01-25 17:59 | 阅读 1647 次 | 评论 0 条

文件的拖放

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); private // 当文件拖放至窗体中后，系统将向窗体发送WM_DRAPFILES事件， // 因此我们可以在WMDROPFILES过程中获取文...

编程点滴 | 2010-01-25 17:58 | 阅读 1319 次 | 评论 0 条

统计中英文个数

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Label1: TLabel; Label2: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declara...

编程点滴 | 2010-01-25 17:57 | 阅读 1152 次 | 评论 0 条

Delphi中操作Excel

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end...

编程点滴 | 2010-01-25 17:56 | 阅读 1310 次 | 评论 0 条

ini文件

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Inifiles;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Timer1: TTimer; CheckBox1: TCheckBox; procedure ...

编程点滴 | 2010-01-25 17:55 | 阅读 1194 次 | 评论 0 条

注册表读硬件

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Registry,INIFILES; //必须加入type TForm1 = class(TForm) Button1: TButton; RadioButton1: TRadioButton; Memo1: TMemo; RadioButton2: TRadioButton; RadioButton3: TRadio...

编程点滴 | 2010-01-25 17:53 | 阅读 1582 次 | 评论 0 条

硬盘及光驱

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, shellAPI, FileCtrl,mmsystem;type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; Label1: TLabel; DriveComboBox1: TDriveComboBox; ...

编程点滴 | 2010-01-25 17:52 | 阅读 1571 次 | 评论 0 条

内存及进程

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,mmsystem, Gauges,TLHelp32;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Timer1: TTimer; Gauge1: TGauge; Gauge2: TGauge; Gauge3: TGauge;...

编程点滴 | 2010-01-25 17:52 | 阅读 1403 次 | 评论 0 条

鼠标的操作

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ImgList, ComCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Button2: TButton; Button3: TButton; Button4: TButton; Timer1: TTimer; ...

编程点滴 | 2010-01-25 17:37 | 阅读 1463 次 | 评论 0 条

屏幕保护程序

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, JPEG;type TMainForm = class(TForm) Image1: TImage; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Image1Click...

编程点滴 | 2010-01-25 17:33 | 阅读 1363 次 | 评论 0 条

实现带阴影效果的画框

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg;type TMainForm = class(TForm) Panel1: TPanel; Button1: TButton; Button2: TButton; Image1: TImage; procedure FormCreate(Sender: TObject); procedure Bu...

编程点滴 | 2010-01-25 17:32 | 阅读 1335 次 | 评论 0 条

几何形状窗体

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, jpeg;type TMainForm = class(TForm) Image1: TImage; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N...

编程点滴 | 2010-01-25 17:31 | 阅读 1263 次 | 评论 0 条

相框

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, JPEG;type TMainForm = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); private procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT; { Private...

编程点滴 | 2010-01-25 17:28 | 阅读 1392 次 | 评论 0 条

桌面精灵

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, JPEG;type TMainForm = class(TForm) Timer1: TTimer; PopupMenu1: TPopupMenu; N11: TMenuItem; N21: TMenuItem; N1: TMenuItem; N2: TMenuItem; Image1: TImage; ...

编程点滴 | 2010-01-25 17:28 | 阅读 1489 次 | 评论 0 条

自制资源管理器

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ShellCtrls;type TForm1 = class(TForm) ShellTreeView1: TShellTreeView; ShellComboBox1: TShellComboBox; ShellListView1: TShellListView; Label1: TLabel; ...

编程点滴 | 2010-01-25 17:19 | 阅读 1487 次 | 评论 0 条

任务栏。桌面的隐藏

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TMainForm = class(TForm) RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup; RadioGroup3: TRadioGroup; RadioGroup4: TRadioGroup; procedure RadioGroup1Cli...

编程点滴 | 2010-01-25 17:14 | 阅读 1469 次 | 评论 0 条

得到文件日期

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMainForm = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Label2: TLabel; Edit2: TEdit; Button2: TButton; Label3: TLabel; Edit3: TEdit; ...

编程点滴 | 2010-01-25 17:12 | 阅读 1409 次 | 评论 0 条

文件管理器

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl;type TMainForm = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; procedure Edit1Change(Sender: TObject); ...

编程点滴 | 2010-01-25 17:10 | 阅读 1329 次 | 评论 0 条