[depode]

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

[mak-karpov]

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

Код:

1	ShowWindow(Application.Handle, SW_HIDE);

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

Код:

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

[depode]

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

[Nyctos Kasignete]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

program Project12;   uses   Forms,   <font color="DarkOrange">Windows,</font>   Unit12 in 'Unit12.pas' {Form1};   {$R *.res}   begin   Application.Initialize; <font color="DarkOrange">  SetWindowLong(Application.Handle, GWL_EXSTYLE,             GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);</font>   Application.CreateForm(TForm1, Form1);   Application.Run; end.

[depode]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

program Project1;   uses   Forms,   Unit1 in 'Unit1.pas' {Form1};   {$R *.res}   begin   Application.Initialize;   Application.MainFormOnTaskbar := True;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

Поставил

Код:

1	Application.MainFormOnTaskbar := False;

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

Код:

1	ShowWindow(Application.Handle, SW_HIDE);

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