"Calc.exe" starten oder wenn bereits aktiv: SW_Restore schicken

[Uwe Raabe]

Also ich löse exakt dieses Problem mit Hilfe von madExcept, genauer gesagt mit madKernel:

Delphi-Quellcode:

const
  SSciCalc = 'SciCalc';
  SCalcExe = 'calc.exe';
var
  prc: IProcess;
  win: IWindow;
  I: Integer;
begin
  prc := Process(SCalcExe);
  if not prc.IsValid then begin
    prc := NewProcess(SCalcExe);
    prc.WaitForInputIdle();
  end
  else begin
    prc.TaskbarWindows.Restore();
    prc.Restore();
    for I := 0 to prc.Windows_.ItemCount - 1 do begin
      win := prc.Windows_.Items[I];
      if SameText(win.ClassName, SSciCalc) then begin
        win.BringToTop();
        win.BringToForeground();
        Break;
      end;
    end;
  end;
end;