Delphi World - Отображение главного окна приложения на переднем плане
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Отображение главного окна приложения на переднем плане

Автор: Dimka Maslov
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Отображение главного окна приложения на переднем плане

Зависимости: Windows, SysUtils, Classes, Controls, Forms
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        29 апреля 2002 г.
***************************************************** }

procedure JumpUp;
var
  Info: TAnimationInfo;
  Animation: LongBool;
  hApp: hWnd;
begin
  hApp := Application.Handle;
  if IsIconic(hApp) then
    Application.Restore
  else
  begin
    SetActiveWindow(hApp);
    Info.cbSize := SizeOf(Info);
    if SystemParametersInfo(SPI_GETANIMATION, SizeOf(Info), @Info, 0) then
      Animation := Info.iMinAnimate <> 0
    else
      Animation := False;
    Info.iMinAnimate := nFalse;
    SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
    ShowWindow(hApp, SW_MINIMIZE);
    ShowWindow(hApp, SW_RESTORE);
    Info.iMinAnimate := integer(Animation);
    SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
  end;
  Application.MainForm.Repaint;
end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования