自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

laoli的专栏

夜深听得三更鼓,醒来不觉五更钟;善恶喜嗔皆执着,到头南柯一梦中。

  • 博客(21)
  • 收藏
  • 关注

原创 干掉xp的防火墙(ICS)(支持win2003)

windows XP在升级sp1版本后添加了防火墙(ics),启用后。程序初次启用网络均需要防火墙确认,对有基本的网络常识的人倒没什么,如果对菜鸟就不行了,运行个程序还得确认,特别是p2p程序。比较麻烦。干脆用程序把他干掉。省的麻烦。哈哈!创建一个函数procedure Close_Firewal;var  SCM, hService: LongWord;  sStatus: TSer

2007-10-13 15:02:00 1050

原创 自己动手编程破解系统的TCP连接数

先把过程写成单元,以便调用unit TcpIpPatcher;interfaceuses classes,WinSvc,sysutils; type HWND = type LongWord; DWORD = type LongWord; BOOL = type LongBool; LPCSTR = PAnsiChar; FARPROC = Pointer;   PSecurity

2006-03-27 17:59:00 5597 3

原创 如何TWebbrowser屏蔽热键Ctrl+N来打开新窗口

如何屏蔽用热键Ctrl+N来用新窗口来打开TWebbrowser里面的网页1.创建一个TApplicationEvents组件,在OnMessage的事件里面输入以下代码   // 检查,如果按下Ctrl+N  if (GetKeyState(VK_CONTROL)     (Msg.wParam = Ord(N)) then  begin //LINk for  http:/

2006-02-28 03:24:00 1500

原创 在TWebbrowser 中模拟点击一个图片提交按钮

原文我曾在大富翁我的笔记发表,没对外(发表日期:2003-6-29 4:18:00 ),今天略作改动.http://www.delphibbs.com/keylife/iblog_show.asp?xid=1316//-------------------------------------------------------------------------------------------

2005-07-04 11:48:00 1655

原创 检测你的程序是否运行在虚拟机(VMware)

//------------------------------------------------------------------构建一个函数,使用了汇编语言啊,嘿嘿!// -------------------开始-----------------------------------------function IsVMwarePresent(): LongBool; stdcall; b

2005-07-01 12:59:00 3089 1

原创 在TWebBrowser 屏蔽右键的弹出菜单.弹出自己的菜单!

//----------------------------------------------原理好简单,就是拦截右键的弹出消息.//_____________________________先创建一个TWebBrowser,命名为Webbrowser1在TForm1.FormCreate事件运行一个测试的网页.procedure TForm1.FormCreate(Sender: TObj

2005-06-27 17:30:00 1870

原创 怎样检测你的IE使用的代理服务器

//-----------------------------------------------//记得引用 WinInet 单元//-----------------------------------------------usesWinInet //----------------------------------------------//定义要使用的函数//-------------

2004-11-10 11:42:00 3023

原创 直接用WinSock API 发E-mail.

unit SMTP_Connections;//------------------------------------------//定义单元//---------------------------------------------interfaceuses  Classes, StdCtrls;const  WinSock = wsock32.dll;  Internet = 2;  

2004-11-10 11:22:00 1744

原创 在TwebBrowser中调用隐藏的IE命令

//命令句柄ID,是来自Shell DocObject View这个类const ID_IE_FILE_PAGESETUP           = 259;const ID_IE_FILE_PRINT               = 260;const ID_IE_FILE_NEWWINDOW           = 275;const ID_IE_FILE_PRINTPREVIEW       

2004-11-04 12:17:00 1576

原创 创建并控制一个asp.net程序!(for delphi.net )

    procedure Button1Click(Sender: System.Object; E: EventArgs);      var          MyConnection : OleDbConnection ;          dbReader : OleDbDataReader;          cmd : OleDbCommand;          abc : str

2004-11-03 16:08:00 1206

原创 在TWebbrowser 里加入html文本

uses   MSHTML; procedure TForm1.Button1Click(Sender: TObject); begin   Webbrowser1.Navigate(www.baidu.com);  //启动一个网站的网页 end; procedure TForm1.Button2Click(Sender: TObject); var   Range: IHTMLTxtRan

2004-09-30 12:23:00 1539 1

原创 怎样在自己的进销存里导入速达、管家婆和用友的数据

unit UpdateSD3000;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, EditForm, KsControls, KsLabels, KsSkinLabels, dxEditor,  dxExEdtr, dxEdLib, dx

2003-09-23 01:33:00 3357

原创 把图标存储在SHELL32.DLL

uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,shellapi,Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObje

2002-08-20 09:17:00 2430

原创 输出SHELL32.DLL的图标

unit iconobject; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls,shellapi,comobj, ComCtrls; type   TForm1 = class(TForm)     ListView1: TLis

2002-08-20 09:17:00 3039 2

原创 怎样屏蔽掉开始按钮?

procedure TForm1.Button1Click(Sender: TObject); begin {Disable the start button} EnableWindow(FindWindowEx(FindWindow(Shell_TrayWnd, nil),0, Button, nil),false); end; procedure TForm1.Button2Click

2001-11-08 01:26:00 1383

原创 怎样屏蔽或打开windows里的快捷键

屏蔽var   Dummy: Integer; begin   SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);   SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0); end; 打开var   Dummy: Integer; begin   System

2001-11-01 01:11:00 1910

原创 怎样修改windows里的开始按钮的位图?

/修改var   Form1: TForm1;   StartButton: hWnd;   OldBitmap: THandle;   NewImage: TPicture; / 将代码放入FormCreate事件procedure TForm1.FormCreate(Sender: TObject); begin   NewImage := TPicture.create;   NewImag

2001-10-08 02:43:00 1100

原创 怎样知道我的程序是否运行在DELPHI?

function IsAppRunningInDelphi : boolean; var   hKernelDll : THANDLE;   proc_IsDebuggerPresent : TProcIsDebuggerPresent;   useFindWindow : boolean;   proc : FARPROC; begin   useFindWindow := true;   if

2001-10-05 14:16:00 1094

原创 杀死一个正在运行的程序

procedure KillProgram(Classname : string; WindowTitle : string); const   PROCESS_TERMINATE = $0001; var   ProcessHandle : THandle;   ProcessID: Integer;   TheWindow : HWND; begin   TheWindow := FindWi

2001-10-05 14:05:00 1239

原创 怎样知道你的程序是运行在安全模式呢?

Use Windows API GetSystemMetrics with SM_CLEANBOOT parameter, this specifies how the system was started, in your project´s code use: program Project1; uses   Forms,   Windows,   Dialogs,   Unit1 in U

2001-10-05 14:01:00 1115

原创 3721是怎样修改我们的注册表的

这是我下载的3721的注册表文件:(大家看看它是怎样修改我们的注册表的)REGEDIT4[HKEY_CLASSES_ROOT/CLSID/{B83FC273-3522-4CC6-92EC-75CC86678DA4}]@=""[HKEY_CLASSES_ROOT/CLSID/{B83FC273-3522-4CC6-92EC-75CC86678DA4}/Control][HKEY_CL

2001-09-28 13:47:00 1394

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除