Как свернуть?

← →
mm0 © (2003-10-31 17:00) [0]

Зраствуйте Мастера помогите чем можете.
Есть 3d-игра, работает только в полноэкранном режиме.Надо как то зделать
чтобы при запуске она сворачивалась в панель задач(или пряталась), вообщем чтобы
ее небыло на экране.
Я это реализовал через Timer с интервалом 1 мс.,но проблема в том
ято она показывается на экране пару секунд,а потом только сворачивается.
Я так думаю что это из-за того что пока она грузится она необрабатывает сообщения.
Надо зделать чтобы "Как кликнул на ярлычок, так она свернулась(или спряталась-SW_HIDE) в
панель задач и грузилась не показывалась на экране пока я сам не перейду в эту задачу".
(:Это должна делать программа на DELPHI седящая в оперативной памяти :)

Вот, как я зделал через Timer:
procedure TForm1.FormCreate(Sender: TObject);
begin
t:=0;
Timer1.Interval:=1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var hh:LongInt;
begin
hh:=FindWindow(0,"game.exe");
if hh<>0 then
begin
ShowWindow(hh,SW_SHOWMINIMIZED{SW_SHOWMINNOACTIVE});
Inc(t);
Label1.Caption:=IntToStr(t);
Timer1.Interval:=10;
end;
if t>10 then
begin
ShowWindow(hh,SW_HIDE);
end;
if t=20 then Close;
end;

← →
DVM © (2003-10-31 20:21) [1]

Запускай ее сразу в свернутом состоянии, может и получится (см, например параметры WinExec или ShellExecute)

Непройдет потому что сначала запускается программа-загрузчик,
а потом она запускает Game.exe

Как свернуть? Найти похожие ветки