| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание апплета Панели управления. Помогите!!! [D3, Win95/98, WinME, WinXP]

Zak Tell ©   (2002-07-22 15:34:00) 

Добрый день.

Помогите разобратся с .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);

Помогите!!!

---

Almaz   (2002-07-23 00:23:00) [1]

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

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

Удачи.

---

Zak Tell   (2002-07-22 20:06:00) [2]

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


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

---

Goblinus   (2002-07-22 20:04:00) [3]

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

---

Zak Tell   (2002-07-22 18:41:00) [4]

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

---

Наверх