A.參閱如何防止程序在Windows中竊取焦點找出竊取焦點的程式讓它停止發生,可安裝以下軟體(擇一)確保程式在最頂層
1.DeskPins(將任何窗口保持在最頂層)
2.Window On Top (頂部的窗口)(windows 10 / windows 8 / windows 7 / vista / xp)

B.Keeping a form focused (not a question)

C.自己寫一支程式 call 要執行的應用程式 (例如 :Notepad.exe)
Delphi Code :

uses ......, ShellApi ,extctrls;
......
......

var
  Form1: TForm1;
  ExecuteIpClassName : PWideChar;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
  ExecuteFile : string;
  SEInfo : TShellExecuteInfo;
begin
  // Timer1 間隔 100 毫秒
  Timer1.Interval := 100;
  // 設定外部程式
  ExecuteFile := 'c:\Windows\Notepad.exe';
  ExecuteIpClassName := 'NotePad';
  //
  FillChar(SEInfo, SizeOf(SEInfo), 0) ;
  SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
  with SEInfo do 
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile) ;
    // 視窗最大化啟動外部程式
    nShow := SW_SHOWMAXIMIZED;
  end;
  // 呼叫外部程式
  ShellExecuteEx(@SEInfo);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var WinHandle: HWND;
begin
  WinHandle := FindWindow(ExecuteIpClassName,nil);
  // 外部程式失去 Focus , 重新 Focus
  if WinHandle <> 0 then
  begin
    SetForegroundWindow(WinHandle);
  end;
end;