laoli
码龄26年
求更新 关注
提问 私信
  • 博客：47,073
    社区：4,870
    51,943
    总访问量
  • 21
    原创
  • 3
    粉丝
  • 0
    关注
IP属地以运营商信息为准，境内显示到省（区、市），境外显示到国家（地区）
IP 属地：广东省
加入CSDN时间： 2000-12-11
博客简介：

laoli的专栏

博客描述：
夜深听得三更鼓，醒来不觉五更钟；善恶喜嗔皆执着，到头南柯一梦中。
查看详细资料
个人成就
  • 获得1次点赞
  • 内容获得6次评论
  • 获得2次收藏
  • 博客总排名1,261,725名
  • 原力等级
    原力等级
    0
    原力分
    0
    本月获得
    0
创作历程
  • 1篇
    2007年
  • 2篇
    2006年
  • 3篇
    2005年
  • 5篇
    2004年
  • 1篇
    2003年
  • 2篇
    2002年
  • 7篇
    2001年
TA的专栏
  • delphi文档
    16篇
  • dotnet
  • sql server 2005

TA关注的专栏 0

TA关注的收藏夹 0

TA关注的社区 0

TA参与的活动 0

创作活动更多

芯创视界・嵌入式视频创作征集大赛

嵌入式工程的价值，藏在每一次硬件调试、代码迭代与项目落地之中。 让我们因热爱相聚，用镜头与一众开发者互通心得、彼此启发，记录下探索的每一步，分享思路与经验。 让更多人看见嵌入式开发的魅力，也让每一次创作成为推动技术传播与社区成长的力量。 ![在这里插入图片描述](https://i-blog.csdnimg.cn/direct/0d445ffce72b42f997aaf1b030a652aa.png#pic_center)

21人参与 去参加
  • 最近
  • 文章
  • 专栏
  • 代码仓
  • 资源
  • 收藏
  • 关注/订阅/互动
更多

  • 最近

  • 文章

  • 专栏

  • 代码仓

  • 资源

  • 收藏

  • 关注/订阅/互动

  • 社区

  • 帖子

  • 问答

  • 课程

  • 视频

搜索 取消

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

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

自己动手编程破解系统的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 ·
5860 阅读 ·
0 点赞 ·
3 评论 ·
0 收藏

如何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 ·
1693 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

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

//------------------------------------------------------------------构建一个函数,使用了汇编语言啊,嘿嘿!// -------------------开始-----------------------------------------function IsVMwarePresent(): LongBool; stdcall; b
原创
博文更新于 2005.09.20 ·
3470 阅读 ·
1 点赞 ·
0 评论 ·
0 收藏

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

原文我曾在大富翁我的笔记发表,没对外(发表日期:2003-6-29 4:18:00 ),今天略作改动.http://www.delphibbs.com/keylife/iblog_show.asp?xid=1316//-------------------------------------------------------------------------------------------
原创
博文更新于 2005.07.05 ·
1802 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

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

//----------------------------------------------原理好简单,就是拦截右键的弹出消息.//_____________________________先创建一个TWebBrowser,命名为Webbrowser1在TForm1.FormCreate事件运行一个测试的网页.procedure TForm1.FormCreate(Sender: TObj
原创
博文更新于 2005.06.28 ·
2045 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

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

//-----------------------------------------------//记得引用 WinInet 单元//-----------------------------------------------usesWinInet //----------------------------------------------//定义要使用的函数//-------------
原创
博文更新于 2004.11.10 ·
3258 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

直接用WinSock API 发E-mail.

unit SMTP_Connections;//------------------------------------------//定义单元//---------------------------------------------interfaceuses  Classes, StdCtrls;const  WinSock = wsock32.dll;  Internet = 2;  
原创
博文更新于 2004.11.10 ·
1935 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

在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.08 ·
1755 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

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

    procedure Button1Click(Sender: System.Object; E: EventArgs);      var          MyConnection : OleDbConnection ;          dbReader : OleDbDataReader;          cmd : OleDbCommand;          abc : str
原创
博文更新于 2004.11.03 ·
1329 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

在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 ·
1689 阅读 ·
0 点赞 ·
1 评论 ·
0 收藏

把图标存储在SHELL32.DLL

uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,shellapi,Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObje
原创
博文更新于 2004.06.16 ·
2921 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

输出SHELL32.DLL的图标

unit iconobject; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls,shellapi,comobj, ComCtrls; type   TForm1 = class(TForm)     ListView1: TLis
原创
博文更新于 2004.06.16 ·
3607 阅读 ·
0 点赞 ·
2 评论 ·
0 收藏

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

unit UpdateSD3000;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, EditForm, KsControls, KsLabels, KsSkinLabels, dxEditor,  dxExEdtr, dxEdLib, dx
原创
博文更新于 2004.06.16 ·
3747 阅读 ·
0 点赞 ·
0 评论 ·
1 收藏

怎样屏蔽掉开始按钮？

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 ·
1630 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

怎样屏蔽或打开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 ·
2139 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

怎样修改windows里的开始按钮的位图？

/修改var   Form1: TForm1;   StartButton: hWnd;   OldBitmap: THandle;   NewImage: TPicture; / 将代码放入FormCreate事件procedure TForm1.FormCreate(Sender: TObject); begin   NewImage := TPicture.create;   NewImag
原创
博文更新于 2001.10.08 ·
1313 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

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

function IsAppRunningInDelphi : boolean; var   hKernelDll : THANDLE;   proc_IsDebuggerPresent : TProcIsDebuggerPresent;   useFindWindow : boolean;   proc : FARPROC; begin   useFindWindow := true;   if
原创
博文更新于 2001.10.05 ·
1328 阅读 ·
0 点赞 ·
0 评论 ·
1 收藏

杀死一个正在运行的程序

procedure KillProgram(Classname : string; WindowTitle : string); const   PROCESS_TERMINATE = $0001; var   ProcessHandle : THandle;   ProcessID: Integer;   TheWindow : HWND; begin   TheWindow := FindWi
原创
博文更新于 2001.10.05 ·
1418 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏

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

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 ·
1292 阅读 ·
0 点赞 ·
0 评论 ·
0 收藏
加载更多