Solved

hide desktop icons in xp...

Posted on 2004-08-30
3
263 Views
Last Modified: 2010-04-05
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...
0
Comment
Question by:virus05
  • 2
3 Comments
 
LVL 4

Accepted Solution

by:
ceoworks earned 125 total points
ID: 11938547
0
 
LVL 4

Expert Comment

by:ceoworks
ID: 11938581
2) HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\NoViewContextMenu.. 0: enable, 1: disable
0
 

Expert Comment

by:blackcat67
ID: 11939048
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;
0

Featured Post

Best Practices: Disaster Recovery Testing

Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question