2015年11月27日
常见文件处理之文本文件
文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。 文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。 文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。1.文件变量与文件名关联... Read More
posted @ 2015-11-27 23:43 findumars Views(431) Comments(0) Diggs(0)
获取进程列表及相关信息
闲着没事，看着任务管理器好玩，查资料先简单实现一下，代码中没有加入获取CPU占用率的代码，这个代码网上很多，只是不喜欢那种写法，这里就不写了。以后继续完善，对于System Process和System的信息还没法获得，那位兄弟知道可以提个醒。代码如下[delphi]view plaincopyun... Read More
posted @ 2015-11-27 23:39 findumars Views(790) Comments(0) Diggs(0)
窗体的扩展样式GWL_EXSTYLE用于SetWindowLong
SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT or WS_EX_LAYERED ); WS_EX_ACCEPTFILES = 0x00000010 指明了一个已创建 Read More
posted @ 2015-11-27 23:38 findumars Views(534) Comments(0) Diggs(0)
内存映射对于大文件的使用
平时很少使用大文件的内存映射，碰巧遇到了这样的要求，所以把过程记录下来，当给各位一个引子吧，因为应用不算复杂，可能有考虑不到的地方，欢迎交流。对于一些小文件，用普通的文件流就可以很好的解决，可是对于超大文件，比如2G或者更多，文件流就不行了，所以要使用API的内存映射的相关方法，即使是内存映射，也不... Read More
posted @ 2015-11-27 23:36 findumars Views(1182) Comments(0) Diggs(0)
Delphi实现全局鼠标钩子
其中涉及到的一些API，网上均能查到详细的解释，这里不再熬述。源码下载因为是全局钩子，所以要用dll注入。用到的鼠标消息结构如下：[delphi]view plaincopyPMouseHookStruct=^TMouseHookStruct;{$EXTERNALSYMtagMOUSEHOOKSTR... Read More
posted @ 2015-11-27 23:35 findumars Views(1832) Comments(0) Diggs(0)
全局键盘钩子(WH_KEYBOARD)
为了显示效果，在钩子的DLL中我们会获取挂钩函数的窗体句柄，这里的主程序窗体名为"TestMain"，通过FindWindow查找。KeyBoardHook.dll代码[delphi]view plaincopylibraryKeyBoardHook;{ImportantnoteaboutDLLme... Read More
posted @ 2015-11-27 23:33 findumars Views(2328) Comments(0) Diggs(0)
实现拦截API的钩子(Hook)
道理不多讲，简单说就是将系统API的跳转地址，替换为我们自己写的API的地址，所以要求我们自定义的API函数要和被拦截的API有相同的参数。在用完后，记得恢复。因为要挂全局的钩子，所以Hook的部分，做成DLL。源码下载Hook.DLL主工程文件代码[delphi]view plaincopylib... Read More
posted @ 2015-11-27 23:32 findumars Views(2707) Comments(0) Diggs(1)
取PE文件的引入表和导出表
直接上代码（这里列出C++和Delphi的代码），Delphi代码中包含导入及导出文件和函数列表，PE结构可参阅资料，很多很详细，需要注意的是，本例中是映射到内存，不是通过PE装载器装入的，所以对于节的RVA地址需要转换成为文件偏移地址。Delphi代码[delphi]view plaincopyu... Read More
posted @ 2015-11-27 23:29 findumars Views(1428) Comments(0) Diggs(0)
Webbrowser中模拟连接点击（非鼠标模拟）
Delphi[delphi]view plaincopyusesmshtml,ActiveX;//初始加载网易主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate('http://www.163.com/');e... Read More
posted @ 2015-11-27 23:27 findumars Views(2159) Comments(0) Diggs(0)
打造无DLL版穿透防火墙Downloader
这份代码的思路来自于国外EES组织的Aphex。基本上所有的无DLL Download都是利用的这种方法。其实也就是用烂了的远程注入法。不过注入的对象不是一个DLL，而是本身的一个过程。下面是代码，由于本人专业知识不够，可能有些说法不太专业。请大家凑合着看。有不懂的请跟贴。program Injec... Read More
posted @ 2015-11-27 21:44 findumars Views(361) Comments(0) Diggs(0)
Delphi 常用属性+方法+事件+代码+函数
禁用最大化(属性)窗体-> BorderIcons属性-> biMaximize-> False让鼠标无法改变窗体大小(属性)窗体-> Constraints属性 ->MaxHeight和MinHeight->设置相同限制鼠标改变窗体的高度窗体-> Constraints属性->MaxWidth和M... Read More
posted @ 2015-11-27 21:43 findumars Views(658) Comments(0) Diggs(0)
PixelFormat 图像颜色的数据格式
PixelFormat: (指定图像中每个像素的颜色数据的格式)Delphi 微软 说明PixelAlpha Alpha 像素数据包含没有进行过自左乘的 alpha 值。PixelCa... Read More
posted @ 2015-11-27 21:41 findumars Views(12090) Comments(0) Diggs(0)
Delphi常见图象格式转换技术
TJPEGScale = (jsFullSize, jsHalf, jsQuarter, jsEighth);//图片大小（全部，1/2，1/4，1/8）TBitmap.pixelFormat:=pf8bit;//图片位数（8，24）给大家提供几个常用的图象格式转换方法和其转换函数希望可以对你有帮助... Read More
posted @ 2015-11-27 21:40 findumars Views(2213) Comments(0) Diggs(0)
Delphi资源文件(全面分析之位图、光标、图标、AVI、JPEG、Wave)
几乎每个Windows应用程序都使用图标、图片、光标等资源。资源是程序的一部分，但是它是不可执行代码。下面我们就详细介绍资源文件在Delphi5中建立和使用方法。1．把资源放到Exe文件的优点由于定位资源比在磁盘中定位文件花费时间少，所以应用程序执行会更快。多种资源可以放在一个文件中，减少了图标、图... Read More
posted @ 2015-11-27 21:39 findumars Views(1065) Comments(0) Diggs(0)
Android实例-路径信息及文件和文件夹的操作(XE8+小米2)
结果： GetTempFileName:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/tmp/tmp.iQIip24407 GetTempPath:/storage/sdcard0/Android/data/com.emba Read More
posted @ 2015-11-27 21:38 findumars Views(2039) Comments(0) Diggs(0)
Delphi给窗体镶边-为控件加边框，描边，改变边框颜色
PS:因为我现在用的电脑是WIN7 64位系统，所以没有实现功能，不知道XP是否可行。//1.定义方法procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;//2.实现方法procedure TForm1.WMNCPaint(va... Read More
posted @ 2015-11-27 21:34 findumars Views(4202) Comments(0) Diggs(0)
Delphi多线程数据库查询（ADO）
ADO多线程数据库查询通常会出现3个问题：1、CoInitialize 没有调用（CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitiali... Read More
posted @ 2015-11-27 21:29 findumars Views(945) Comments(0) Diggs(0)
DelphiXE7如何调用Java Class，JAR等文件？
源文地址：http://jingyan.baidu.com/article/e4d08ffdb61b040fd3f60d44.html第一步，我们先在互联网上把java2pas这个工具下载下来。 下载地址：http://download.csdn.net/detail/zqycn/7791619 ... Read More
posted @ 2015-11-27 21:19 findumars Views(2084) Comments(0) Diggs(0)
为Delphi程序增加UAC功能
相关资料：http://bbs.csdn.net/topics/320071356#操作方法：在Source\VCL目录下应该有这样两个文件sample.manifest和WindowsXP.rc,可以通过如下方法处理:1.sample.manifest处理①打开“sample.manifest”②... Read More
posted @ 2015-11-27 21:15 findumars Views(1917) Comments(0) Diggs(0)
喜欢用战术上的勤奋去敷衍自己战略上的懒惰——做客服，发货，这两个工作是没有意义的——你懂了怎么发货吗？懂了怎么打包吗？懂了怎么做客服吗？（淘宝的黄金时代已经过去了——做单一产品就是要走量）
迷茫:跟前老板一起创业1年，现在心力交瘁，是走还是继续坚持？ 我跟我之前的老板一起创业，天猫卖汽车脚垫。因为我投的钱比较少，占15％的股份。但是一年过去，公司每天还在亏损。每天都在忙一些琐事，自己做客服，发货，直通车等等。每天除了保证7小时睡眠，其他时间都在工作。除了过年回家，这一年都在办公室呆着。 Read More
posted @ 2015-11-27 12:32 findumars Views(687) Comments(0) Diggs(0)
没有产品，没有用户的，绝对不要浪费时间去联系风投——没有过home run的创业人，想办法先做出产品，找到少量用户，没有任何销售成本
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。作者：Kuan Huang链接：http://www.zhihu.com/question/19641135/answer/13531337来源：知乎 这个问题的答案很简单：想想你如果是投资人，你是怎么挑选团队投资的？这和挑股票是一 Read More
posted @ 2015-11-27 11:48 findumars Views(482) Comments(0) Diggs(0)
关于“创业者与VC见面的10个不成文细节点”
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。作者：Will Wang链接：http://www.zhihu.com/question/19641135/answer/50974140来源：知乎从入行到现在，见了不下1000位创业者：地点有在沪杭高铁的餐车上，有在京沪航班的飞行... Read More
posted @ 2015-11-27 11:45 findumars Views(265) Comments(0) Diggs(0)