常见的几种语言特征

Borland C++0040163C B> /EB 10 jmp short Borland_.0040164E0040163E |66:623A bound di,dword ptr ds:[edx]00401641 |43 inc ebx00401642 |2B2B sub ebp,dword ptr ds:[ebx]00401644 |48 dec eax00401645 |4F dec ed...
破解@经历 | 2010-01-27 21:16 | 阅读 1327 次 | 评论 0 条

理解一下use中用到得东西

很基础的东东:自己翻译了一下Windows,视窗 //调用系统api函数。比如winexec函数Messages消息, // 消息里面要用到的SysUtils,单元 // 做inttostr是要用到的。管理字符串的。 Variants变量, // 在做无窗体的程序时不用也行。 Classes类, //类 Graphics图形, //。。。 Controls,控制 //。。 Forms,窗体 //窗体 Dialogs对话框 // ...
编程点滴 | 2010-01-26 21:51 | 阅读 1428 次 | 评论 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 | 阅读 1570 次 | 评论 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 | 阅读 1244 次 | 评论 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 | 阅读 1078 次 | 评论 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 | 阅读 1237 次 | 评论 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 | 阅读 1123 次 | 评论 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 | 阅读 1510 次 | 评论 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 | 阅读 1474 次 | 评论 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 | 阅读 1327 次 | 评论 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 | 阅读 1391 次 | 评论 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 | 阅读 1294 次 | 评论 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 | 阅读 1256 次 | 评论 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 | 阅读 1193 次 | 评论 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 | 阅读 1317 次 | 评论 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 | 阅读 1428 次 | 评论 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 | 阅读 1411 次 | 评论 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 | 阅读 1393 次 | 评论 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 | 阅读 1343 次 | 评论 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 | 阅读 1256 次 | 评论 0 条
浏览2342034次