А я вот попробовала написать Application.Minimize в методе OnCreate, но окно-то при запуске программы не сворачивается (но уходит вниз Z-порядка). Хотя и не должно сворачиваться, вроде бы. И в справке так и сказано: "не путайте метод Minimize всего приложения с минимизацией окна".
Потерю активности кнопки сворачивания можно "вылечить", обрабатывая в своей программе сообщение WM_SYSCOMMAND. Вот так, например:
Код:
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
............
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Minimize;
end;
procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
if Msg.WParam = SC_MINIMIZE then ShowWindow(Handle, SW_MINIMIZE);
inherited;
end;