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...
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 ...
注册表读硬件
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...
硬盘及光驱
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; ...
内存及进程
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;...
鼠标的操作
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; ...
屏幕保护程序
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...
实现带阴影效果的画框
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...
几何形状窗体
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...
相框
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...
桌面精灵
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; ...
自制资源管理器
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; ...
任务栏。桌面的隐藏
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...
得到文件日期
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; ...
文件管理器
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); ...
修改时间戳破解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...
delphi的ring0之道
delphi的关于ring0级的编写的一些资料，有些杂，还有些乱，不好意思！附带了一些windowsapi的资料---- 下面是局部的代码，具体见附件------（） uses Windows, Dialogs, SysUtils, NTDDK, JwaWinNT, JwaWinType, JwaNtStatus, JwaAccCtrl, JwaAclApi, ntdll; const KGDT_NULL = 0; KGDT_R0_CODE = 8; KGDT_R0_DATA = 16; KGDT_R3_CODE ...
使用Delphi实现Windows内核模式的进程保护
小弟收集黑防的。
代码有些乱，讲究看吧！！！！-------code1.txtVar ProcessFlagOffset,ThreadFlagOffset:Cardinal; ProcessObjectType,ThreadObjectType:Pointer;TargetPID,TargetTID:Cardinal;function IsListEntry(Address:PLIST_ENTRY):Boolean;//此函数用于判断所给的地址对应的内存区域是否储存着一个有效的LIST_ENTRY结构，一个有效的LIST_ENTRY的特点是它的BLink...
编程实现管理员远程登录报警器
收集的哦！
使用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...
编写BHO截获并替换百度谷歌搜索表单
收集黑客防线的。不算盗版吧》=《 呵呵
以下是具体的代码，我搜集的！有点难度的··· BHO的定义：是微软推出的作为浏览器对第三方程序员开放交互接口的业界标准，通过简单的代码就可以进入浏览器领域的‘交互接口’，对象依托于浏览器的主窗口，可以在这些事件的响应中实现与浏览器的交互，这样，对象会在与浏览器相同的上下文中运行，并能对可用的窗口和模块执行任何行动！UIEvisit 单元-------------------------- unit UIEVisit; {$WARN SYMBOL_PLATFORM OFF} interface uses Wind...
文章分类
文章归档
最新评论
- 最美好的都：受教！！！
- 央吧心般：-s <随机数> 为monkey内部使用的伪随机数生成的种子，如果用相同的随机数种子重新执行m...
- 漫步云端24：fuck yourself
- hq6889：又看了一遍，很受用
- 参宿七：每天进步一点点
- hq6889：好人啊楼主