virus05
asked on
hide desktop icons in xp...
Hello... Can someone show me a code for 1) hidding desktop icons in xp, 2) disabling rightclick in xp desktop... Thanks... I'm using delphi 7...
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
2) HKEY_CURRENT_USER\Software \Microsoft \Windows\C urrentVers ion\Polici es\NoViewC ontextMenu .. 0: enable, 1: disable
procedure showdesktop(Show: Boolean);
var
wnd: HWND;
begin
wnd := FindWindow('progman', nil );
if wnd <> 0 then
if show then
ShowWindow( wnd, SW_SHOW )
else
ShowWindow( wnd, SW_HIDE )
else
showmessage( 'Desktop not found' );
end;
var
wnd: HWND;
begin
wnd := FindWindow('progman', nil );
if wnd <> 0 then
if show then
ShowWindow( wnd, SW_SHOW )
else
ShowWindow( wnd, SW_HIDE )
else
showmessage( 'Desktop not found' );
end;