Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.05;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.82 MB
Время: 0.024 c
1-13652
DKalinin
2002-07-23 13:05
2002.08.05
Подскажите, пожалуйста, как получить список файлов в директории.


1-13679
Denisco
2002-07-22 17:16
2002.08.05
Мне нужно сохранить все изменения в программы в фаил.


1-13700
propeller
2002-07-22 23:53
2002.08.05
формы отдельными задачами на taskbar е


3-13561
AM
2002-07-16 09:16
2002.08.05
мастер – таблица


14-13779
RuslanJ
2002-07-10 14:13
2002.08.05
Добавить страничку в многостраничном блокноте





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский