2016年2月25日
Delphi中关于Rtti的一些操作(一）
function TForm1.ShowMethodAddress(aObj: TDerived; const sData: String) : Pointer;var aPtr : Pointer; sResult : String;begin try aPtr := aObj.MethodAdd Read More
posted @ 2016-02-25 18:24 findumars Views(576) Comments(0) Diggs(0)
Delphi中运行时改变panel的位置及大小（通过wm_SysCommand来实现）
procedure TForm1.pnl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture;SendMessage(pnl1.Handle, Read More
posted @ 2016-02-25 18:22 findumars Views(851) Comments(0) Diggs(0)
COM实现过程
前言 COM已经成为一个必需的东西了。在我们周围，可以说处处充满了COM – 如果你是在使用WINDOWS，并在其下面编写程序的话。然而，无论你是用VC，还是使用DELPHI进行COM编程时，在大多数情况下，编程工具的 IDE已经向你隐藏了COM的大部分实现过程，使得程序员根本不需要了解COM，只专 Read More
posted @ 2016-02-25 18:21 findumars Views(4851) Comments(0) Diggs(0)
Delphi下用API代码创建Form
program PMyWindowClass; uses Windows, Messages, SysUtils; type TMyWindow = class(TObject) private { Private declarations } WindowClass: WndClass; hWin Read More
posted @ 2016-02-25 18:20 findumars Views(402) Comments(0) Diggs(0)
Delphi中MethodAddress汇编代码的解析
class function TObject.MethodAddress(const Name: ShortString): Pointer;asm { -> EAX Pointer to class } { EDX Pointer to name } PUSH EBX PUSH ESI PUSH Read More
posted @ 2016-02-25 18:19 findumars Views(466) Comments(0) Diggs(0)