laoli-优快云博客

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

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

2007-10-13 15:02:00 1175

原创自己动手编程破解系统的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 5758 3

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

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

2006-02-28 03:24:00 1641

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

2005-07-04 11:48:00 1749

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

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

2005-07-01 12:59:00 3348

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

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

2005-06-27 17:30:00 2006

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

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

2004-11-10 11:42:00 3185

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

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

2004-11-10 11:22:00 1857

原创在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 1683

原创创建并控制一个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 1275

原创在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 1629 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 3631

原创把图标存储在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 2683

原创输出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 3381 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 1539

原创怎样屏蔽或打开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 2021

原创怎样修改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 1202

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

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

2001-10-05 14:16:00 1199

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

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 1335

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

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 1207

原创 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 1490

laoli的专栏