为什么要这样做？有时候我们需要一个非窗口组件(比如一个非继承自TWinContrl的组件)可以接受Windows消息。要接受消息就需要一个窗口句柄，但是非窗口组件却没有句柄。这篇文章将讲述怎么让一个没有句柄的组件如何通过一个隐藏的窗口接受消息这是怎么做到的？例如我的剪贴板查看组件就是一个不可视的组件... Read More
posted @ 2015-11-26 20:53
findumars
Views(1019)
Comments(0)
Diggs(0)
现看下面这两个方法，把一个TComponent做成String,再就是把String转成TComponent function ComponentToStringProc(Component: TComponent): string; var BinStream:TMemoryStream; Str Read More
posted @ 2015-11-26 20:50
findumars
Views(537)
Comments(0)
Diggs(0)
unit SysDriver;interfaceuses windows, winsvc; // jwawinsvc;Type TSysDriver = class(TObject) private HomeDir, DriverDir, DriverName, DEVICE_NAME_S... Read More
posted @ 2015-11-26 20:47
findumars
Views(1673)
Comments(0)
Diggs(0)
program Project1; {$APPTYPE CONSOLE} uses Windows, WinSvc; type SERVICE_DESCRIPTION = packed record lpDescription: PWChar; end; PSERVICE_DESCRIPTION = Read More
posted @ 2015-11-26 20:46
findumars
Views(998)
Comments(0)
Diggs(0)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, IEBrowser, Mshtml;t... Read More
posted @ 2015-11-26 20:45
findumars
Views(391)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号