Главная страница
    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.45 MB
Время: 0.006 c
7-13836
Nubie
2002-05-21 02:56
2002.08.05
???Как запустить программу???


8-13732
Алексей Петухов
2002-03-25 14:20
2002.08.05
яркость-JPEG


14-13765
AL2002
2002-07-08 19:17
2002.08.05
Можно ли защитить свою прогу?


8-13731
Fred
2002-03-23 09:38
2002.08.05
Codec и для MediaPlayer


1-13689
Mis
2002-07-22 23:49
2002.08.05
Как в переменную типа Tbitmap загрузить Jpeg-картинку?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский