fbpx

Como colocar seus programas no Painel de Controle

Como colocar seus programas no Painel de Controle

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on telegram
Telegram
Share on whatsapp
WhatsApp
Share on skype
Skype
Share on email
Email

Como colocar seus programas no Painel de Controle em Delphi.

Abaixo segue o código para seu programa no Painel de Controle.
Para começar adicione a Unit Cpl ao seu projeto.

Library Project1; {Muda de “programa” para “library”}
uses
Cpl, {use Cpl unit}
Windows,
Forms,
Unit1 in ‘Unit1.pas’ {Form1};

{$R *.RES}

procedure ExecuteApp;
begin
Application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
end;

{A callback function to export at Control Panel}
function CPlApplet(hwndCPl: THandle; uMsg: DWORD;
lParam1, lParam2: LongInt):LongInt;stdcall;
var
NewCplInfo:PNewCplInfo;

begin
Result:=0;
case uMsg of
{Initialization.Return True.}
CPL_INIT : Result:=1;
{Number of Applet.}
CPL_GETCOUNT : Result:=1;
{Transporting informations of this Applet to the Control Panel.}
CPL_NEWINQUIRE :
begin
NewCplInfo:=PNewCplInfo(lParam2);
with NewCplInfo^ do
begin
dwSize:=SizeOf(TNewCplInfo);
dwFlags:=0;
dwHelpContext:=0;
lData:=0;
{An icon to display on Control Panel.}
hIcon:=LoadIcon(HInstance,’MAINICON’);
{Applet name}
szName:=’Project1′;
{Description of this Applet.}
szInfo:=’This is a test Applet.’;
szHelpFile:=”;
end;
end;
{Executing this Applet.}
CPL_DBLCLK : ExecuteApp;
else Result:=0;
end;
end;

{Exporting the function of CplApplet}
exports
CPlApplet;

begin

end.

O que acha de nos pagar um Café ?

Se nosso conteúdo gratuito lhe ajudou de alguma forma em sua vida, ficamos muito felizes.

Ajude-nos a manter este site e expandir nosso trabalho, conhecendo o trabalho de nossos anunciantes ou fazendo uma doação.

Você pode doar qualquer valor  através do PagSeguro no link acima ou Aqui

Gostou do Post ? Compartilhe esta dica com seus amigos nas redes sociais.

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on telegram
Telegram
Share on whatsapp
WhatsApp
Share on skype
Skype
Share on email
Email

TALVEZ VOCÊ GOSTE TAMBÉM

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.