Как заставить приложение запускаться в минимизированном состоянии 2
|
Объявление: Потомственный программист в седьмом байте избавит от System Polisy и Access Denied. Снимет пароль. Наворожит номера кредиток. Быстро, анонимно, с гарантией.
|
// Проверьте глобальную переменную CmdShow для того чтобы определить, в каком
// состоянии запускается приложение, и модифицируйте ее как вам необходимо:
procedure TForm1.FormCreate(Sender: TObject);
begin
if CmdShow = SW_SHOWMINNOACTIVE then WindowState := wsMinimized;
end;
// Hапример, если необходимо запускать приложение либо минимизированным, либо
// максимизированным, используйте следующий код:
procedure TForm1.FormCreate(Sender: TObject);
begin
if CmdShow = SW_SHOWMINNOACTIVE then WindowState := wsMinimized
else WindowState := wsMaximized;
end;
|
|
