w32 = require("w32")
QuikMainWindowHandle = 0

function OnInit()
  QuikMainWindowHandle = GetMainWindowHandle()
end

function main()
  if QuikMainWindowHandle ~= 0 then
    -- тут можно писать, что вашей душе угодно
    w32.SetWindowText(QuikMainWindowHandle, "Testing....")
  end
end

function GetMainWindowHandle() -- Получить дескриптор главного окна QUIK
  local CurrentProcessId = w32.GetCurrentProcessId()
  local hWnd=0
  while true do
    hWnd = w32.FindWindowEx(0, hWnd, "InfoClass", "")
    if hWnd == 0 then break end -- Окно не найдено
    local ThreadId, ProcessId = w32.GetWindowThreadProcessId(hWnd)
    if ProcessId == CurrentProcessId then break end -- Окно найдено
  end
  return hWnd
end