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)
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 – 如果你是在使用WINDOWS,并在其下面编写程序的话。然而,无论你是用VC,还是使用DELPHI进行COM编程时,在大多数情况下,编程工具的 IDE已经向你隐藏了COM的大部分实现过程,使得程序员根本不需要了解COM,只专 Read More
posted @ 2016-02-25 18:21 findumars Views(4851) Comments(0) Diggs(0)
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)
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)