Solved

basic screen saver functionality - delphi 3

Posted on 1998-11-11
7
155 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
7 Comments
 
LVL 10

Accepted Solution

by:
viktornet earned 50 total points
Comment Utility
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
Comment Utility
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
Comment Utility
Well, I'm not sure also :)

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

Cheers,
Viktor
0
Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

 
LVL 1

Expert Comment

by:jecksom
Comment Utility
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
Comment Utility
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
Comment Utility
Oh, IC.
0
 
LVL 2

Author Comment

by:yyilmaz
Comment Utility
Thanks Viktornet,
This was a start (for me)

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

Suggested Solutions

Title # Comments Views Activity
disable windows 7 dialogs 6 63
Create a Restore Point In Windows 10 3 101
TcomboBox uninverted item 3 44
Mydac connection data base issue 3 106
The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
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…
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

763 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

12 Experts available now in Live!

Get 1:1 Help Now