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(856) Comments(0) Diggs(0)
前言 COM已经成为一个必需的东西了。在我们周围,可以说处处充满了COM – 如果你是在使用WINDOWS,并在其下面编写程序的话。然而,无论你是用VC,还是使用DELPHI进行COM编程时,在大多数情况下,编程工具的 IDE已经向你隐藏了COM的大部分实现过程,使得程序员根本不需要了解COM,只专 Read More
posted @ 2016-02-25 18:21 findumars Views(4890) 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(405) 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(471) Comments(0) Diggs(0)
使用以CreateOleObjects方式调用Word 实际上还是Ole,但是这种方式能够真正做到完全控制Word文件,能够使用Word的所有属性,包括自己编写的VBA宏代码。----------------------------------------- Word宏编辑器Word能够真正地进行V Read More
posted @ 2016-02-25 18:16 findumars Views(7854) Comments(0) Diggs(0)