|
更改图标对话框 2003-05-28 |
SHChangeIconDialog(hwnd,filename,0,index);function SHChangeIconDialog;external 'shell32.dll' index 62;function SHChangeIconDialog(h:hwnd;filename:pchar; Reserved:integer;var index:integer):integer;stdcall;{procedure TForm1.Button1Click(Sender: TObjec...[全部内容] |
|
鼠标屏幕取词技术的原理和实现 2003-05-28 |
“鼠标屏幕取词”技术是在电子字典中得到广泛地应用的,如四通利方和金山词霸等软件,这个技术看似简单,其实在windows系统中实现却是非常复杂的,总的来说有两种实现方式: 第一种:采用截获对部分gdi的api调用来实现,如textout,textouta等。 &...[全部内容] |
|
在Windows2000中拦截Ctrl+Alt+Del 2003-05-28 |
问题:在win2000中如何屏蔽ctrl+del+alt键和其他系统键(98下可以为什么在2000下就不行) ( 积分:100, 回复:20, 阅读:198 )分类:系统相关 ( 版主:luyear, zyy04 ) 来自:xan, 时间:2001-8-26 21:09:00, ID:607224 [显示:小字体 | 大字体] rt!来自:lsyx...[全部内容] |
|
Delphi编程实现Ping操作 2003-05-28 |
Delphi编程实现Ping操作 张泰立 使用过网络的用户都熟悉“Ping”这个指令,它是一个DOS下的可执行文件,一般用它来检查网络连接的好坏程度。其基本原理是利用TCP/IP协议包中ICMP协议中的一个功能,即向所指定的计算机发送一个请求,收到请求的计算机返回一个应答...[全部内容] |
|
断开Internet连接 2003-05-28 |
用Delphi编写可以断开Internet连接的程序 在WIN9X下,如果安装了拨号网络,则在WINDOWS的系统目录(System目录)下将有两个拨号网络管理程序库RasApi32.DLL 和RasApi16.DLL,因此我们可以利用RAS(远程访问服务)系列函数实现断开指定的拨号连接。在这里我们将使用RasH...[全部内容] |
|
跟踪目的地经过的IP地址 2003-05-28 |
Trace命令可以实现跟踪目的地经过的IP地址.请问Trace如何实现的?回复人:forgot2000 | 忘记2000年program TraceRoute;uses Forms, MainForm in 'MainForm.pas' {TraceRouteForm}, ICMP_Define in 'ICMP_Define.pas';{$R *.RES}begin Application.In...[全部内容] |
|
将某一主机域名解析为IP地址 2003-05-28 |
将某一主机域名解析为IP地址。使用 WinSock 单元;过程如下:function HostToIP(Name: string; var Ip: string): Boolean;var wsdata : TWSAData; hostName : array [0..255] of char; hostEnt : PHostEnt; addr : PChar;begin WSAStartup ($0...[全部内容] |
|
使用TCP/IP协议实现聊天程序 2003-05-28 |
使用TCP/IP协议实现聊天程序 TCP/IP协议的传输即面向点到点的传输方式! 1.创建应用程序。 选择“NEW”菜单下的“Application”选项,创建一个普通的应用程序。 2.创建所需控件。 首先在控件栏的Win32页中选择ImageList控件和CoolBar控件,再从Win32栏选择ToolBar控件放...[全部内容] |
|
TAPI基本函数 2003-05-28 |
only use in tapi version 1.4basic telephony services reference1.tapi初始化与关闭lineinitializeex 初始化一个tapi应用, 同步返回.lineshutdown 关闭一个tapi应用, 同步返回. 2.线路版本协商linenegotiateapiversion 应用和tapi协商一个可以使用的tapi版本...[全部内容] |
|
通过程序获得局域网内的全部机器名 2003-05-28 |
type PnetResourceArr = ^TNetResource;implementationprocedure GetServerList(List:TStrings);Type {$H+} PMyRec = ^MyRec; MyRec = Record dwScope : Integer; &nb...[全部内容] |