Solved

basic screen saver functionality - delphi 3

Posted on 1998-11-11
7
157 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
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
Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

 
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

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

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

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…
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…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
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 …

813 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