// отключает в WinXP и выше механизм Window Ghosting
// тем самым решается проблема с модальными окнами под видимой формой и
// возможностью двигать и закрывать модальные окна не верхнего уровня.
// с другой стороны, если приложение действительно занято, то убивать его придется
// с помощью дистпетчера задач.
procedure DisableWindowsGhosting;
var
  User32: HMODULE;
  DisableProcessWindowsGhosting: procedure;
begin
  User32:=GetModuleHandle('USER32');
  if User32<>0 then begin
    DisableProcessWindowsGhosting:=GetProcAddress(User32,'DisableProcessWindowsGhosting');
    if assigned(DisableProcessWindowsGhosting) then
      DisableProcessWindowsGhosting;
  end;
end;