2015年7月13日

远程控制篇:在DELPHI程序中拨号上网

摘要: 用MODEM拨号上网,仍是大多数个人网民选择上网的方式.如果能在我们的应用程序中启动拨号连接(如IE浏览器程序中的自动拨号功能),无疑将会方便我们的软件用户(不用再切换应用程序,运行拨号网络),提高我们的软件的友好性从而提高软件的竞争力. 在WIN9X下,如果安装了拨号网络,则在WINDOWS系统的 阅读全文

posted @ 2015-07-13 15:56 疯狂delphi 阅读(568) 评论(0) 推荐(0)

远程控制篇:用Delphi模拟键盘输入/鼠标点击

摘要: 模拟键盘我们用Keybd_event这个api函数,模拟鼠标按键用mouse_event函数. Keybd_event函数能触发一个按键事件,也就是会产生一个WM_KEYDOWN或WM_KEYUP消息,一般用这两个消息来模拟一 次按键(按键的过程是:按下,然后弹起),但是没有直接用这个函数方便。Ke 阅读全文

posted @ 2015-07-13 15:55 疯狂delphi 阅读(5727) 评论(0) 推荐(0)

远程控制篇:抓取远程屏幕图像

摘要: 远程控制篇:抓取远程屏幕图像 {抓屏幕图像,保存为内存流--BMP流,压缩BMP流,JPG流,以及使用流}{在网络中传送BMP流和JPG流的速度没测试过}{BMP流的压缩是无损压缩}{全局变量memoryStream:TMemoryStream;memoryStream:=TMemoryStream 阅读全文

posted @ 2015-07-13 15:54 疯狂delphi 阅读(1374) 评论(0) 推荐(0)

禁止修改系统时间

摘要: 这里有种办法供你选择:1、打开注册表(regedit),在HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer 下新增一个键值: 键值名称:NoSaveSettings 键值数据类型:DWORD 键 阅读全文

posted @ 2015-07-13 15:53 疯狂delphi 阅读(859) 评论(0) 推荐(0)

Delphi 调用netsh命令修改IP地址

摘要: Delphi 调用netsh命令修改IP地址 先介绍一下Netsh命令的使用方法: 在这里跟大家介绍几个简单的指令 1.Show IP 1.1Cmd Mode 直接在cmd下面输入 netsh interface ip show address 亦可简写为 netsh int ip sh ad 看看 阅读全文

posted @ 2015-07-13 15:48 疯狂delphi 阅读(685) 评论(0) 推荐(0)

Delphi监视进程并结束进程

摘要: 监视进程并结束进程在很多地方都用到这里借前人的经验写了个小例子: 以QQ的进程qq.exe为例 关键代码如下: function CheckTask(ExeFileName: string): Boolean; const PROCESS_TERMINATE=$0001; var ContinueL 阅读全文

posted @ 2015-07-13 15:44 疯狂delphi 阅读(895) 评论(0) 推荐(0)

获取本机IP地址和MAC地址

摘要: unit NetFunc; interface uses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; //错误信息常量 const C_Err_GetLocalIp = '获取本地ip失败'; C_ 阅读全文

posted @ 2015-07-13 15:31 疯狂delphi 阅读(972) 评论(0) 推荐(0)

Delphi的移动文件方法(转)/删除文件:/文件的复制

摘要: RenameFile,DeleteFile,MoveFile Delphi的移动文件方法 uses ShellApi;procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);var shellinf 阅读全文

posted @ 2015-07-13 15:19 疯狂delphi 阅读(2908) 评论(0) 推荐(0)

创建文件/目录

摘要: 1 ShellApi CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+’Test’),nil);2. 删除 在程序运行过程中,单击“删除”按钮就可以将新创建的test子目录删除,响应代码如下: procedure TForm1.btnDelete 阅读全文

posted @ 2015-07-13 15:18 疯狂delphi 阅读(1035) 评论(0) 推荐(0)

Socket的连接问题

摘要: case 10004: error = "Interrupted system call 中断的系统呼叫"; break; case 10009: error = "Bad file number"; break; case 10013: error = "Permission denied 进入被 阅读全文

posted @ 2015-07-13 15:17 疯狂delphi 阅读(799) 评论(0) 推荐(0)

导航