《21天学通Delphi》 - 随笔分类(第11页) - 疯狂delphi

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

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

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

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

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

posted @ 2015-07-13 15:54 疯狂delphi 阅读(1368) 评论(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 阅读(680) 评论(0) 推荐(0)

Delphi监视进程并结束进程

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

posted @ 2015-07-13 15:44 疯狂delphi 阅读(887) 评论(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 阅读(962) 评论(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 阅读(2896) 评论(0) 推荐(0)

创建文件/目录

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

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

TreeView节点

摘要：TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性： 1、count，节点个数。(节点总数) 2、item[index 阅读全文

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

最简单的计算MD5方法

摘要：原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默认安装indy) 有篇文章教怎么用IdHashMessageDigest计算字符串md5,计算文件md5却没有说,在阅读全文

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

打造无DLL版穿透防火墙Downloader

摘要：这份代码的思路来自于国外EES组织的Aphex。基本上所有的无DLL Download都是利用的这种方法。其实也就是用烂了的远程注入法。不过注入的对象不是一个DLL，而是本身的一个过程。下面是代码，由于本人专业知识不够，可能有些说法不太专业。请大家凑合着看。有不懂的请跟贴。 program Inje 阅读全文

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

DELPHI关闭瑞星监控的源代码

摘要：program Project1; uses Windows, Messages, SysUtils; procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformati 阅读全文

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

删除TreeView节点以及其子节点

摘要：//1.删除TreeView节点以及其子节点procedure TForm2.Button1Click(Sender: TObject);var TreeNode:TTreeNode;begin if TreeView1.Selected Nil then Begin TreeNode := Tr... 阅读全文

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

VisualStudio2010中创建ASP.Net WebService

摘要：相关资料：http://blog.csdn.net/yapingxin/article/details/7331375 具体操作：1.打开“Microsoft Visual Studio 2010”->“文件”->“新建”->“项目”->“已安装的模板”－>“其他语言”->“Visual C#”-> 阅读全文

posted @ 2015-07-09 17:47 疯狂delphi 阅读(423) 评论(0) 推荐(0)

delphi调用webservice (.NET C#版)

摘要：1 uses XMLIntf, XMLDoc; 2 3 4 5 XML to XTR文件转换 6 7 8 9 1、File-->open打开你要分析的XML文件 10 2、在左边选择你要分析的接点，双击加到中间的转换列表中 11 3、Create-->DataPacket from XML 12 4、Create and Test Transformation... 阅读全文

posted @ 2015-07-09 17:46 疯狂delphi 阅读(975) 评论(0) 推荐(0)

delphi 完全控制Excel 文件

摘要：( 一 ) 使用动态创建的方法 uses ComObj; 首先创建 Excel 对象Var ExcelApp : Variant ; ExcelApp := CreateOleObject ( '' Excel.Application '' ) ; 得到 Excel 的行数和列数ExcelApp.w 阅读全文

posted @ 2015-07-09 17:43 疯狂delphi 阅读(4246) 评论(0) 推荐(0)

EXCEL 建立工作薄与工作表

摘要：1 //1.引用单元 2 uses ComObj; 3 4 //2.建立工作薄与工作表 5 procedure TForm1.Button1Click(Sender: TObject); 6 Var 7 ExcelApp,Sheet:Variant; 8 begin 9 ExcelApp:=createoleobject('excel.application'); 1... 阅读全文

posted @ 2015-07-09 17:42 疯狂delphi 阅读(661) 评论(0) 推荐(0)

Delphi给窗体镶边-为控件加边框，描边，改变边框颜色

摘要：PS:因为我现在用的电脑是WIN7 64位系统，所以没有实现功能，不知道XP是否可行。 1 //1.定义方法 2 procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT; 3 4 //2.实现方法 5 procedure TFor... 阅读全文

posted @ 2015-07-09 17:38 疯狂delphi 阅读(2825) 评论(0) 推荐(0)

DelphiXE7操作sqlite数据库

摘要：相关资料： https://www.cnblogs.com/barryhong/p/3884977.html 准备工作: 1.用SQLiteExpertPers建立一个sqlite数据库。 2.打开delphi xe7。一、FireDAC法设置库联接 1.放入FDConnection1控件 2. 阅读全文

posted @ 2015-07-09 17:27 疯狂delphi 阅读(8348) 评论(2) 推荐(0)

随笔分类 - 《21天学通Delphi》