窗口自己激活自己

const
  LSFW_LOCK      =   1 ;
  LSFW_UNLOCK    =   2 ;
  function LockSetForegroundWindow(uLockCode: DWORD): BOOL; stdcall;
var
  Form1: TForm1;
implementation
  function LockSetForegroundWindow; external   ' user32.dll '  name  ' LockSetForegroundWindow ' ;
... {$R *.dfm}

... { TForm1 }

function wdSetForegroundWindow(Handle: THandle): Boolean;
begin
   if  ((Win32Platform  =  VER_PLATFORM_WIN32_NT) and (Win32MajorVersion >   4 )) // up win 2000
    or ((Win32Platform  =  VER_PLATFORM_WIN32_WINDOWS) and   // up win 98
    ((Win32MajorVersion  >   4 ) or
    ((Win32MajorVersion  =   4 ) and
    (Win32MinorVersion  >   0 )))) then
    LockSetForegroundWindow(LSFW_UNLOCK);
  Result : =  SetForegroundWindow(Handle);
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
   //  Timer的Timer事件
  Application.Restore;
  wdSetForegroundWindow(Handle);
end;

  
强制窗口最前显示，摘自Raize组件包中TRzTrayIcon.RestoreApp过程
   Application.Restore;
  ShowWindow( Application.Handle, sw_Restore );
  SetForegroundWindow( Application.Handle );

procedure TRzTrayIcon.RestoreApp;
begin
  if FMenuVisible then
    Exit;
  FManualRestore := True;
  try
    Application.Restore;
    if FEnabled then
    begin
      ShowWindow( Application.Handle, sw_Restore );
      SetForegroundWindow( Application.Handle );
    end;
    DoRestoreApp;
  finally
    FManualRestore := False;
  end;
end;