[depode]

Кто нибудь сталкивался с этой задачей? Старые методы которые работали в Delphi 7, не работают в 2009

[mak-karpov]

Все работает!

Код:

ShowWindow(Application.Handle, SW_HIDE);

Только есть одно НО.
Если писать в OnCreate формы, то не работает.
Поставь таймер, интервал - 1 мсек. В OnTimer напиши

Код:

(Sender as TTimer).Enabled := false;
ShowWindow(Application.Handle, SW_HIDE);

[depode]

Не помогает, может у меня особенная делфи...
На седьмой всё прекрасно работает

[Nyctos Kasignete]

Отредактируйте главный файл проекта (.dpr) по такому образцу:

Код:

program Project12;

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

{$R *.res}

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

[depode]

Нашёл причину

При создании нового проекта, файл (.dpr) выглядит так:

Код:

program Project1;

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

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Поставил

Код:

Application.MainFormOnTaskbar := False;

Теперь работает

Код:

ShowWindow(Application.Handle, SW_HIDE);

Спасибо откликнувшимся! С вашей помощью разобрался.