WM_CTLCOLORSTATIC = $0138;当一个静态控件将要被绘制时发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置静态控件的文本和背景颜色WM_MOUSEFIRST = $0200;WM_MOUSEMOVE = $0200;// 移动鼠标WM... Read More
posted @ 2015-11-26 22:44
findumars
Views(2240)
Comments(0)
Diggs(0)
近日偶要做个程序，需要获得外网IP,偶去网上找相关资料，发现都不尽如人意，有的只能获得本地网卡的IP，有的通过httpget控件获取IP,还有甚者做个asp再调用偶是个懒人，而且上面提到的方法，不是获取不了就是速度太慢或者是太麻烦，无意中发现有个系统提供的API，利用它能够获取适配器信息，其中就包括... Read More
posted @ 2015-11-26 22:40
findumars
Views(2223)
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(565)
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(1178)
Comments(0)
Diggs(0)
非常实用的东西！过去知道这个方法的话可以解决多少问题啊首先建立一个C#的DLL工程，写一个类//Test.csnamespaceTest...{publicclassMyTest...{publicstringFun()...{returnthis.ToString();}}}，编译然后在cmd里执... Read More
posted @ 2015-11-26 22:33
findumars
Views(1775)
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(570)
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(2795)
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(4094)
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(10832)
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(1376)
Comments(0)
Diggs(0)
在开发应用程序时往往需要获取当前系统时间。尽管Y2K似乎已经平安过去，但在我们新开发的应用程序中还是要谨慎处理“时间”问题。 在《融会贯通--Delphi4.0实战技巧》(以下简称“该书”)第89页专门介绍了两种获取当前系统时间的方法，但这两种方法都存在不足或错误，以下就此进行讨论。 该书第一种... Read More
posted @ 2015-11-26 22:25
findumars
Views(6644)
Comments(0)
Diggs(0)
前言 Delphi作为一个快速高效的开发平台，使用的人越来越多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多，因为这方面的资料太少了，另一方面，它还需要有基本的汇编语言知识，关於汇编语言的教程，那实在太多了，如果你对汇编语言不熟的话，建议你下载相交的教程先读读。因此，本文假定您已经熟悉... Read More
posted @ 2015-11-26 22:24
findumars
Views(1927)
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(2355)
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(1572)
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(989)
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(240)
Comments(0)
Diggs(0)
核心提示：使用Windows95/NT/98操作系统的用户知道：Windows正常启动后,在电脑屏幕下方出现一块 任务栏。使用Windows95/NT/98操作系统的用户知道：Windows正常启动后,在电脑屏幕下方出现一块 任务栏。从系统功能角度而言,整个任务栏包括几个不同的子区域,从左至右依次是... Read More
posted @ 2015-11-26 22:10
findumars
Views(2032)
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(996)
Comments(0)
Diggs(0)
我们一般在调用了一些API后都会用GetLastError来获得错误信息,但是信息都是Integer的,我们知道是什么意思么?嘿嘿,是的,有msdn呀,当然还可以用FormatMessage函数来.正好看了下Windows核心编程第一章有个例子,来用Delphi试一下.主要用了FormatMessa... Read More
posted @ 2015-11-26 22:07
findumars
Views(889)
Comments(0)
Diggs(0)
dddd Read More
posted @ 2015-11-26 22:05
findumars
Views(289)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号