Solved

Control panel application

Posted on 2004-08-06
4
980 Views
Last Modified: 2011-10-03
How is it possible in Delphi to make a .cpl file? and how could you make your standard Delphi program run with that extension?
0
Comment
Question by:KLOPEKS
4 Comments
 
LVL 12

Expert Comment

by:andrewjb
Comment Utility
You got Delphi pro? Don't you just do "New" and choose 'Control Panel appliction' of the 'Other' options somewhere?
0
 
LVL 17

Expert Comment

by:Wim ten Brink
Comment Utility
andrewjb is right. Use File|New|Control Panel Application

When you create a new CPL project, you get a TAppletModule which is a kind of data module with special events to support a control panel. You can even add more of those panels if you like. Control Panel Applications have a special entry point called "CPlApplet" which is required.

Let's quote cpl.pas:
--------Start quote
General rules for being installed in the Control Panel:
      1) The DLL must export a function named CPlApplet which will handle the messages discussed below.
      2) If the applet needs to save information in CONTROL.INI minimize clutter by using the application name [MMCPL.appletname].
      3) If the applet is refrenced in CONTROL.INI under [MMCPL] use the following form:
              ...
              [MMCPL]
              uniqueName=c:\mydir\myapplet.dll
              ...
  The order applet DLL's are loaded by CONTROL.EXE is:
      1) MAIN.CPL is loaded from the windows system directory.
      2) Installable drivers that are loaded and export the CplApplet() routine.
      3) DLL's specified in the [MMCPL] section of CONTROL.INI.
      4) DLL's named *.CPL from windows system directory.

 CONTROL.EXE will answer this message and launch an applet

 WM_CPL_LAUNCH
      wParam      - window handle of calling app
      lParam      - LPTSTR of name of applet to launch

 WM_CPL_LAUNCHED
      wParam      - TRUE/FALSE if applet was launched
      lParam      - NULL

 CONTROL.EXE will post this message to the caller when the applet returns (ie., when wParam is a valid window handle)
--------End quote

In Delphi, the related units are CPL and CtlPanel. It is possible to make an executable that runs both as stand-alone exe and as CPL application but in general it's better to split this functionality. But if you really want to do this, create a CPlApplet according to above syntax and export it. Rename the exe to .cpl or include {$E cpl} in your project source.
0
 

Author Comment

by:KLOPEKS
Comment Utility
I'm not to familiar with Control Panel Application, but i have an existing program that i would like to run as one, so do i make a dll, or add my current code to a CPlApplet ?  
0
 
LVL 18

Accepted Solution

by:
Johnjces earned 120 total points
Comment Utility
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

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
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…
Here's a very brief overview of the methods PRTG Network Monitor (https://www.paessler.com/prtg) offers for monitoring bandwidth, to help you decide which methods you´d like to investigate in more detail.  The methods are covered in more detail in o…
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

728 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

14 Experts available now in Live!

Get 1:1 Help Now