05a5e2c6a2
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@639 8e941d3f-bd1b-0410-a28a-d453659cc2b4
113 lines
1.9 KiB
ObjectPascal
113 lines
1.9 KiB
ObjectPascal
unit ufrmParent;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs;
|
|
|
|
type
|
|
|
|
{ TfrmParent }
|
|
|
|
TfrmParent = class(TForm)
|
|
private
|
|
{ private declarations }
|
|
protected
|
|
(*
|
|
{$IFDEF LCLwince}
|
|
procedure DoShow; override;
|
|
{$ENDIF}
|
|
*)
|
|
public
|
|
{ public declarations }
|
|
{$IFDEF LCLwince}
|
|
procedure WindowResize;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
{$IFDEF LCLwince}
|
|
procedure TaskBarHide;
|
|
procedure TaskBarUnHide;
|
|
{$ENDIF}
|
|
|
|
implementation
|
|
uses uDebug
|
|
{$IFDEF LCLwince},Windows{$ENDIF};
|
|
|
|
{$IFDEF LCLwince}
|
|
function TaskBarHwnd:HWND;
|
|
begin
|
|
Result:=FindWindow('HHTaskBar', nil);
|
|
//Result:=FindWindow('SipWndClass', nil);
|
|
//Result:=FindWindow('MS_SIPBUTTON', nil);
|
|
end;
|
|
|
|
procedure TaskBarHide;
|
|
var H:HWND;
|
|
S:String;
|
|
|
|
begin
|
|
GlobalLogger.Log('Попытка скрыть TaskBar');
|
|
|
|
H:=TaskBarHwnd;
|
|
if (H <> 0) then
|
|
begin
|
|
S:='...закончилась удачно';
|
|
ShowWindow(H, SW_HIDE);
|
|
end
|
|
else
|
|
begin
|
|
S:='...закончилась неудачно';
|
|
end;
|
|
GlobalLogger.Log(S);
|
|
end;
|
|
|
|
procedure TaskBarUnHide;
|
|
var H:HWND;
|
|
S:String;
|
|
begin
|
|
GlobalLogger.Log('Попытка показать TaskBar');
|
|
H:=TaskBarHwnd;
|
|
if (H <> 0) then
|
|
begin
|
|
S:='...закончилась удачно';
|
|
ShowWindow(H, SW_SHOW);
|
|
end
|
|
else
|
|
begin
|
|
S:='...закончилась неудачно';
|
|
end;
|
|
GlobalLogger.Log(S);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
{$IFDEF LCLwince}
|
|
procedure TfrmParent.WindowResize;
|
|
var WR:Windows.Rect;
|
|
begin
|
|
if SystemParametersInfo(SPI_GETWORKAREA, 0, @WR, 0) then
|
|
begin
|
|
{SetWindowPos(Handle,HWND_TOPMOST,0,0,WR.right -
|
|
WR.left,WR.bottom - WR.top, SWP_SHOWWINDOW);}
|
|
SetWindowPos(Handle,HWND_TOP,0,0,WR.right -
|
|
WR.left,WR.bottom - WR.top, SWP_SHOWWINDOW);
|
|
end;
|
|
end;
|
|
|
|
{
|
|
procedure TfrmParent.DoShow;
|
|
begin
|
|
inherited;
|
|
WindowResize;
|
|
end;
|
|
}
|
|
{$ENDIF}
|
|
|
|
initialization
|
|
{$I ufrmparent.lrs}
|
|
|
|
end.
|
|
|