如何将桌面上的图标隐藏！(30分)

S

sqcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #1

如何将桌面上的图标隐藏！
如：我的电脑、回收站等。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #2

var Desk:Thandle;
begin
Desk:=Findwindow('Program',nil);
ShowWindow(Desk,SW_HIDE);
end;

 

N

Nose

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #3

procedure DeskTopShow(isShow:Boolean);
var
hDesktop : THandle;
begin
hDesktop := FindWindow('Progman', nil);
if hDesktop=0 then
exit;
if isShow then
ShowWindow(hDesktop, SW_Show)
else
ShowWindow(hDesktop, SW_HIDE);
end;

 

C

Chenlili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-18

• #4

通过改写注册表也可能。
另外AHM控件中有相关的控件。
<a href="http://delphi.yesite.com">中文热讯</a>

 

S

sqcool

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-20

• #5

多人接受答案了。