2015年7月13日

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

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

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

禁止修改系统时间

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

posted @ 2015-07-13 15:53 疯狂delphi 阅读(807) 评论(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 阅读(650) 评论(0) 推荐(0) 编辑

Delphi监视进程并结束进程

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

posted @ 2015-07-13 15:44 疯狂delphi 阅读(861) 评论(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 阅读(947) 评论(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 阅读(2839) 评论(0) 推荐(0) 编辑

创建文件/目录

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

posted @ 2015-07-13 15:18 疯狂delphi 阅读(1018) 评论(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 阅读(776) 评论(0) 推荐(0) 编辑

delphi 删除目录和创建目录,临时文件夹

摘要: 获取用户当前的Windows临时文件夹function GetWinTempPath: string;varTempDir: array[0..255] of char;beginGetTempPath(255, @TempDir);Result := strPas(TempDir);end; 删除 阅读全文

posted @ 2015-07-13 15:16 疯狂delphi 阅读(1856) 评论(0) 推荐(0) 编辑

获取EXe版本信息

摘要: function GetVersionString(FileName: string): string; var VerInfoSize: DWORD; VerInfo: Pointer; VerValueSize: DWORD; Dummy: DWORD; VerValue: PVSFixedFi 阅读全文

posted @ 2015-07-13 15:08 疯狂delphi 阅读(563) 评论(0) 推荐(0) 编辑

导航