Delphi判断是否有全屏程序(2/2)

本篇文章主要介绍了"Delphi判断是否有全屏程序"，主要涉及到方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下： Delphi判断是否有全屏程序网络流传代码unit Unit1;interfaceusesWindows, Messages, SysUtils, Varian...

function IsFullScreen: Boolean; forward;
function GetClassNameFX(h: HWND): string; forward;

function GetClassNameFX(h: HWND): string;
var
  ClassName: PChar;
begin
  Result := '';
  GetMem(ClassName, 256);
  try
    GetClassName(h, ClassName, 256);

    Result := string(ClassName);

  finally
    FreeMem(ClassName);
  end;
end;

function IsFullScreen: Boolean;
var
  h, h1, h2, h3: HWND;
  r, r1: TRect;
  rk, rg, r1k, r1g: Integer;
  s: string;
begin

  Result := False;

  h := Windows.GetDesktopWindow();
  h1 := GetForegroundwindow;
  h2 := FindWindow('Progman', nil);
  h3 := FindWindow('WorkerW', nil);

  if (h1 = h2) or (h1 = h3) or (h1 = h) then
    Exit;
  if h3 > 0 then
  begin
    s := GetClassNameFX(h1);
    if (s = 'WorkerW') or (s = 'Progman') then
      Exit;
  end;

  GetWindowRect(h, r);
  rk := r.Right - r.Left;
  rg := r.Bottom - r.Top;

  GetWindowRect(h1, r1);
  r1k := r1.Right - r1.Left;
  r1g := r1.Bottom - r1.Top;

  if (rk = r1k) and (rg = r1g) and (r.BottomRight.X = r1.BottomRight.X) then
    Result := True;
end;

不喜勿喷，这是我自己花了很长时间才想出来的

以上就介绍了Delphi判断是否有全屏程序，包括了方面的内容，希望对Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接：http://www.codes51.com/article/detail_385980_2.html