• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 249
  • Last Modified:

function that retrieves the state(maximise,minimise,restore) of an open window depending on its class

hi there

i need a function in delphi where i can pass as a parameter the name of a class e.g

"Notepad", and get a result back as a string or integer that tells me whether this window that belongs to this class

is mininimised,maximised or restored

for example

i open the art.txt notepad file and i minimise it

i want the fuction to return me the following:

minimise=0
restore=1
maximise=2


urgent help needed

thanks



function Get_windowminimised(const thestring: WideString): long;
var
  foldercaption:cardinal;
  foldercaptiontext,foldercaptiontext1:array[0..255] of char;

begin
     
     
      foldercaption := FindWindow('myClass', nil);
     
      GetWindowText (foldercaption, foldercaptiontext, 256);
        isminimised     (blah)
Result := ismin or is max or is restored
     
End;
0
nikolaosk
Asked:
nikolaosk
  • 3
  • 2
1 Solution
 
Hamidreza VakilianSenior iOS DeveloperCommented:
Hi!

You can use GetWindowPlacement Win32 API function:
I wrote a function that returns the status by a string using GetWindowPlacement =>


function GetWindowState(Wnd:HWnd):string;
var WPlacement : PWINDOWPLACEMENT;
begin
  GetMem(WPlacement,SizeOf(TWINDOWPLACEMENT));
  WPlacement^.Length:=SizeOf(TWINDOWPLACEMENT);
  if GetWindowPlacement(Wnd,WPlacement) then
    begin
    case WPlacement^.showCmd of
    SW_SHOWMAXIMIZED:  Result := 'Maximized';
    SW_SHOWMINIMIZED:  Result := 'Minimized';
    SW_SHOWNORMAL:     Result := 'Normal';{or restored}
    end
    end
  else
    Result:='ERR';
  FreeMem(WPlacement);
end;


Programmer-x
0
 
Hamidreza VakilianSenior iOS DeveloperCommented:
Integer Result =>

{Maximized=2,Minimized=0,Normal or Restored=1}

function GetWindowState(Wnd:HWnd):Integer;
var WPlacement : PWINDOWPLACEMENT;
begin
  GetMem(WPlacement,SizeOf(TWINDOWPLACEMENT));
  WPlacement^.Length:=SizeOf(TWINDOWPLACEMENT);
  if GetWindowPlacement(Wnd,WPlacement) then
    begin
    case WPlacement^.showCmd of
    SW_SHOWMAXIMIZED:  Result := 2;
    SW_SHOWMINIMIZED:  Result := 0;
    SW_SHOWNORMAL:     Result := 1;
    end
    end
  else
    Result:=-1;
  FreeMem(WPlacement);
end;

Programmer-x
0
 
nikolaoskAuthor Commented:
hi,

your code works....

but in this function of yours

function GetWindowState(Wnd:HWnd):Integer;

i need to pass the classname of the window that i want to see if it is minimised or not, as a parameter.can you change the function a bit?

 
0
 
Hamidreza VakilianSenior iOS DeveloperCommented:
... Can you explain more?
0
 
nikolaoskAuthor Commented:
hi i will try to explain as soon possible.

using the code below i can pass in the following function


GetStateOfWindow(param1,param2)

param1="CabinetWclass"
param2="My Computer"


and get the state of the window.
what i need is a similar function that i will be able to pass the same arguments and force(and not check) the window state. for example i open "my computer" window and SET the STATEof the window to restore or minimised.

some minor alterations to the code below i think

thanks



*******************************************

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function GetStateOfWindow(const thestr,thestr2: WideString): Integer;
var
  h2,h1:string;
  wnd:thandle;
  WPlacement:PWINDOWPLACEMENT;
  begin

  try
    h2:=string(thestr);
    h1:=string(thestr2);
    wnd := FindWindow(pansichar(h1),pansichar(h2));
    GetMem(WPlacement,SizeOf(TWINDOWPLACEMENT));
    WPlacement^.Length:=SizeOf(TWINDOWPLACEMENT);
    if GetWindowPlacement(Wnd,WPlacement) then
      begin
      case WPlacement^.showCmd of
        SW_SHOWMAXIMIZED:  Result := 2;
        SW_SHOWMINIMIZED:  Result := 0;
        SW_SHOWNORMAL:     Result := 1;
        end
        end
        else
        result:=-2;

  finally
    FreeMem(WPlacement);
  end;
  //end;
  end;



procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
x1,x2:string;
begin
x1:='My Computer';
x2:='CabinetWClass';

      a:=GetStateOfWindow(x1,x2);
         showmessage(inttostr(a));
      end;

end.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now