Solved

Refreshing the desktop

Posted on 2000-03-17
10
170 Views
Last Modified: 2010-04-04
I have an application that set the work area of the desktop (Windows API). So I would like to redraw all opened windows.

Did anybody know how to do that ?

Thanks

Gustavo
0
Comment
Question by:voxel
  • 5
  • 4
10 Comments
 
LVL 20

Expert Comment

by:Madshi
ID: 2629322
I'm not sure what you want. Can you please say it again a bit more detailed?
0
 

Author Comment

by:voxel
ID: 2629609
Edited text of question.
0
 
LVL 20

Expert Comment

by:Madshi
ID: 2629628
Redraw or resize?

To enumerate all windows use "EnumWindows". To resize the windows use "SetWindowPos". To refresh them use "InvalidateRect".
0
 

Author Comment

by:voxel
ID: 2629861
and how I use the EnumWindows function ?
0
 
LVL 17

Expert Comment

by:inthe
ID: 2629911
hi,
here a cpuple of waus to refresh desktop:

SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, 106597,
0);

or:

procedure RefreshDesktop;
var
 c : cardinal;
begin
c:=FindWindowEx(FindWindowEx(FindWindow('Progman','Program Manager'),0,'SHELLDLL_DefView',''),0,'SysListView32','');
  PostMessage(c,WM_KEYDOWN,VK_F5,0); PostMessage(c,WM_KEYUP,VK_F5,1 shl 31);
end;
0
How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

 

Author Comment

by:voxel
ID: 2629930
I think you didn't understand my question.
0
 
LVL 20

Accepted Solution

by:
Madshi earned 100 total points
ID: 2630883
If you have D4 or D5 you can download my free unit "enumStuff" from my homepage

http://beam.to/madshi

Look at the function "GetWindowList".

If you have D2/D3, do something like this:

function EnumWindowsProc(window: dword; lParam: integer) : bool; stdcall;
begin
  result := true;
  // Windows calls this function one time for each top level window
  // so here use GetWindowPos/SetWindowPos with "window"
  // or/and InvalidateRect with "window"
end;
 
  EnumWindows(@EnumWindowsProc, 0);

Regards, Madshi.
0
 

Author Comment

by:voxel
ID: 2631510
I still didn't find how to resize windows to fit in the new work area set by my application.

But i'm giving you the points.

thanks
0
 

Author Comment

by:voxel
ID: 2631513
Do you know how to resize all windows to fit the new work area (desktop) set by my application ?
0
 
LVL 20

Expert Comment

by:Madshi
ID: 2632119
Well, for each window do this:

(1) Call "GetWindowRect(window)" to get the window position/size.
(2) See, whether this rectangle fits in your work area. If not, change the rectangle, so that it does fit. Then call "SetWindowPos(window, ...)" to realize the new rectangle.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
This video discusses moving either the default database or any database to a new volume.
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

759 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

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now