MessageDlg или ShowMessage Проверка на запущенный процесс

[beegl]

Сообщение от min@y™

чудесный компонент

Да, хорош, с CoolTrayIcon нормально, повторно иконка не появляется в трее.

Добавил в модуль CODE - на передний план окно:

GetForegroundWindow();
SetForegroundWindow(Application.Handle);

опустите там, после end;-да

function MyWindowProc(WindowHandle : hWnd; TheMessage : LongInt; ParamW : LongInt; ParamL : LongInt) : LongInt stdcall;
begin
  if TheMessage = MsgHandle then begin
    if Assigned(Iam.FOnSecondRun) then Iam.FOnSecondRun(Iam)
                                  else begin
      if Application.MainForm <> nil then begin
        Application.MainForm.Show;
{$IF CompilerVersion > 22}
      end else if FMX.Forms.Application.MainForm <> nil then begin
        FMX.Forms.Application.MainForm.Show;
{$IFEND}
      end;
    end;
    Result := 0;
    SetForegroundWindow(Application.Handle); // так всегда на передний план 100%
    GetForegroundWindow(); // так всегда на передний план 100% { методом тыка вычислил :) }
    Exit;
  end;
  Result := CallWindowProc(AppWndProc, WindowHandle, TheMessage, ParamW, ParamL);
end;

SeperOneRunProject!