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(577)
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(852)
Comments(0)
Diggs(0)
前言 COM已经成为一个必需的东西了。在我们周围,可以说处处充满了COM – 如果你是在使用WINDOWS,并在其下面编写程序的话。然而,无论你是用VC,还是使用DELPHI进行COM编程时,在大多数情况下,编程工具的 IDE已经向你隐藏了COM的大部分实现过程,使得程序员根本不需要了解COM,只专 Read More
posted @ 2016-02-25 18:21
findumars
Views(4852)
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(403)
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(467)
Comments(0)
Diggs(0)