Solved

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

Posted on 2006-06-29
5
217 Views
Last Modified: 2010-04-05
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
Comment
Question by:nikolaosk
  • 3
  • 2
5 Comments
 
LVL 14

Expert Comment

by:Hamidreza Vakilian
ID: 17014755
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
 
LVL 14

Accepted Solution

by:
Hamidreza Vakilian earned 250 total points
ID: 17014773
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
 

Author Comment

by:nikolaosk
ID: 17016096
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
 
LVL 14

Expert Comment

by:Hamidreza Vakilian
ID: 17016730
... Can you explain more?
0
 

Author Comment

by:nikolaosk
ID: 17017823
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

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

808 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question