Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
Solved

preview screen saver

Posted on 2007-03-23
10
1,614 Views
Last Modified: 2012-06-27
How to preview screen saver in tiny box(Like Control Panel--->Desktop does) ?

I can launch screensavers in preview mode, but, they go full screen, instead of confining themselves to the handle of the object I supply.

I am using:

ShellExec(application.handle,
nil,
pchar('?:\path\ssname.scr'),
pchar(' /p '+IntToStr(MyHandle)),
nil,
SW_SHOWNORMAL)

where:

MyHandle:=Image1.Canvas.Handle; // this is a typical example

When I execute the SHellExec line IMage1 changes colour (it goes white instead of the initial grey), but, the chosen screen saver previews itself in full screen mode.


Give me a clue, somebody, anybody, please ....

0
Comment
Question by:David_Ward
  • 5
  • 3
  • 2
10 Comments
 
LVL 21

Expert Comment

by:ziolko
ID: 18780313
SW_SHOWNORMAL means that screensaver will be run in its normal mode which is full screen

screen savers are normal applications (see: http://www.mindspring.com/~cityzoo/scrnsavr.html how to do it in delphi)
so to preview you might try with MoveWindow() to resize/move to desired position

ziolko.
0
 
LVL 4

Author Comment

by:David_Ward
ID: 18780638
No,

the nShowCommand parameter serves absolutely no purpose for ScreenSavers, but it has to be set to -something- to keep the ShellExec command happy.

However, just to be on the safe side, I have tested each and every available value and the behaviour of my test program is the same, irrespective of that setting.


Remember, I am NOT writing ScreenSavers, I just want to execute ScreenSavers from my Delphi app and have the selected ScreenSaver execute within the confines of a component in a form of that same Delphi app.
0
 
LVL 21

Accepted Solution

by:
ziolko earned 250 total points
ID: 18780770
yeah i know you're not writting ss, i just wanted to point where problem might be.

another idea, use CreateProcess instead ShellExecute()
theres param lpStartupInfo which is pointer to record: STARTUPINFO
try setting:
  dwX;  dwY;  dwXSize;  dwYSize

maybe this will display ss in place you want with desired size

ziolko.
0
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
LVL 26

Expert Comment

by:EddieShipman
ID: 18781279
I know how to open the CP Screensavers page:
  ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),
                       PChar( 'shell32.dll,Control_RunDLL desk.cpl,,1'), nil, SW_NORMAL);

How to run a scr in preview mode, I don't think you can do that.
0
 
LVL 26

Expert Comment

by:EddieShipman
ID: 18781413
Apparently, you have to pass the handle of the window where you want to show the preview:

The Preview Mode
As you might have noticed the Preview command has a slight catch. This is the tricky part of the project. We need to show the screen saver in the small preview window in the Display properties dialog. The "/p" command sends a number which is the hWnd of the Display properties dialog. hWnd is a number that is used in Win API to identify each window. The best way to implement the preview mode, is to display the screen saver window as a child to the Display properties. That is what all those API does in the code!

But, it must be the handle of the display properties dialog or you have to create a window with a specific classname.
0
 
LVL 26

Assisted Solution

by:EddieShipman
EddieShipman earned 250 total points
ID: 18781476
Now, this shows the display properties dialog with the passed screensaver in the preview window:

  ShellExecute(Handle, PChar('open'), PChar('rundll32.exe'),
               PChar( 'desk.cpl,InstallScreenSaver c:\win\system\Flying Windows.scr),
               nil, SW_NORMAL);
0
 
LVL 4

Author Comment

by:David_Ward
ID: 18791333
Hi Eddie,

>>But, it must be the handle of the display properties dialog or you have to create a window with a specific classname.

Where did you get this info?
0
 
LVL 26

Expert Comment

by:EddieShipman
ID: 18792488
I pieced it together from several sources, including MSDN and some screensaver code from various sources.
0
 
LVL 4

Author Comment

by:David_Ward
ID: 18814813
Thanks guys,

both of you provided useful hints and it is all "good" now.
0
 
LVL 26

Expert Comment

by:EddieShipman
ID: 18815152
So would you mind posting your final solution as help to others?
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

861 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