Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как свернуть? [D6, D7, WinXP]


mm0 ©   (2003-10-31 17:00:00) 

Зраствуйте Мастера помогите чем можете.
Есть 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;


mm0   (2003-11-01 00:23:00) [1]

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


DVM   (2003-10-31 20:21:00) [2]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо