利用Delphi编写Windows控制面板组件及实例

lParam1, lParam2: LongInt):LongInt;stdcall;

var

NewCplInfo:PNewCplInfo;

begin

Result:=0;

case uMsg of

CPL_INIT:

Result:=1;

CPL_GETCOUNT:

Result:=2;

CPL_NEWINQUIRE:

begin

NewCplInfo:=PNewCplInfo(lParam2);

with NewCplInfo^ do

begin

dwSize:=SizeOf(TNewCplInfo);

dwFlags:=0;

dwHelpContext:=0;

lData:=0;

if lParam1=0 then

begin

szName:='新的控制面板组件';

hIcon:=LoadIcon(HInstance,'ICON');

szInfo:='这是一个尝试';

end

else

begin

szName:='新的控制面板组件2';

hIcon:=LoadIcon(HInstance,'ICON2');

szInfo:='这是一个尝试2';

end;

szHelpFile:='';

end;

end;

CPL_DBLCLK:

begin

if lParam1=0 then

ExecuteApp

《利用Delphi编写Windows控制面板组件及实例(第5页)》