Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

basic screen saver functionality - delphi 3

Posted on 1998-11-11
7
Medium Priority
?
163 Views
Last Modified: 2010-04-04
All I want is a small (no libraries) screen saver which will only run a windows application (e.g. calculator.exe) and kill it when the screen saver de-activates(ie mouse move etc.) Setup screen is to have one form with only static text. I have been trying... :-( Please help!
0
Comment
Question by:yyilmaz
[X]
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
7 Comments
 
LVL 10

Accepted Solution

by:
viktornet earned 100 total points
ID: 1346610
Here is how...

//Include ShellAPI to your uses clause...

uses ShellAPI;

//Use the OnCreate() to run the Calculator.exe and/or Notepad.exe , etc...
OnCreate()
ShellExecute(0, 'open', 'Notepad.exe', nil, nil, SW_NORMAL);
//Replace 'Notepad.exe' with 'Calculator.exe' if you want to execute Calculator.exe and so on...

in OnMouseMove() of the form you use code this...

OnMouseMove()
CloseFile('Notepad.exe');

That's all... :)

btw- If you still can't get it to work just leave your e-mail address and I'll send you some code :)

Cheers,
Viktor
0
 
LVL 4

Expert Comment

by:BoRiS
ID: 1346611
yyilmaz

Vitornet is correct in the code he gave you, but I'm not sure I understand, how does executing a application act as a screen saver, unless you are moving the app around the screen...

Later
BoRiS
0
 
LVL 10

Expert Comment

by:viktornet
ID: 1346612
Well, I'm not sure also :)

Just gave the code s/he wanted to have :)

Cheers,
Viktor
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 1

Expert Comment

by:jecksom
ID: 1346613
Hello !

Hm , sorry dudes , maybe i didn't understand , but screen saver isn't just oncreate and
onmove based application , there tons of different things in handling (preview, setings, etc).

yyilmaz: check those links, if you need to code screen saver.

http://www.psibrspace.com/delphi/saver.htm
http://mindspring.com/~cityzoo/text/scrnsavr.html

Jecksom

PS: http://www.inprise.com/devsupport/delphi/ti_list/TI3335.html inprise's doc.

0
 
LVL 10

Expert Comment

by:viktornet
ID: 1346614
He mailed me and he doesn't need a screen saver... He needs an application that executes and closes a screen saver...
0
 
LVL 1

Expert Comment

by:jecksom
ID: 1346615
Oh, IC.
0
 
LVL 2

Author Comment

by:yyilmaz
ID: 1346616
Thanks Viktornet,
This was a start (for me)

0

Featured Post

[Webinar] Lessons on Recovering from Petya

Skyport is working hard to help customers recover from recent attacks, like the Petya worm. This work has brought to light some important lessons. New malware attacks like this can take down your entire environment. Learn from others mistakes on how to prevent Petya like worms.

Question has a verified solution.

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

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…
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 this video, Percona Solution Engineer Dimitri Vanoverbeke discusses why you want to use at least three nodes in a database cluster. To discuss how Percona Consulting can help with your design and architecture needs for your database and infras…
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…
Suggested Courses

610 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