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.