//Спочатку дізнаємося активне вікно і його процес (idProcess) який буде потрібний потім
    HWND hWindow = GetForegroundWindow();
    DWORD idProcess = GetWindowThreadProcessId(hWindow, 0);

//Зберігаємо HWND (точніше зберігаємо трохи нижче а тут створюємо лише змінну статичну)
    static HWND SaveWindow = NULL;
    wchar_t  WindowName[256]{'\n'};

//Дивимося чи змінилося вікно
    if(hWindow != SaveWindow)
    {
        SaveWindow = hWindow;
        GetWindowText (SaveWindow, WindowName, 256);
        if(QString::fromWCharArray(WindowName) != "")
        {
            //ТУТ ЗБЕРІГАЄМО НАШЕ ВІКНО (його WindowName)
        }
    }

//НЕВДАЛИЙ КОД
//дізнаємося Language Identifier
    unsigned int lanHere = ((int)GetKeyboardLayout(idProcess))>>16;
//Зберігаємо мову
    static unsigned int lanSave = 0;
//Ну і записуємо мову 
    if(lanHere != lanSave)
    {
        lanSave = lanHere;
        if(lanSave == 1033)
        {
            //English
            //ТУТ ЗБЕРІГАЄМО МОВУ ВВЕДЕННЯ (приклад += "\n\n<Language = English>\n\n";)
        }
        else if(lanSave == 4294963368)
        {
            //Ukrainian
            //ТУТ ЗБЕРІГАЄМО МОВУ ВВЕДЕННЯ 
        }
        else if(lanSave == 1049)
        {
            //Russian
            //ТУТ ЗБЕРІГАЄМО МОВУ ВВЕДЕННЯ 
        }
        else
        {
            //language other
            //ТУТ ЗБЕРІГАЄМО МОВУ ВВЕДЕННЯ (приклад += "\n<Language = other, HKL = (int)" +
                    IntToStr(lanHere)
                    + ", more = https://msdn.microsoft.com/uk-ua/library/windows/desktop/dd318693(v=vs.85).aspx>\n";)
        }
    }

--KEY--


User chose another program = doing.cpp - System32 - Qt Creator



<Language = English>



User chose another program = Нове повідомлення - WinAPI Дізнатися розкладку клавіатури - C/C++ - Український форум програмістів – Yandex



<Language = Ukrainian>



<Language = English>



<Language = Ukrainian>



User chose another program = Program Manager



User chose another program = File Explorer


User chose another program = Нове повідомлення - WinAPI Дізнатися розкладку клавіатури - C/C++ - Український форум програмістів – Yandex

short GetSymbolFromVK(WPARAM wParam) // конвертує код натиснутої кнопки у текст
{
    BYTE btKeyState[256];
    HKL hklLayout = GetKeyboardLayout(0); // отримуємо keyboard layout
    WORD Symbol; 
    GetKeyboardState(btKeyState); 
    if((ToAsciiEx(wParam, MapVirtualKey(wParam, 0), btKeyState, &Symbol, 0, hklLayout) == 1) && // сама конвертація
                 GetKeyState(VK_CONTROL) >= 0 && GetKeyState(VK_MENU) >= 0) // перевіряємл CTRL и ALT
        return Symbol;
     return -1;
}

var gif: tgifimage;
...
 //у циклi
 BitBlt(bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
         GetDC(GetDesktopWindow), 0, 0, SRCCopy);

 GIF.AddFrame(bitmap);

 // end цикла

 ...
 // save
 gif.savetofile('bla-bla-bla.gif');
 ...

var // GDI+
    encoderClsid: TGUID;
    Image: TGPImage;
...
Image := TGPImage.Create(tifpath);
  GetEncoderClsid('image/gif', encoderClsid);
  s:= pansichar(copy(tifpath,1,length(tifpath)-4) + '.gif');
  image.Save(s, encoderClsid, nil);
  image.Free