[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]
> Is anybody have examples on how to create a Control
> Panel Applet in Delphi 2.0 ?
Borland stuffed up on this one - they didn't bother to
port the CPL.H header file to a Delphi unit. But never
fear, Johnny's here. :-)
I've attached a Cpl.pas unit that is the port and a
CplTest project that tests it out. The important thing
is the CplApplet function - it must be exported as
"CplApplet" since the Control Panel searches for a
function with this name. With only minor changes, the
entire CplApplet function can be reused for any
applet.
Depending on what you need to do, you are probably
better off NOT using the VCL (Forms, etc) and using
the old fashioned Windows dialog box functions, etc.
(you can still do this with Delphi). You'll save at
least 150K of disk space this way.
{ the following contains additional files that should be included with this
file. To extract, you need XX3402 available with the SWAG distribution.
1. Cut the text below out, and save to a file .. filename.xx
2. Use XX3402 : xx3402 d filename.xx
3. The decoded file should be created in the same directory.
4. If the file is a archive file, use the proper archive program to
extract the members.
{ ------------------ CUT ----------------------}
*XX3402-006132-281197--72--85-40319-----CPLTEST.ZIP--1-OF--2
I2g1--E++U+6+BZnHW71fgIt1k2++Bk-+++C++++J2JBI0xpPaZoAGtkMLC3I2pDkn+ADJCd
zw251ViO8jKuWEiRlU4a6Pe7QteO2YWH8bO5dabzbLmAQNb27TNvTbuqAlf3gDBDiQWnD3C4
oPo9WE4AV7Fb+4z8hDOPNf-46h4Vnyc1vJVdbpJO2+LeoMbVEwZ+KQDCVi98ihu5dF9ORXE9
NXKr3HhBQFkT-UnYBUV9i+QNr0MFHYA-s3YoeAgtP4CmGCHauK3YhgPH8HbnUvAGqx5VFJ3d
7PwaBNcKbJRjaYyID6rmkOaxM2mRFrV723foGnX-mVe0IlGCXLStu08u6jAnsZ3vsE8A7wrD
duLDvESBDFeCLM2trfv0LP3QfIw-zKqTacdzXqWkIxvcdh8KoCDT3Lkgwik5I2g1--E++U+6
+BVnHW87arq-B+2++9k-+++C++++J2JBI0xpPaZoAGtYNaoxY23Ckn+EFFq57eJd7-Ngq00T
c4frPBd62OUhWMWV0nOsuPGlQCr6AJ+YPg6Ji-tfG7moYXLmmDtjtjyz+O7lwf0QcD53XsAE
HSClFqCZxtCSfKQ9q-frmr4d8Zr50OStsSwE8Kao2bszaQzSX32ma0ax+NqNHk3yTppZLCve
KwF8ktLofXg-GNY2EONZ8Q+E0dIVnNFV71V6QkhwJlXr4kJhjy6PIvX64QGpSVEdcPEznAK8
msruc5+kULpcNTXrr5PrP+xSiAl6laF3Ah-wqyfhPU28Irs+IOKUvqFSs7R-+ycE6T9cUep-
S9Oqtj3HslrTxCkuyB2vTXutiuE3foVx414BdKphOMGEHxhgHW4pi4S98nfQz6WvCi3kAixH
hYuOE15m2pabYPzusF3XKsHEDp-9+kEI++6+0+1JQYsWAzhwb4+-++-g+k++2++++3F3HJ+j
Er-gJ4JnR0tmNLCZIv3Ckn+EDHSJqYW636aRXcnRqUoE2kDk0qlZX6HISABGVrXgOaLVBu6g
zdGCX72uV85eQSTUp0pZsdmLmvhrXVrb1U-UH2-gQKmTDOx5-C3Wcp3wtjLfbzar-+5xBhW1
Domt0tFe5ExugBOGtkWuWnTW5+yr9vcB4vpMm2OzBBANdl8TnpwPbSvtTrHhHH5LY4RgbghT
CaVo4NaPnmzI81jRTGk3wYmeXJmqb+BNbYlnDEAToCZ4dYCTE+4GORZNRq+PyFN3EyYHp1Fr
SNDiGAI3qzu6HIb1V9kgmf8XQJ3KdX6-BsIl6GwsMnyTiJY3r7FJ2TnGq-n6h4-pm0bVg+VW
QpEJlrlpcb9K+AYdY-FtK6--HP2hUGdaU3MggEO-qxs5PdAORpl9BaeV+hU-6I3QLm5KV8wP
l-o-4Sw2j8E37esony2Fvi+-bUXrw2nSKxULr+o0liCyukfi6U5TI2g1--E++U+6+7BlHW7G
ggGvBUU++8QK+++A++++J2JBI0x1I2kiI23HvJVPPm973LviYSMzb4US3YwM-XlvGKkt2U2w
Us8-M-lq30KXcfi+qbFLcOteAukpzrrDCJJ+BxVnKIJt0j81ivfeL9tnyuc9fFlopibZwqTD
bmbhN9sEgOG5kYfvz3Zo6uoJGqbfA3AuAFi9ClxkjHAOHWSXEODrQkwq8Yp-O9iFCPWJgd1t
EvWKE0c85OzkLl1fRGcRmMtaBlwusw45EThiq5b58x3a958F+TxScIVG-WiIY2ck0sV3aWex
704oCurg5cmbhxA7PRAWsypS3nUHx7xevLKxLeUebYviSeyjqsDP5eWxa6qkEMtAy2lJzT-i
A0-V+0Scf6ppJInE79SGv+z0hJZ7nQx-ImtRYKh9gad8BidyEn+FdEWs3uZ8ejWQDLzqWTH5
FZhrv4QILIIpL9avvIryq4cqaqSLdp+QvKaRQHswh44-HXhZB8lnssnPfWIgH+uRQRdaUqhb
fDa-rWFm+MDFw0rIqiBy1s3s1mzPsz4UBzokbckuNvJrgq2LJViRMA9JsOszb27aZrJzm2DO
eXmRbppuwJB2e4PGt+kGsEFMZlQl+WL9VY-K6BM9EZrd-dsXax1JkFUxvEyjFr+3zkvz2UG5
pJn47iT+eeGD63t2J+Z9aJx4oMD0-RlVHN552ZFG7mXiJG6Ha4yDU0+-Ewn+WU-CGPGMgVTZ
B9t0FZwjHBI6LDUa4KYLQPe6IeCL86N2M1rbU03G4YwEWfFDuiEG5U6G1DISh43j3hPP-3nd
YQ0fjXo+a4lipOzcTlFpNuB7ZlFPZOZItDj2BpaKdAhDTjRp8dPqgBojjdDdiaDEyszisW-b
VOhsadR741dIRXLucfDFmUQrWhvpgJ1rkTKmuftAwQxgR+1pIApojDGfNK69QsYe258NSAnh
fnvqIGHmL4nzqKkorfHyFRqcfOref+G4wg4iHCusHMInDhOZAnyyCHt1XjbCJfBCi+8P2Heq
IodcLOiI3CxZhAtzCVOm3at3fX8AK0KmV83DUp7Aboe3KHIJNhJIaDoz3PuM0XCgq4xBVR8N
rtw87G5TYUendp8VaUbJFA-rpLulPy7V0hfHlip5qMLjxmzIcXPf1zzFaw-Tfe1tgTYxnepD
VkZ5gujvThWyuLQyH5erC9uON+4ek81l7e2RVAWUNkaC-3WbG4o6WZm8xB1Gypr9AsomojTz
CcfmXFlkrPRXh1mPmxnGSRetwrEzWVc+EtBbCBOrRRtVhxP712IFYu6J8qZs3zFU+1Ar3v31
MxR8veLiX97AbOknCC7kDGDn-Me8-J8E-clo90jvUEM28iRFHOaf+wb+vKJf612cKlj0I2i2
VEWG2Ebm0bE60dpWT5UzZkoOK7-1U7D5asr9c3nXB+HUN7fOgWfIEWTMVcelRNUL1Yr2LM6g
E43gEs+Jt9rAIOL8G-KEaOkuIFMXi8qs8iM4FG4rJ8WFfC62E7CFe+OTuCEK8oP3v2YWMmk2
d3L0JGElKthHYUQxAUZqKfXhjlrqfziRxb+uS+yrUx2Awx7Vkitgcf3Q3fP6HJOCprGvxiff
Q+kPWiTwN7sbi8bZ-baXo19Zke-Qp5MhMyR-91EX2ucTwwOOX9fDjS6ok6lB75TME+y+auH7
GEtJFUZ86YYD9v1WYSayTUb5-EQjLpRc7NbS5zObpDKichOVs5PI3jypIbDIYNuWlut8o6V4
9omVYwOCvJ4OIzUxqkC-uItd2xdp+mNAVtaIImY4LitZ2yW64c90hIhcJw11xZeY0Q2EMkcp
HZltqthqFbT18HZnzZZb2angSMMKQEFoEMrUQAZUF4Y+vD8agTSctKx+Lz1iQO3PIq-GKfmt
F7LY1tCnv8az11ES0RPTvzeH5cTfnRASIjAv9GcduBP4lVn0dKm+CZlLUhZcM0uL0Ugufzgf
GW3x2HHdLOoABxuLKaQvWSSIZJGd0qE3OwSGl4CxxRfHSj-iLMyygvhS1PtHytvBbNcl7mO+
goqaq1kqWiNRdJoav1IpXX1q+w-p5evY6+d7d6pnhKNE+jZK0Ru2uNo+5gJw5O5a+w7O2mhA
yQHfqxpqclQ-jBDsrDM4jQuIkzDxoy2tiW8GtqHn0chd9j3Jb8fsDuWpK-hRHXoT8uV4OfBG
43MeF6hw7LOIVjg2fNnsXavz5YOCtubtrPwCCcCzgTYzz5vn2pDAIzbeTyI3J6kADI7dtGVo
JHgH7J8nV9bty2XcdeClvsAzTfukGaJoU87OjfVRTZHInvvYyBBSEgL5fXaI86oChJ+ltcYI
ab8sK0Dnmlw7OCzbLLDzuKabTW4mBdS9E2qCT82dNy2uZr8Utfb6hpzR19g4bzKfnpWBYVur
4vbajhJRFLwuq-t+ggHYV6JGHoH2NPlqNHU3f+pz+SAaJCKndIv2UUBPw6WIk0Vf64xlg0fb
Slnq5YlhHvZezXADz+35vJbZ2+gaL69kfuT1hxDqN1cPhmQrF6TzT-f+BLeOdX9pCDXWxTB2
i58e5RS2QdNNoPsMM2NV64u4l43-b7Vl3i31Zx9r7hsnIPnXITFccdU3mdbQ1Pi1USyVXiI2
ZgsoVZYlWgJP7+bkl7l0JR-Xsz1ZfrIFbJP5sTLt-HNk46ndem-3IqxDFPD3aJei57KTNJ6P
VSxj3l3H1iJNyEt-OXXyac7rdDorEcnKJl8dsyszjFhnhNoraszK4qSXlfh8i0xrEeaBiRE6
kNhqTvVX1+rc2ph3EIMXoHoorzqbJkXFcHv9oxY9nH6iHC6rGQ3HPbxp6N8CGQDFP+ET5evy
SnwKeH6o9YBnKEqhG8861oLsBcqPTUBEGkA23++0++U+y5FC6YCvmj7I-+++XUY++-++++-I
FIpE9oBkP3FZQrEiN5-mZJNhPy6s2DuQZTcTtbcb+JKOhjgFp7BOcBhc6L0ILizHJGMlkHdX
tqk5GV5zzQNCEUBodHoY3AQSnwgnnwm2gtYWOUDRX2ydBdqn9qRTQYrpqFTjVMZ2ffIDHljx
P-X53IftSD6UpJ9PFGuMiE2acC3KEINo+vPqy4PbJ4pzaw-3ACYzvSlPdaFAYplFuAav9CDI
BBQWEOJhS5m7SVrUMu96weMBL6eI0JDhTBrjh31hXC68fKzlvzIYn7ovE2pgLH290bxq-v+a
anM8c45Dqa6lAIm862F54S5gbLOCHfe82YChwwqd0w25xqUR0otmsM6f5-UdqAUQMdbn--+u
YDWQ2vp+INd+WG9AQl5PqlcsysSqrLrD4p8hGIfjtJi7VBxsN1-RI2JzOTWB+eG4Dvlz5Lpj
3IMxeOfPDEl2djPm6VHO2-3Hjn5Q3BgBjxHMsyYMULRVqBzhvSxEvU5HYB+tgstGfibO4bP8
2HMeYUtgeomt-3N-E5TAmkEi1XCM1rLOViQkabuGHSj+GI7fmRMaWEbb5O-jaJFKTYIILZ8f
BZvwI787C4BhPn0CyWzRwG0A5YMpKgE2Yq1x+1YjU28Npn+8dqqcN1ljCu2aJk8237TjJ2Zc
HWTDzNMZ2yUwXX2lDVE51rS17nmFm0mpNdeuyooOd+2cyazC388be7OtWWbeAo-KV52msxGF
AaU3A0EPG8Y-4ltBb67ZnUp10A4k7RLc4JeaXfp66ULlEYegEo0hE+ecRGjMiOi6lmrQR9mh
RRZh3PaeshlxVDqhDyqCbeD1o3IFyew629+MCLaJCAdcX1mnm4B+gkruUjEUJTPfRgz3yN5N
mguiXjUTny4YTq-NnfF2REWAyVly6o4nJ91tlW5dCcPKBDaNk7qtaUD6XgxwgCG25CYPtQhP
OBfLJYbJ1dtTLK3xL+R-2sCwj4YJVUj4rI8RQgqGmaJVCN4zUqHxV9o3FHIyt9nt6Lwgxw-7
eZ5kyaXzYT8g8sKVPyPYZDS66GSvWl0HO9qH7959tfITxg9Lin2OvhtBkp3Iqht4xpViqeUs
qsVa0xOAQvWssxUfxEJ2nsD-dO3emEEqEYT3KHuTIpLGPbylB8jT6v8YJNR0PaSqBnHwAj61
eJPdkOaCIAnZLgQ08zlIUFLtgE89pkD1MagohablCWNagHhFIkZKeVmP0WEzO6HtudwkeLQz
u+uy5v16cdDaFhgOgijxPBjx-Aiifcs7hVqAcazUocjGxeKIzhelZ3kl+cSIVaMlQKMI07nP
IXq5n8VKuPKr1M6+Wf64ZSDMgOoRQ9Ckhlz+NTzqGxzwEp8L25bPgWISpJm-GkqcdyZcz3af
QGJSOuqv5mT+eeVdvDxpp9RH9aS2Ewkd2LaqPmHzks7JKJWkAwySTMVN8LlAeAPqX7hepOYa
6O7I4sL3W99TGThxBtzr5mR1iQ6qOeZFyrP+2MQJVNwdqCReYlIB-DPmTp-9+kEI++6+0+0m
QosW+D66u0I-++1Y+E++2++++3F3HJ+jEr-gJ4JnR0tYPqNBY3xDkX+IlRyLv9h+a6UlTE+q
-+KN12EZD7FFsQdcZvM9s8SrdtDcmqzbr1z9uJrppP4YEiVp45FNAkluf-24TG04HO+4k+Dg
2-U-Xw+H4aCc0REnp-F6UFTINY+4n623w+cgUHTAjEATE9NLdm37OutamPIYiTBy6QZq0y74
***** END OF BLOCK 1 *****
*XX3402-006132-281197--72--85-22653-----CPLTEST.ZIP--2-OF--2
49MYCPyIhRWeYvZrrpGfz8wEPuWSuAI7HBrxBMbKhEu1A3WBGFvw+GOw59VPg7NvFKL9mYsr
LwPTEoaX0h2hGkG7lOPOXSGbwUwbaJaS5n9u3enNPbIWzCTwfxO6CXSrPLSq6xy7bcjDciNR
p4eskSEgMa3mHOIZ7NZD2tAKiJKOV3ZTQvWOOqO0urmTQfhbDh8KgAI9ImyaLDCXg27XPpN7
vx5v+J-9+kEI++6+0+1vQIsWo93GuuU1++-00+++2++++3F3HJ+jEp-AJ2JHJ0tEEJCJJZpj
sXcETIuZzcRFvkD78UrhDc7u7Edo4mo2Zc7ubvMmWEaKX7pfCp08yCwvHg7rJxdxkVaDnwkQ
blb1qJEFhMNqlgRIayPppTJJfeayjb7SaFUe4KgTQ1JSNlFL9qgxAMnX0UwInhRL4HfF73QI
Cf8JNNkORmIGr4z+wqjIOE6T2YIKxkrUIeFAa7rZuxvW6RGIsUf1xebK78KDwfq0wKjD14N8
9UvsLgqjVK6aOnsSQ7nysxjUCoU3i+XPUmWAbUOXTagQ1W89H2LGVAriw9PASdO9q1+dc1rY
3SfwBCqwfxA4HA7cz2Y7Bit33IQJOdD2VDAaoDRA8iiz7+cDeKI11lt+AV3bfC5oVZ5rhHrg
qQmDi6W7dYIS64QqOQR-bvQk0gQBqDYsnaN2HOs200ZiDuWGs6t5Yus5AqF2tr4AVDdEPXmp
SWys6wqQeVLHh1XjoW+BEB5zQuNcUUghQlJHl1B+ZcFlAiLI-qfWk+iUHxOEIUCqD7cI+6iQ
4sMIUa29eX2nX6kTQwlRIkLlL2eI30+eY77evELPsWXmwE1rHKRXImtAtKrhuhkSmjvK5PQ5
YyWoR3KKzUwG-0mKEhQHFfVABJOSKSOlcCYOQq4uWboKxoPQb6LRlRYSAztX2cuu7t5ZJ2i2
Eq9ItzEP0NeZUgrK-NB3aqVBYnwdj+VrZ+0esvAQf1UVFzZ4yS6-LDjdJJ7hsbuxzj+jr+K-
WoLSrbhZs37l1r+gCPSGghQwiDkAYhI9yu1cej35nhm1zvbT2mSdFgSvAzgntJZP0YDTnQIi
vl-19enn20zFNWR7MdTibFxqkfTK2+CrxlphOswSgRqoIL4q3es58wMtT4bl3Jbf9l-BSfpP
ExK00K788IvnqMmeGbPvUpJMzF4F-TJftGF+PKRqBhHwej6H9uz8s-91XeExlVkvz-9+ijkS
kD9pl91NOfJBKbsCWNZj9q-qXXicEYoZYkQNsLpp9tHISSmpSxxDJ4HNGLCXPEzNxLuUPzx+
NTLuiQ+qjI5o1MffFKzvILZzPJd79Va-Ioa14wiQMtxG65-XKzI4AeCw8ahb2kE-Z4oB8VQO
Q5VFE4ANPzweJDDPfr9nHoJRISFged3spbAZ9oR2jMk5kwx4HR5WFuBpyzg9g--5WBrzniNq
miKIQ6Ut7G9DxcDY9m7Mm160tSIoDvVN9zkNIMrX4MpeiLw9YOKXlv-wcimHjvQLHriF8Knu
fH1O3WQ1qD1HzkhczkJEGk20AUgI++6+0+1NQosWEuv3CEw-++1Q+E++1U+++++++++-+0++
hc2+++++J2JBI0xpPaZoAGtkMLBEGk20AUgI++6+0+1MQosWWNhxUHE-++0w+E++1U++++++
+++-+0++hc2v+E++J2JBI0xpPaZoAGtYNapEGk20AUgI++6+0+1JQYsWAzhwb4+-++-g+k++
2++++++++++++0++hc4P+U++J2JBI0x1Q4lINLBo9b7ZQp-9+E6m0lE++U+6+7BlHW7GggGv
BUU++8QK+++A++++++++++2+6+0qUGY2++-IFIpE9oBEH0tEEJBEGk20AUgI++6+0+1sR2sW
Evj8wZE2++0C0E++2++++++++++-+0++hc471+++J2JBI0x1Q4lINLBo9aFkQZ-9+E6m0lE+
+U+6+97nHW6+wUXc7E2++CE-+++E++++++++++2+6+0qUEgF++-IFIpE9oBkP3FZQrEiN4xa
I2g-+X693++0++U+yr3C6h0lIiic+k++EUU++-+++++++++++E+U+9O-LV6++3F3HJ+jEp-A
J2JHJ0tEEJBEGkI4++++++Q+-k0e+E++B-M+++++
***** END OF BLOCK 2 *****
[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]