Hi,

ich möchte mit folgender If-Abfrage herausfinden, ob meine Anwendung minimiert ist und wenn ja etwas machen.
if (GetWindowLong(wnd, GWL_EXSTYLE) and WS_MINIMIZE) = 0 then Die If-Abfrage trifft allerdings immer zu, also auch wenn die Anwendung nicht minimiert ist.

Warum ? Geht es überhaupt auf diese Art und Weise, wenn nein, wie dann ?

Moin Nils,

so kann es schon mal nicht gehen.
Mit GWL_EXSTYLE liest man die WS_EX_xxx und nicht die WS_xxx Werte aus, ausserdem müsstest Du nicht auf = 0, sondern auf = angegebener Style testen.
Dein Beispiel müsste also lauten

if (GetWindowLong(hWnd,GWL_STYLE) and WS_MINIMIZE) = WS_MINIMIZE then Da hiermit aber nicht der aktuelle Zustand abgefragt, sondern wie das Fenster initial dargestellt wird, nutzt Dir das auch nichts.

Die Funktion die Du suchst heisst schlicht IsIconic

Zitat:

If the window is iconic, the return value is nonzero.

If the window is not iconic, the return value is zero.

Zitat:

Wenn die Anwendung minimiert ist, dann ist das Ergebnis <> 0

Wenn die Anwendung nicht minimiert ist, dann ist das Ergebnis 0

Dann müsste es ja so funktionieren:

markieren

Delphi-Quellcode:

var wnd : HWND;
    i : Integer;
begin
  if IsIconic(wnd) then
  begin
    m.Lines.Add(IntToStr(i));
    inc(i);
  end;

Es passiert allerdings nichts. Woran könnte es liegen ?

zusammenfalten · markieren

Delphi-Quellcode:

public
   procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMSysCommand;
begin
  if (Msg.CmdType = SC_MINIMIZE) then ShowMessage('Klein');
  if (Msg.CmdType = SC_MAXIMIZE) then ShowMessage('Groß');
  DefaultHandler(Msg);
end;

Diese Methode ist nicht allgemein genug, da diese Message nur eintritt, wenn man auf den Minimier-Button klickt. Bei der Taskleiste funktioniert es dann schon wieder nicht.

Was willst du tun, prüfen der Form oder der Application ?

Eigentlich Application, da schließlich die gesamte Anwendung in Tray minimiert wird und ich deshalb wissen muss, ob diese minimiert ist oder nicht.

Anwendung in Tray... also in die TNA oder in die Taskleiste ?

Abfrage, hier mal mit einem Timer, der Application:

markieren

Delphi-Quellcode:

procedure TFormX.TimerXTimer(Sender: TObject);
begin
  if isIconic(Application.Handle)
    then Application.Title := 'Minimiert'
    else Application.Title := 'nicht Minimiert';
end;

Eine weitere Möglichkeit sind die Applications Events. TApplicationEvents OnMinimize OnRestore

Genau das habe ich gesucht. Danke!