приложение во весь экран

[Михаил Юрьевич]

Подскажите,можно програмно с помощью делфи развернуть flesh-приложение во весь экран?
Смысл задумки такой:
В " Мой мир@mail.ru" работают flash-приложения, почти у всех приложений есть иконка "Развернуть на весь экран"
Мне нужно не на иконку нажимать,а програмно через делфи,ну например когда игра будет в фокусе я нажму "Hotkey"
и игра развернется на весь экран

[dmitriegorovih]

Вот так вы её развернёте

form1.WindowState:=wsMaximized;

А вот так сделаете нормальной

 form1.WindowState:=wsNormal;

[DIgorevich]

dmitriegorovih, Вы текст поста читали? Речь идет о флеш-приложении на сайте.

[GunSmoker]

В общем случае - никак.

Только если задрочиться на конкретные флешки. Типа, ты знаешь, что вот у этой флешки, есть кнопка распахнуть воон в том углу - ты подводишь к ней мышку, щёлкаешь и возвращаешь на предыдущую позицию (программно).

Потому что никаких кнопок (в обычном понимании) у флешек нет - есть интерактивное окно. В котором дофига всего происходит. И кто его знает, что там флешка рисует.

[dmitriegorovih]

dmitriegorovih, Вы текст поста читали? Речь идет о флеш-приложении на сайте.

Опс! извиняюсь а я на сонную голову сначала не понял

[Kotofff]

Компонент которым показываешь (проигрываешь) флеш-ролик в программе выравнивай на всю форму, а с самой формой можно так :

procedure TForm1.FormCreate(Sender: TObject);
var
  HTaskbar: HWND;
  OldVal: LongInt;
begin
  try
    HTaskBar := FindWindow('Shell_TrayWnd', nil);
    SystemParametersInfo(97, Word(True), @OldVal, 0);
    EnableWindow(HTaskBar, False);
    ShowWindow(HTaskbar, SW_HIDE);
  finally
    with Form1 do
    begin
      BorderStyle := bsNone;
      FormStyle   := fsStayOnTop;
      Left        := 0;
      Top         := 0;
      Height      := Screen.Height;
      Width       := Screen.Width;
    end;
  end
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  HTaskbar: HWND;
  OldVal: LongInt;
begin
  HTaskBar := FindWindow('Shell_TrayWnd', nil);
  SystemParametersInfo(97, Word(False), @OldVal, 0);
  EnableWindow(HTaskBar, True);
  ShowWindow(HTaskbar, SW_SHOW);
end;

Проверено. Работает.

[Михаил Юрьевич]

Спасибо! попробую