Как убрать програму с панели пуск ?

← →
kolj © (2007-08-14 10:39) [0]

Мне нужно чтоб форма програмы была на рабочем столе, но в панеле пуск ее небыло.

← →
homm © (2007-08-14 10:47) [1]

> но в панеле пуск ее небыло.

Закрыть панель пуск?
В стандартной поставке нет такой панели.

← →
DVM © (2007-08-14 10:49) [2]

Перевожу: Как мне сделать, чтобы окно программы отображалось на рабочем столе, но кнопки программы в списке задач на панели задач не было?

← →
kolj © (2007-08-14 10:52) [3]

to DVM спасибо , так будет правильно.

← →
DVM © (2007-08-14 11:07) [4]

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormActivate(Sender: TObject); private { Private declarations } procedure CreateParams(var Params: TCreateParams); override; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do ExStyle := ExStyle and not WS_EX_APPWINDOW; end; procedure TForm1.FormActivate(Sender: TObject); begin ShowWindow(Application.Handle,SW_Hide); end; end.

← →
Однокамушкин (2007-08-14 13:09) [5]

> DVM © (14.08.07 11:07) [4]

Во-первых, убирать флаг WS_EX_APPWINDOW из стиля главного окна не нужно - его там и так нет... Во-вторых, достаточно где-нибудь в начале сделать вызов

SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

и тогда не нужно вызывать ShowWindow при каждой активации

> Однокамушкин (14.08.07 13:09) [5]

> Во-первых, убирать флаг WS_EX_APPWINDOW из стиля главного
> окна не нужно - его там и так нет...

Да, действительно, не заметил.

> Во-вторых, достаточно где-нибудь в начале сделать вызов
>
> SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.
> Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

Можно и так. Есть еще и другие варианты.

Как убрать програму с панели пуск ? Найти похожие ветки