Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Wenn Exe läuft, dann in den Vordergrund

  Alt 21. Mär 2007, 22:10
Hallo,

die Function EnumWin() habe ich dazu abgeändert, diese müsstest du dann austauschen:

Delphi-Quellcode:
  ...
  function EnumWin(hWnd: THandle; PIdList: PProcIdList): Boolean; stdcall;
    var
    i: integer;
    ProcId: cardinal;
  begin
    Result := True;
    if IsWindowVisible(hWnd) then//and boolean(GetWindowLong(hWnd, GWL_HWNDPARENT)) then
    begin
      for i := low(PIdList^) to high(PIdList^) do
      begin
        GetWindowThreadProcessID(hWnd, ProcId);
          if PIdList^[i] = ProcId then
          begin//<--
            if IsIconic(hWnd) then//diese Zeile
              showWindow(hWnd, SW_RESTORE);//und diese hier
            SetForeGroundWindow(hWnd);
          end;//<--
      end;
    end;
  end;
...
Bei mir jedenfalls, funktionierte es dann.
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat