[ryderx34]

Нужно скрыть приложение с панели задач.
То, что работало в Delphi 7:

Код:

ShowWindow(Application.Handle, SW_HIDE);

Код:

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

не срабатывает в Delphi 2010
Кто-нибудь сталкивался с такой проблемой?

[PhoeniX]

Забавно, у меня работает...

[ryderx34]

А у меня нет. Если скрывать в OnShow или OnActivate формы, тогда работает, но это не подходит, т. к. приложение успевает появиться на панели задач прежде чем выполняется этот код.

[NumLock]

dpr файл:

Код:

program Project1;

uses
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  Application.Run;
end.

[ryderx34]

NumLock, именно так я всегда и делал (только без ShowWindow, в D7 хватало одного SetWindowLong) и в этот раз пытался сделать также, но в D2010 это почему-то не срабатывает.

[angvelem]

Сообщение от ryderx34

...только без ShowWindow, в D7 хватало одного SetWindowLong...

Сообщение от ryderx34

То, что работало в Delphi 7:

Код:

ShowWindow(Application.Handle, SW_HIDE);

Интересно, как это?

[ryderx34]

Что именно? Обычно я писал так:

Код:

begin
  Application.Initialize;
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[angvelem]

Сообщение от ryderx34

Что именно? Обычно я писал так:

Или так, как на самом деле?

[ryderx34]

А какая разница (кроме переменной WL, от использования которой ничего по сути не меняется)? Или я всё-таки не понимаю вопроса...

[angvelem]

Дальнейший разговор слепого с глухим бессмысленен.

[NumLock]

запусти сначала готовый exe, потом сам откомпилируй:
http://data.cod.ru/115992

[ryderx34]

И? Я уже дважды писал, в Delphi 2010 это не работает!
Это не работает начиная с Delphi 2007, и не у меня одного, так что не надо писать "у меня всё работает":
delphi.about.com/hide the taskbar button:

This code no longer works with Delphi 2007!

[angvelem]

Посмотри здесь

[PhoeniX]

Application.MainFormOnTaskBar:=.....

[angvelem]

Не поможет.