编程点滴 - bruce shi

注册表读硬件

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 | 阅读 1583 次 | 评论 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 | 阅读 1264 次 | 评论 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 | 阅读 1488 次 | 评论 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 | 阅读 1410 次 | 评论 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 | 阅读 1330 次 | 评论 0 条

修改时间戳破解CRC32算法

小弟收集的。呵呵。 dymcrc32 单元unit DymCrc32;interfaceuses Windows,SysUtils,Classes;var Table:Array[0..255] of DWORD; procedure GetCRC32File(FileName:string;var CRC32:DWORD); function GetCrc32Str(s: string; Seed: LongInt):string;implementationprocedure MakeTable();var i,j,Crc:intege...

2010-01-25 13:09 | 阅读 1824 次 | 评论 0 条

编程实现管理员远程登录报警器

收集的哦！使用delphi编写的远程桌面报警器！具体实现的代码以及附件--- unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, WinSock, jpeg;type TMainForm = class(TForm) Eip: TEdit; lbl1: TLabel; lbl2: TLabel; EPort: TEdit; timer1: TTim...

2010-01-25 13:04 | 阅读 1376 次 | 评论 0 条

编写BHO截获并替换百度谷歌搜索表单

收集黑客防线的。不算盗版吧》=《呵呵以下是具体的代码，我搜集的！有点难度的··· BHO的定义：是微软推出的作为浏览器对第三方程序员开放交互接口的业界标准，通过简单的代码就可以进入浏览器领域的‘交互接口’，对象依托于浏览器的主窗口，可以在这些事件的响应中实现与浏览器的交互，这样，对象会在与浏览器相同的上下文中运行，并能对可用的窗口和模块执行任何行动！UIEvisit 单元-------------------------- unit UIEVisit; {$WARN SYMBOL_PLATFORM OFF} interface uses Wind...

2010-01-25 13:02 | 阅读 3687 次 | 评论 0 条

关机函数

unit Unit;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TnForm = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); proced...

2010-01-23 21:21 | 阅读 1088 次 | 评论 0 条