#Requires AutoHotkey v1.1
#SingleInstance Force
#UseHook Off

#IfWinActive
#Space::Msgbox, Win+Space
^1::Msgbox, Ctrl+1

#Requires AutoHotkey v1.1
#SingleInstance Force
#UseHook Off

#IfWinNotActive ahk_class TscShellContainerClass
#Space::Msgbox, Win+Space
^1::Msgbox, Ctrl+1

Gui, Show, w300 h300
DllCall("SuspendThread", "Ptr", DllCall("GetCurrentThread"))

#IfWinActive
^1:: MsgBox test

program Hang_App;

{$mode Delphi}
{$H+}

uses
  Windows, Messages;

const
  WinClassName = 'MainWindow';
  WinCaption = 'Hang App';

var
  hWndMain: HWND;

// Процедура обработки сообщений
function WndProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Result := DefWindowProc(hWnd, Msg, wParam, lParam);
end;


function RegisterWindowClass: Boolean;
var
  wc: WNDCLASSEX;
begin
  wc.cbSize := SizeOf(WNDCLASSEX);
  wc.style := CS_HREDRAW or CS_VREDRAW;
  wc.lpfnWndProc := @WndProc;
  wc.cbClsExtra := 0;
  wc.cbWndExtra := 0;
  wc.hInstance := hInstance;
  wc.hIcon := LoadIcon(0, IDI_APPLICATION);
  wc.hCursor := LoadCursor(0, IDC_ARROW);
  wc.hbrBackground := COLOR_BTNFACE + 1;
  wc.lpszMenuName := nil;
  wc.lpszClassName := WinClassName;
  wc.hIconSm := LoadIcon(0, IDI_APPLICATION);

  Result := RegisterClassEx(@wc) <> 0;
end;


var
  hWndClass: WNDCLASSEX;
  nMsg: MSG;
  Rect: TRect;

begin
  if not RegisterWindowClass then
  begin
    MessageBox(0, 'Ошибка регистрации класса окна!', 'Ошибка', MB_ICONERROR);
    Exit;
  end;

  // Создание главного окна
  hWndMain := CreateWindowEx(0, WinClassName, PChar(WinCaption), WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 400, 200, 0, 0, hInstance, nil);
  if hWndMain = 0 then
  begin
    MessageBox(0, 'Не удалось создать окно', 'Ошибка', MB_ICONERROR);
    Exit;
  end;

  // Центрирование окна
  GetWindowRect(hWndMain, Rect);
  SetWindowPos(hWndMain, 0, (GetSystemMetrics(SM_CXSCREEN) - Rect.Width) div 2, (GetSystemMetrics(SM_CYSCREEN) - Rect.Height) div 2, 0, 0, SWP_NOZORDER or SWP_NOSIZE);

  ShowWindow(hWndMain, SW_SHOW);
  UpdateWindow(hWndMain);

  while GetMessage(nMsg, 0, 0, 0) do
  begin
    if not IsDialogMessage(hWndMain, nMsg) then
    begin
      TranslateMessage(nMsg);
      DispatchMessage(nMsg);
      Sleep(24*60*60*1000);
    end;
  end;
end.