WM_CTLCOLORSTATIC = $0138;当一个静态控件将要被绘制时发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置静态控件的文本和背景颜色WM_MOUSEFIRST = $0200;WM_MOUSEMOVE = $0200;// 移动鼠标WM... Read More
posted @ 2015-11-26 22:44
findumars
Views(2245)
Comments(0)
Diggs(0)
近日偶要做个程序，需要获得外网IP,偶去网上找相关资料，发现都不尽如人意，有的只能获得本地网卡的IP，有的通过httpget控件获取IP,还有甚者做个asp再调用偶是个懒人，而且上面提到的方法，不是获取不了就是速度太慢或者是太麻烦，无意中发现有个系统提供的API，利用它能够获取适配器信息，其中就包括... Read More
posted @ 2015-11-26 22:40
findumars
Views(2235)
Comments(0)
Diggs(0)
[delphi] view plaincopyprint? unit Service; interface uses Windows,Messages,SysUtils,Winsvc,Dialogs; function StartServices(Const SvrName:String):Bool Read More
posted @ 2015-11-26 22:39
findumars
Views(568)
Comments(0)
Diggs(0)
借助谷歌，并经过本大侠施展坑、蒙、拐、骗、偷五大绝技，终于成功实现在Delphi下获取Root权限并将其扩展为一个完整功能更加完整的TQAndroidShell记录，在华为荣耀2（Android 4.2）、Nubia Z5S（Android 4.4）测试通过。参考代码如下：1234567891011... Read More
posted @ 2015-11-26 22:35
findumars
Views(1188)
Comments(0)
Diggs(0)
非常实用的东西！过去知道这个方法的话可以解决多少问题啊首先建立一个C#的DLL工程，写一个类//Test.csnamespaceTest...{publicclassMyTest...{publicstringFun()...{returnthis.ToString();}}}，编译然后在cmd里执... Read More
posted @ 2015-11-26 22:33
findumars
Views(1779)
Comments(0)
Diggs(0)
procedure imgListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);private procedure WMNCHITTEST(var Msg: TWMNCHITTE... Read More
posted @ 2015-11-26 22:32
findumars
Views(576)
Comments(0)
Diggs(0)
TheSetThreadAffinityMaskfunction sets a processor affinity mask for the specified thread.[delphi]view plaincopyprint?DWORD_PTRSetThreadAffinityMask(HA... Read More
posted @ 2015-11-26 22:29
findumars
Views(2814)
Comments(0)
Diggs(0)
方法一：[delphi]view plaincopyprint?usesComObj,DateUtils;functionGetInternetTime:string;varXmlHttp:OleVariant;datetxt:string;DateLst:TStringList;mon:strin... Read More
posted @ 2015-11-26 22:28
findumars
Views(4110)
Comments(0)
Diggs(0)
大体思路： 1.用户向服务号发消息，（这里可以是个菜单项，也可以是一个关键词，如：注册会员。) 2.kbmmw web server收到消息，生成一个图文消息给微信，在图文消息中做好自己的url，在url中，可以把第一步消息带来的openid写到url的参数表中。 3.用户点这个图文消息 4.web Read More
posted @ 2015-11-26 22:27
findumars
Views(10891)
Comments(0)
Diggs(0)
This example shows how to use a TSwipeTransitionEffect transition and a TPathAnimation to simulate the turning of a book page. A TImage. A TSwipeTrans Read More
posted @ 2015-11-26 22:26
findumars
Views(1379)
Comments(0)
Diggs(0)
在开发应用程序时往往需要获取当前系统时间。尽管Y2K似乎已经平安过去，但在我们新开发的应用程序中还是要谨慎处理“时间”问题。 在《融会贯通--Delphi4.0实战技巧》(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法，但这两种方法都存在不足或错误，以下就此进行讨论。 该书第一种... Read More
posted @ 2015-11-26 22:25
findumars
Views(6659)
Comments(0)
Diggs(0)
前言 Delphi作为一个快速高效的开发平台，使用的人越来越多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多，因为这方面的资料太少了，另一方面，它还需要有基本的汇编语言知识，关於汇编语言的教程，那实在太多了，如果你对汇编语言不熟的话，建议你下载相交的教程先读读。因此，本文假定您已经熟悉... Read More
posted @ 2015-11-26 22:24
findumars
Views(1931)
Comments(0)
Diggs(0)
beginbmp:=TBitmap.Create;jpeg:=TJPEGImage.Create;jpeg.LoadFromFile(fname);withbmpdobeginPixelFormat:=pf24bit;Height:=60;Width:=self.RzListBox.Width;Ca... Read More
posted @ 2015-11-26 22:19
findumars
Views(2358)
Comments(0)
Diggs(0)
uses RichEdit;{将RichEdit1的内容保存为图片，此函数也适合于RxRichEdit，即RichEdit: TRxRichEdit}procedure RichEditToCanvas(RichEdit: TRichEdit; Canvas: TCanvas; PixelsPerI... Read More
posted @ 2015-11-26 22:14
findumars
Views(1582)
Comments(0)
Diggs(0)
uses Windows;type TfrmLogin = class(TForm) end;implementation{$R *.dfm}procedure TfrmLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handl... Read More
posted @ 2015-11-26 22:13
findumars
Views(992)
Comments(0)
Diggs(0)
需要用到的一个函数：LONG SetWindowLong( HWND hWnd, int nIndex, LONG dwNewLong);program Project;usesForms,Windows,ufrmMain in 'ufrmMain.pas' {frmMain};{$R ... Read More
posted @ 2015-11-26 22:11
findumars
Views(242)
Comments(0)
Diggs(0)
核心提示：使用Windows95/NT/98操作系统的用户知道：Windows正常启动后,在电脑屏幕下方出现一块 任务栏。使用Windows95/NT/98操作系统的用户知道：Windows正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是... Read More
posted @ 2015-11-26 22:10
findumars
Views(2035)
Comments(0)
Diggs(0)
// 方法1var Icon : TIcon; Bitmap : TBitmap;begin Icon := TIcon.Create; Bitmap := TBitmap.Create; Icon.LoadFromFile('c:\picture.ico'); //Load a... Read More
posted @ 2015-11-26 22:08
findumars
Views(1000)
Comments(0)
Diggs(0)
我们一般在调用了一些API后都会用GetLastError来获得错误信息,但是信息都是Integer的,我们知道是什么意思么?嘿嘿,是的,有msdn呀,当然还可以用FormatMessage函数来.正好看了下Windows核心编程第一章有个例子,来用Delphi试一下.主要用了FormatMessa... Read More
posted @ 2015-11-26 22:07
findumars
Views(891)
Comments(0)
Diggs(0)
dddd Read More
posted @ 2015-11-26 22:05
findumars
Views(290)
Comments(0)
Diggs(0)
在看 API 文档时, 我们经常见到 GetLastError; 它可以返回操作后系统给的提示.但 GetLastError 返回的只是一个信息代码, 如何返回对应的具体信息呢?FormatMessage 可以, 但这个函数太复杂了; 可以用 SysErrorMessage 代替它.举例:[Delp... Read More
posted @ 2015-11-26 22:04
findumars
Views(381)
Comments(0)
Diggs(0)
http://blog.csdn.net/y281252548/article/details/51659208 Read More
posted @ 2015-11-26 22:00
findumars
Views(735)
Comments(0)
Diggs(0)
WinowsXP 的桌面的是在系统盘上，一但系统瘫痪需要重新安装系统时，总得记得去备份桌面的重要文件，如果一不小心忘记备份就重装系统的话，那些重要文件就一去不复返了。其实我们可以把桌面放到其它盘目录里，如D盘上，这样再重新系统时就不用备份桌面上的重要文件了，也不怕桌面文件因重装系统丢失了。其具体操... Read More
posted @ 2015-11-26 22:00
findumars
Views(2858)
Comments(0)
Diggs(0)
[delphi]view plaincopyprint?procedureTfrmMain.btnSendClick(Sender:TObject);varhCalc,h1:Cardinal;beginWinExec('calc',SW_SHOWNORMAL);//运行计算器hCalc:=FindW... Read More
posted @ 2015-11-26 21:56
findumars
Views(399)
Comments(0)
Diggs(0)
FMX支持视频采集，具体见FMX.Media，提供了很类支持音频、视频的处理。按帮助文档，用Note3做了测试，结果，效率太低，不可用。具体可查询帮助Video Capturing一节，我就是按这个把代码复制过来做的测试.一点进展：对于这么低的效率，经与朋友讨论，应该是FMX完全自己处理的结果，如此... Read More
posted @ 2015-11-26 21:54
findumars
Views(1637)
Comments(0)
Diggs(0)
参考昨天的内容，有朋友还是问如何调用百度地图，也是，谁让咱都在国内呢，没办法，你懂的。首先去申请个Key，然后看一下百度JavaScript的第一个例子:http://developer.baidu.com/map/jsdemo.htm下一步，就是把例子中的代码，移动TWebBrower中。unit... Read More
posted @ 2015-11-26 21:52
findumars
Views(1856)
Comments(0)
Diggs(0)
原文地址：Example of using JavaScript for Google maps in the Delphi XE6XE6的TWebBrowser新增了EvaluateJavaScript方法，这个方法，允许我们与TWebBrowser已经加载的的网页进行交互。这太方便了！作者用一个... Read More
posted @ 2015-11-26 21:51
findumars
Views(937)
Comments(0)
Diggs(0)
http://blog.csdn.net/yanjiaye520/article/details/6999266 Read More
posted @ 2015-11-26 21:50
findumars
Views(700)
Comments(0)
Diggs(0)
原文地址：HTTP协议详解作者：月之轮回_ECMA引言HTTP是一个属于应用层的面向对象的协议，由于其简捷、快速的方式，适用于分布式超媒体信息系统。它于1990年提出，经过几年的使用与发展，得到不断地完善和扩展。目前在WWW中使用的是HTTP/1.0的第六版，HTTP/1.1的规范化工作正在进行之中... Read More
posted @ 2015-11-26 21:46
findumars
Views(305)
Comments(0)
Diggs(0)
最大化按钮不可用，而且窗体最大化，我以前一直这样设置：在Object Inspector下把BorderIcons属性下的biMaximize属性设置为False，然后把WindowState属性设置为wsMaximized，结果是窗体的最大化按钮的确是隐藏了，窗体也最大化了，但是窗体也遮盖住了任务... Read More
posted @ 2015-11-26 21:39
findumars
Views(1405)
Comments(0)
Diggs(0)
因为Delphi自带的转换函数遇到其无法识别的字符串就返回空，下面函数可解决该问题。function DecodeUtf8Str(const S: UTF8String): WideString;varlenSrc, lenDst: Integer;beginlenSrc := Length(S);... Read More
posted @ 2015-11-26 21:38
findumars
Views(994)
Comments(0)
Diggs(0)
从前我也是用SystemParametersInfo这API来改桌面壁纸的，问题多多，也不知道哪错了，就没深究下去。看了CSDN的帖子后，大彻大悟~~在XP下，SystemParametersInfo只支持BMP格式的图片，如果用其他格式的话就会黑屏？(我记得当年我就是这情况 现在懒得测试了) 把... Read More
posted @ 2015-11-26 21:37
findumars
Views(621)
Comments(0)
Diggs(0)
一直都对QQ的好友列表很好奇，最先感觉用TreeView实现的，看了看TreeView的源码，发现要实现还真的不太好完成任务啊，其中最大的原因是自己的功力不足，后来觉得用ListView来做吧，结果也是失败，后来又想到ListBox，结果发现也是难成，最后发现有一个TDrawGrid，可以来绘制，但... Read More
posted @ 2015-11-26 21:36
findumars
Views(2688)
Comments(0)
Diggs(0)
Windows是一个基于消息驱动的系统，因此，在很多时候，我们需要截获一些消息然后自己进行处理。而VCL系统又有一些特定的消息。下面对我所了解的delphi环境中截获消息进行一些总结。 就个人了解，共有6种方法来截获/处理消息。 1. 消息钩子（Message Hook） 特点：可以针对所有有句柄的 Read More
posted @ 2015-11-26 21:35
findumars
Views(1989)
Comments(0)
Diggs(0)
方法一：使用SHDocVw, MSHtml单元提供的一些方法利用浏览器的特性来获取。uses SHDocVw, MSHtml;function GetUserAgent: string;varDoc: IHTMLDocument2;win: IHTMLWindow2;wb: TWebBrowser;... Read More
posted @ 2015-11-26 21:33
findumars
Views(739)
Comments(0)
Diggs(0)
{**********************************************************************API函数 AnimateWindow 使用：函数功能：窗体显示和隐藏时产生特殊的动画效果；可以产生两种类型的动画效果：滚动动画 和 滑动动画函数原型：BOO... Read More
posted @ 2015-11-26 21:32
findumars
Views(807)
Comments(0)
Diggs(0)
//汉字URL编码函数function URLEncode(const S: string; const InQueryString: Boolean): string;varIdx: Integer; //逐个字符循环直至字符串结束beginResult := '';for Idx := 1 to... Read More
posted @ 2015-11-26 21:31
findumars
Views(595)
Comments(0)
Diggs(0)
Delphi组件Clever Suite Internet是一款优秀的网络组件，唯一让我感觉不足的是ClHttp竟然使用了断言，当程序遇到问题的时候就会弹出一个对话框，并显示问题是出在了那个单元里。好了，言归正传，发一个Delphi2007下使用ClHttp的例程。procedure TForm1.... Read More
posted @ 2015-11-26 21:30
findumars
Views(779)
Comments(0)
Diggs(0)
uses ComObj, DateUtils;procedure TForm1.Button1Click(Sender: TObject);var XmlHttp: Variant; datetxt : String; DateLst : TStringList; mon: String; ... Read More
posted @ 2015-11-26 21:26
findumars
Views(705)
Comments(0)
Diggs(0)
在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代码中提取出了一个好的提升进程令牌的函数,不敢独享,跟大家分享下.那个后门真的写的很好...Hysia提示你:这个函数用在对付病毒的程序中效果很好,只有提升自身权限才能KILL掉病毒进程我曾写写出来尝试结束Winlo... Read More
posted @ 2015-11-26 21:25
findumars
Views(2393)
Comments(0)
Diggs(0)
有时候，我们做一些小软件就需要检测网络连接状态，比如想给你的软件加上类似QQ那样的系统消息，可是像我这样的穷人肯定是买不起服务器了，那我们只好另想办法，可以读取网页然后用浏览器显示，这个时候就需要判断网络状态。我目前采用的判断方式有两种：1.采用WinInet方式:uses WinInet;p... Read More
posted @ 2015-11-26 21:24
findumars
Views(3777)
Comments(0)
Diggs(0)
typeTForm1 = class(TForm)private{ Private declarations }public{ Public declarations }procedure CreateParams(var Params: TCreateParams); override;end;v... Read More
posted @ 2015-11-26 21:17
findumars
Views(773)
Comments(0)
Diggs(0)
procedure TForm1.FormCreate(Sender: TObject);varpt: array [0 .. 4] of TPoint;m_rgn: HRGN;beginpt[0].x := self.Width div 2;pt[0].y := 0;pt[1].x := 0;pt... Read More
posted @ 2015-11-26 21:16
findumars
Views(519)
Comments(0)
Diggs(0)
有些时候，我们写的程序需要播放音乐，一般大家会采用以下几种方式：1.把音乐文件放置在某个特定的目录，例如Sound，WAV，Music供程序读取播放；2.使用资源来存放音乐。有些人估计也是使用这个方法的，不过大部分人可能是先从资源里把音乐文件释放出来，然后再去读取播放。我今天要介绍的方式是直接把音乐... Read More
posted @ 2015-11-26 21:15
findumars
Views(2409)
Comments(0)
Diggs(0)
支持面向对象编程Delphi是如此丰富和强大。雷和对象允许模块化编程。除了更多的模块和更多复杂的组件外，同时也带了更多的迷惑和更多复杂的Bugs。当用Delphi开发一个程序(几乎)总是那么的有趣，当你感觉整个世界都在反对你的这个局面下。无论什么时候你需要创建一个对象你就得释放它所使用的内存。无疑此... Read More
posted @ 2015-11-26 21:10
findumars
Views(1267)
Comments(0)
Diggs(0)
最近去sourceforge瞎转悠，突然发了一个组件，关于Delphi下Html5的canvas的组件，大概浏览了一下源码，竟然是纯粹的Pascal代码，也就说完全的Delphi代码。不敢独享，现在上传到我的博客上以供有需要的人下载研究。点击下载此文件(21.49 KB)http://www.lsw... Read More
posted @ 2015-11-26 21:09
findumars
Views(1120)
Comments(0)
Diggs(0)
网络上也有人写了关于Delphi与Javascript的文章，其大多数使用ScriptControl等，均无法达到与Delphi自身融合的效果。我也是在翻阅自己的组件库的时候发现了这个以前收集来的代码。这个主要是使用了Mozilla的Javascript引擎，所以在程序运行的时候必须带上js3215... Read More
posted @ 2015-11-26 21:05
findumars
Views(2839)
Comments(0)
Diggs(0)
Delphi创建控制台（Console）程序默认是无法添加图标和版权的。经过仔细的对比窗体程序与控制台程序源码，发现窗体程序的工程文中，在uses结束begin开始的地方有一句如下代码：{$R *.res}而控制台程序的工程文件里是没有这句代码的。于是，我就在想是不是我在控制台程序的工程文件里加上如... Read More
posted @ 2015-11-26 21:03
findumars
Views(711)
Comments(0)
Diggs(0)
为什么要这样做？有时候我们需要一个非窗口组件(比如一个非继承自TWinContrl的组件)可以接受Windows消息。要接受消息就需要一个窗口句柄，但是非窗口组件却没有句柄。这篇文章将讲述怎么让一个没有句柄的组件如何通过一个隐藏的窗口接受消息这是怎么做到的？例如我的剪贴板查看组件就是一个不可视的组件... Read More
posted @ 2015-11-26 20:53
findumars
Views(1022)
Comments(0)
Diggs(0)
现看下面这两个方法，把一个TComponent做成String,再就是把String转成TComponent function ComponentToStringProc(Component: TComponent): string; var BinStream:TMemoryStream; Str Read More
posted @ 2015-11-26 20:50
findumars
Views(540)
Comments(0)
Diggs(0)
unit SysDriver;interfaceuses windows, winsvc; // jwawinsvc;Type TSysDriver = class(TObject) private HomeDir, DriverDir, DriverName, DEVICE_NAME_S... Read More
posted @ 2015-11-26 20:47
findumars
Views(1683)
Comments(0)
Diggs(0)
program Project1; {$APPTYPE CONSOLE} uses Windows, WinSvc; type SERVICE_DESCRIPTION = packed record lpDescription: PWChar; end; PSERVICE_DESCRIPTION = Read More
posted @ 2015-11-26 20:46
findumars
Views(1002)
Comments(0)
Diggs(0)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, IEBrowser, Mshtml;t... Read More
posted @ 2015-11-26 20:45
findumars
Views(393)
Comments(0)
Diggs(0)
program AdminCMD;{$APPTYPE CONSOLE}uses Windows, ShellApi, SysUtils;function RunAsAdmin(const iExeName, iParam: String): Boolean;var SEI: TShellEx... Read More
posted @ 2015-11-26 20:44
findumars
Views(380)
Comments(0)
Diggs(0)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, OleCtrls, IEBrowser... Read More
posted @ 2015-11-26 20:43
findumars
Views(505)
Comments(0)
Diggs(0)
http://docwiki.embarcadero.com/RADStudio/Seattle/en/Internal_Data_Formats关于Double的RTL函数，好像就一个：TryStrToFloatfunction TryStrToFloat(const S: string; out... Read More
posted @ 2015-11-26 01:56
findumars
Views(2992)
Comments(0)
Diggs(0)
Delphi反汇编内部字符串处理函数/过程不完全列表名称参数返回值作用等价形式 / 备注_PStrCatEAX ：目标字符串EDX ：源字符串EAX连接两个 Pascal 字符串s:=copy(s+s1,1,255)_PStrNCatEAX ：目标字符串EDX ：源字符串CL ：结果字符串最大长度E... Read More
posted @ 2015-11-26 01:08
findumars
Views(899)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号