Текущий архив: 2002.08.05;
Скачать: CL | DM;

Вниз

Создание апплета Панели управления. Помогите!!!   Найти похожие ветки 

← →
Zak Tell   (2002-07-22 15:34) [0]

Добрый день.

Помогите разобратся с .CPL. Создаю апплет "Панели управления" следующим образом:

Исходный код
library peofde;

uses
Cpl,
Windows,
Forms,
mainform in "mainform.pas" {Form1},
uninstall in "uninstall.pas",
process in "process.pas",
remove in "remove.pas",
regedit in "regedit.pas",
repair in "repair.pas",
screendeath in "screendeath.pas";

{$R *.RES}

procedure ExecuteApp;
{$E cpl}

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

function CPlApplet(hwndCPl: THandle; uMsg: DWORD;
lParam1, lParam2: LongInt):LongInt;stdcall;
var
NewCplInfo:PNewCplInfo;
begin
Result:=0;
case uMsg of
CPL_INIT: Result:=1;
CPL_GETCOUNT: Result:=1;
CPL_NEWINQUIRE:
begin
NewCplInfo:=PNewCplInfo(lParam2);
with NewCplInfo^ do
begin
dwSize:=SizeOf(TNewCplInfo);
dwFlags:=0;
dwHelpContext:=0;
lData:=0;
hIcon:=LoadIcon(HInstance,"MAINICON");
szName:="Название апплета";
szInfo:="Описание апплета";
szHelpFile:="";
end;
end;
CPL_DBLCLK: ExecuteApp;
else
Result:=0;
end;
end;

exports
CPlApplet;
//begin
end.

Проблема такая: при запуске апплета на "Панели задач" появляеться кнопка. Как её убрать. Я уже и так пытался и этак, но ничего не помогает:

ShowWindow(FindWindow(nil,"Заголовок моей CPL"ки"),SW_HIDE);

Помогите!!!

---

← →
Zak Tell   (2002-07-22 18:41) [1]

Так что? Не знаем?

---

← →
Goblinus ©   (2002-07-22 20:04) [2]

В FAQ это всё сеть

---

← →
Zak Tell   (2002-07-22 20:06) [3]

> В FAQ это всё сеть


Нет! По крайней мере я не нашёл!

---

← →
Almaz ©   (2002-07-23 00:23) [4]

В обработчике OnCreate формы напишите:

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end;

Удачи.

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.05;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c