[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);

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