Fenster lässt sich nach ShowWindow nicht mehr minimieren...

[johnmuller]

Hallo,

um nur ein Instanz meines Programmes zuzulassen, verwende ich diesen Code:

Delphi-Quellcode:

var
  MyHandle: integer;
begin
  MyHandle := FindWindowByTitle('Rechnungen');
  if MyHandle > 0 then
  begin
    ShowWindow(MyHandle,SW_RESTORE);
    halt(0);
  end;
end;

Das funktioniert einwandfrei, aber nachdem das Fenster der 1. Instanz wieder restauriert wird, lässt es sich nicht mehr minimieren. Alles andere geht.
Scheint nur mit Delphi-Programmen so zu sein, ein Test mit Notepad funktioniert wie erwartet.

Hat jemand eine Idee?

Danke und Gruß Uli

[Sunlight7]

Vllt hilft

Delphi-Quellcode:

PostMessage(MyHandle, WM_SYSCOMMAND, SC_RESTORE, 0);

[johnmuller]

Zitat:

Zitat von Sunlight7

Vllt hilft

Delphi-Quellcode:

PostMessage(MyHandle, WM_SYSCOMMAND, SC_RESTORE, 0);

Ändert leider nichts.

Gruß Uli