如何获取控制面板程序的信息?

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
uses cpl,ctlpanel; procedure TForm1.Button1Click(Sender: TObject);
var
Proc : TCPlApplet;
Info : TNewCplInfo;
Mo : THandle;
begin
MO:=LoadLibrary('Desk.cpl');
@Proc := GetProcAddress(mo,'CPlApplet');
{取得的@Proc始终为nil,请帮我看看是哪里错了,现在这个问题应该不是很难吧}
if @Proc<>nil then
begin
Proc(Handle,CPL_NEWINQUIRE,0,LongInt(@Info));
Image1.Picture.Icon.Handle:=Info.hIcon;
Label1.caption:=Info.szName;
Label2.caption:=Info.szInfo;
end;
FreeLibrary(Mo);
end;
实际上,以上的方法还是
有问题。(我只测试了Desk.cpl便以为通过了),但当我测试这几项时,便不行了,
请有兴趣的朋友看看:
Sysdm.cpl,netcpl.cpl,modem.cpl,inetcpl.cpl,appwiz.cpl,odbc32.cpl,bde admin.cpl
其中sysdm,netcpl,在LoadLibrary时失败,
我用GetlastError检查,提示为“与系统连接的设备不能正常运转”,而剩余的几个则LoadLibrary可以通过,但提出来的szInfo以及szName全是乱码,解决方法如下:
procedure TForm1.Button1Click(Sender: TObject);
var
Proc : TCPlApplet;
Info : TNewCplInfo;
Mo : THandle;
buf:pchar;
info2:cplinfo;
begin
getmem(buf,255);
MO:=LoadLibrary('inetcpl.cpl');
// showmessage(GetErrorMessage(255));
@Proc := GetProcAddress(mo,'CPlApplet');
if @Proc<>nil then
begin
proc(handle,CPL_INIT,0,0);
proc(handle,CPL_GETCOUNT,0,0);
proc(handle,CPL_INQUIRE,0,integer(@info2));
loadstring(mo,info2.idName,buf,255);
label3.Caption:=buf;
loadstring(mo,info2.idInfo,buf,255);
label4.Caption:=buf;
image2.Picture.Icon.Handle:=loadicon(mo,MAKEINTRESOURCE(info2.idIcon));
Proc(Handle,CPL_NEWINQUIRE,0,integer(@Info));
Image1.Picture.Icon.Handle:=Info.hIcon;
Label1.caption:=Info.szName;
Label2.caption:=Info.szInfo;
end;
freemem(buf);
FreeLibrary(Mo);
end;
 
顶部