☆永遠☆的专栏

原创 vb读取环境变量及其路径

Private Sub Command_Temp_Click()    MsgBox Environ("temp")End SubPrivate Sub Form_Load()    Me.ListView1.View = lvwReport    Me.ListView1.ColumnHeaders.Add , , "环境变量"    Me.ListView1.ColumnHeaders.A

原创 vb选择文件路径

Option ExplicitPrivate Const BIF_RETURNONLYFSDIRS = 1Private Const BIF_DONTGOBELOWDOMAIN = 2Private Const MAX_PATH = 260Private Declare Function SHBrowseForFolder Lib "shell32" _    (lpbi As Brows

原创 DataGridView新特色

DataGridView新特色1、自定义列Customize Cells and Columns in the Windows Forms DataGridView Control by Extending TheirBehavior and AppearanceHost Controls in Windows Forms DataGridView Cells继承 DataGridViewText

转载 使用Indy9+D7实现CSDN论坛的登录，回复，发贴，发短信功能

使用Indy9+D7实现CSDN论坛的登录，回复，发贴，发短信功能 代码片断：const    LoginUrl=htt

原创 Delphi实现网页表单数据的自动提交

MSHTML是微软公司的一个COM组件，该组件封装了HTML语言中的所有元素及其属性，通过其提供的标准接口，可以访问指定网页的所有元素．MSHTML对象模型是由一些对象和集合组成的．处于根部的是HTML，描述了打开页面的1个窗口，包括一系列集合和对象。如Frames集合，History，Location，Navigator，Document，Vi—sum，Event对象等．其中描述呈现在客户窗口实

转载 爱因斯坦出的谜语

爱因斯坦出的谜语document.title="爱因斯坦出的谜语 - "+document.title 爱因斯坦在20世纪初出的这个谜语。他说世界上有98％的人答不出来。04年刚毕业的时侯参加凹凸电子在上交大的宣讲会时，当时遇到过这道题，刚好在程序牛的博客上看到了这道题目，顺便摘了过来。　　1、在一条街上，有5座房子，喷了5种颜色。 　　2、每个房里住着不同国籍的人 　　3、每

转载 Delphi函数大全

原创 Delphi_搜索字符串在流中的位置

Delphi_搜索字符串在流中的位置(*//标题:搜索字符串在流中的位置说明:适用于文件搜索等设计:Zswang支持:wjhu111@21cn.com日期:2004-03-21//*)(*//============================================================================设计思路:从流中将数据取到缓冲中再逐一对缓冲进行

原创 系统公用函数及过程

{▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎▎}{▎                                                                          ▎}{▎                             系统公用函数及过程                            ▎}{▎         

转载 如何读写文本文件

如何读写文本文件下面源代码或许对你有些帮助:Procedure NewTxt;Var　F : Textfile;Begin　AssignFile(F, c:/ek.txt); {将文件名与变量 F 关联}　ReWrite(F); {创建一个新的文件并命名为 ek.txt}　Writeln(F, 将您要写入的文本写入到一个 .txt 文件);　Closefile(F); {关闭文件 F}En

转载 Delphi的TWebBrowser编程综述

Delphi的TWebBrowser编程综述Delphi3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式出现的，而且需要自己引入，在其后的4.0和5.0中，它就在封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。常常听到有人骂Delphi的帮助做得极差，这次的TWebBrowser又是Microsoft的东东，自然不会好

转载 创建3721样式的Google搜索扩展

创建3721样式的Google搜索扩展介绍用过3721的人都知道，当我们在地址栏中直接输入一个非网址的中文名字后，3721搜索引擎可以获得我们输入的中文名字进行查找，并提供一个同中文名字匹配的搜索结果列表。3721的这项功能其实并不神秘，我们可以通过IE的地址搜索扩展来实现。所谓搜索扩展就是当用户在IE地址栏中或通过链接连接到一个没有指定协议的字符串（如hubdog.csdn.net，这里

转载 IIS攻击大全

IIS攻击大全　  1．介绍 　　这里介绍的方法主要通过端口80来完成操作，具有很大的威胁性，因为作为网络服务器80端口总要打开的。如果想方便一些，下载一些WWW、CGI扫描器来辅助检查。 　　而且要知道目标机器运行的是何种服务程序，你可以使用以下命令： 　　telnet 《目标机》 80 　　GET HEAD / HTTP/1.0 　　就可以返回一些域名和WEB服务程序版本，

转载 Delphi中的INI文件编程

Delphi中的INI文件编程   ---- INI文件在系统配置及应用程序参数保存与设置方面，具有很重要的作用，所以可视化的编程一族，如VB、VC、VFP、Delphi等都提供了读写INI文件的方法，其中Delphi中操作INI文件，最为简洁，这是因为Delphi3提供了一个TInifile类，使我们可以非常灵活的处理INI文件。 一、有必要了解INI文件的结构：    ;注释    [

转载 QQ聊天记录器演示程序

QQ聊天记录器演示程序(可针对QQ2003和QQ2004版本)  注:本篇没有高手需要的内容(因为此文中的技术实在无新意可言,只是些简单的实现),各位高手可以就此打住,若浪费宝贵时间,吾将深感不安. 作者网站:http://asp.itdrp.com/hottey ----------------hottey嘘!好不容易有了一点轻松点的时候.现在才有时间把前几天做的QQ聊天记录器发上来和大家一

转载 WebBrowser控件说明

WebBrowser控件说明 500){this.resized=true;this.style.width=500;}" twffan="done" alt="" />500){this.resized=true;this.style.width=500;

原创 安装双硬盘系统（完整）

如今硬盘容量是越来越大，价格也越来越便宜。对于用户来说，硬盘空间是“韩信点兵，多多益善”，而为电脑安装两块硬盘便成了“扩容”的最常见手段。不过，如何安装和使用双硬盘也成为我们必须面对的问题……双PATA硬盘的安装相信现在还有很多人在使用PATA(并行ATA)接口的硬盘。这类硬盘外观最大的特点就是通过扁平的IDE数据线来进行数据传输。那么如果有两块PATA硬盘，该如何安装呢？ 1.规划IDE设备的主

转载 部分QQ源码

unit GCommonMethods;{$I Complier.inc}interfaceuses Windows, SysUtils, GConsts, GNetMethods, GQQFindMethods;procedure CreateMainWindow(hInst: HMODULE; const ClassName: string; var OutHandle: HWND);proc

转载 关于网络上的爱

关于写网络上的爱看了很多,也不免有许多感慨，今天在这里总想写点什么，作为内心许久的一种解释，网络上的爱究竟是什么。 　　首先我想说的是网络的特点那就是神秘，它可以忽略现实中所在乎的外表，可以不通过外表而认识对方，使得一些自认为是丑小鸭的人有了信心，于是他变陷入在了网络的旋涡中，不能出来，因为现实中她得不到虚荣和满足感，当然我说的这点前者是好的，因为人有自信是一种极大的精神感，但是因此而陷

转载 如何构建Informix分布式数据库访问

如何构建Informix分布式数据库访问   　　【IT168 服务器学院】分布式数据库是在集中式数据库系统成熟技术的基础上发展起来的，它使物理分布的数据构成了一个逻辑整体。对用户来说，一个分布式数据库系统逻辑上就如同一个集中式数据库，用户可以在任何一个场地执行全局应用。Informix是一个具有跨平台、全功能的关系型数据库，它可在Online 7.1以上版本中将I－star等网络产品进行集成，并

转载 如何用delphi实现ftp下载文件

//-------------------------------------------------------------------------  //  文件名：WLFtp.pas  //  描述：封装Ftp  API函数，实现上传，下载文件，创建目录  //  //  类名：TWLFtp  //  作者：Win  Lai  //  创建日期：2004-1-9  //  修改日期：2004

原创 通过递归来实现搜索文件

  在我们编写程序的时候，经常会用到在某个目录和子目录中搜索文件这一过程，但Delphi并没有为我们提供这一功能函数，它只为我们提供了一些只能在当前目录查找文件的函数，不过现在在网上也能找到一些可以实现此功能的控件，例如FileSearch等等。那么我们要自己编写这个功能，又应该怎么样做呢？其实本功能最难实现的部分就是要编写能逐层访问目录的算法。经本人研究，终于得出一个实现它的方法，那就是利用递归

转载 实现QQ窗体的缩入伸出功能

实现QQ窗体的缩入伸出功能  不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中的坐标的API函数，利用它与FindVCLWindow()的结合就可以轻易地获得鼠标指针下的VCL可视组件，但当一个窗体中不只一个VCL可视组件，例如可能还有TPanel、

转载 文件历遍搜索详解

文件历遍搜索详解document.title="文件历遍搜索详解 - "+document.title文件历遍看搜索主要用二个Windows API,分别是 FindFirst 和FindNext.他们的返回类型为TSearchRecTSearchRec结构:TSearchRec = record   Time: Integer;   Size: Integ

转载 学习indy组件

学习indy组件1、学习indy组件之一idhttp的使用方法，学习定时器用法，学习分析html页面，程序容错处理预备知识 IdHTTP组件是Indy组件的一部分，主要用于实现读取HTTP服务器的资源，可以实现浏览器的网络功能。 　　IdHTTP是从TIdCustomHTTP继承来的，基本上也就是换了一个比较简单的名字给类和属性而已，它本身没有自己的函数和过程，全是从TIdCustomHTTP

转载 用delphi实现冰河的远程屏幕操作功能

 分为服务端和客户端两个部分，虽然不是一个完整的delphi工程，但是我们关心的其中有用的代码，对吧？下面是服务端unit ServerDlg;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, StdCtrls, WinSock, ScktComp,

原创 用WebBrowser获得网页传递参数

procedure AutoLogin(iDoc1:IHTMLDocument2);var    spDisp: IDispatch;    j: integer;    iELC  : IHTMLElementCollection ;    S2,sn : string;    HtmlInputEle : IHTMLInputElement;    HTMLFormEle  : IHTMLFo

转载 在Delphi中读取局域网内另一台计算机的屏幕

[摘要] 编写过Winsock应用程序的程序员都知道，编写Winsock应用程序绝不是一件轻而易举的事，您不得直接与复杂的Winsock中的Api打交道，幸运的是，Delphi4中的Tclientsocket 和Tserversocket封装了Windows中有关的Api,大为简化了对Winsock的访问，使得我们能够非常轻易的编写Winsock应用程序。本文通过一个读取局域网内另一台计算机屏幕的

原创 ASP各种数据库连接方式

1.Access数据库的DSN-less连接方法: set adocon=Server.Createobject("adodb.connection") adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _ Server.MapPath("数据库所在路径") 2.Access OLE DB连接方法： set adoc