Отображение главного окна приложения на переднем плане

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: 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;

{/codecitation}

Добавить комментарий