oKmAn.Org - 博客园

2010年2月17日

摘要： php代码: <?php $connstr="DRIVER=Microsoft Access Driver (*.mdb); DBQ=".realpath("mydb.mdb"); $connid=odbc_connect($connstr,"","",SQL_CUR_USE_ODBC ); $query=odbc_do($connid,"select * from data"); ... 阅读全文

posted @ 2010-02-17 14:45 oKmAn.Org 阅读(183) 评论(0) 推荐(0)

2010年2月1日

抛出异常的时间太长了怎么缩短响应时间？

摘要： //在界面上放一个Timer控件，设置Interval为1000即1秒，当然也可以根据实际情况设置为100，500，以缩短判断时间。//然后在Timer执行时，记录流逝时间。//最后在你要处理的过程中，加入对流逝时间的判断，如果大于你预期的时间，则抛出异常。//---------------------------------------------------unit Unit1;interfa... 阅读全文

posted @ 2010-02-01 15:58 oKmAn.Org 阅读(292) 评论(0) 推荐(0)

2010年1月31日

取本机MAC地址

摘要： function NBGetAdapterAddress(a: integer): String; //a指定多个网卡适配器中的哪一个0，1，2... Var NCB:TNCB; //NetBios控制块 ADAPTER:TADAPTERSTATUS; //取网卡状态 LANAENUM:TLANAENUM; //Netbios lana intIdx:Integer; //Temporar... 阅读全文

posted @ 2010-01-31 23:41 oKmAn.Org 阅读(266) 评论(0) 推荐(0)

取本机IP地址

摘要： function LocalIP: String;type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of AnsiChar; i: Integer; GInitData: TWSAData;b... 阅读全文

posted @ 2010-01-31 23:39 oKmAn.Org 阅读(337) 评论(0) 推荐(0)

delphi注册表操作(读取、添加、删除、修改)完全手册

摘要： 32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。　　一、创建和释放TRegistry对象　　1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create；　　2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：ARegistry.Destroy。... 阅读全文

posted @ 2010-01-31 03:12 oKmAn.Org 阅读(589) 评论(1) 推荐(0)

2010年1月27日

利用远程线程注入DLL Delphi版

摘要： SDK文档里是这样描述的:进程是一个正在运行的程序,它拥有自己的地址空间,拥有自己的代码,数据和其他系统资源.一个进程包含了一个或者多个运行在此进程内的线程. 从定义上看出进程一定要有线程,线程是进程内存中的独立实体. 线程插入技术就是把一个线程弄到别的进程中执行的技术。远程线程插入代码之DLL注入技术：我们先编写个简单的DLL：library TestDll; uses Windows;{$... 阅读全文

posted @ 2010-01-27 16:22 oKmAn.Org 阅读(888) 评论(0) 推荐(0)

2010年1月21日

5种运行程序的方法具体应用实例(带参数)

摘要：介绍5种比较常用的运行程序的方法，包括WinExec、ShellExecute、CreateProcess、CreateProcessAsUser、CreateProcessWithLogonW//以下为完整源代码unit Unit1;inte***ceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F... 阅读全文

posted @ 2010-01-21 21:56 oKmAn.Org 阅读(1100) 评论(0) 推荐(0)

下载远程文件

摘要： uses urlmon; procedure TForm1.Button1Click(Sender: TObject);var url:Pchar; LocalFilePath:string;begin LocalFilePath :=ExtractFilePath(application.ExeName)+'ServerList.txt'; url := 'http://ver.bo.sohu.... 阅读全文

posted @ 2010-01-21 17:02 oKmAn.Org 阅读(179) 评论(0) 推荐(0)

2010年1月20日

ShowWindow

摘要： public static extern int ShowWindow ( int hwnd, int nCmdShow ); hwnd ----------- Long，窗口句柄，要向这个窗口应用由nCmdShow指定的命令 nCmdShow ------- Long，为窗口指定可视性方面的一个命令。请用下述任何一个常数 public const int SW_HIDE = 0 p... 阅读全文

posted @ 2010-01-20 23:59 oKmAn.Org 阅读(352) 评论(0) 推荐(0)

XMLHTTP对象的API详解

摘要： XMLHttpRequest 提供客户端同http服务器通讯的协议 Dim HttpReq As New MSXML2.XMLHTTP30 HttpReq.open "GET", "http://localhost/books.xml", False HttpReq.send MsgBox HttpReq.responseText 备注客户端可以通过XmlHttp对象(MSXML2.XMLHTTP... 阅读全文

posted @ 2010-01-20 20:22 oKmAn.Org 阅读(885) 评论(0) 推荐(0)