这样写有问题吗?(50分)

  • 主题发起人 主题发起人 topsuper
  • 开始时间 开始时间
T

topsuper

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位高手,指点。
下面的这段程序有问题吗? 为什么在win98下提示‘非法操做’谢谢!!
是不是资源没有释放,还是其他问题。
在线等。

var
ADeskTop:IActiveDesktop;
pco: _tagCOMPONENTSOPT;
begin
....
CoInitialize(nil);
ADeskTop:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
pco.dwSize:=sizeof(pco);
pco.fActiveDesktop:=true;
pco.fEnableComponents:=true;
Adesktop.SetDesktopItemOptions(pco,0);
Adesktop.ApplyChanges(AD_APPLY_REFRESH);
ADeskTop.SetWallpaper(pwidechar(wallpaper),1);
ADeskTop.ApplyChanges(AD_APPLY_ALL);
//Adesktop._Release;
CoUninitialize;
.....
end
 
后退
顶部