На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! user posted image
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...

Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Rouse_, user posted image Krid

Модераторы: Rouse_, Krid
  
> Своя программа поверх других, не путать с StayOnTop
    Есть приложение, которое при запуске становится то-ли поверх всех окон, или как-то по другому (игра например), и поверх этой программы мне нужно вывести свою форму, чтоб моя программа перекрыла ту, что игра. Подскажите как это можно сделать в Delphi XE?
    Ещё если можно то сделать так, чтобы активной оставалась игра, и в её окно я мог вставить текст из буфера (это я уже умею).

    Для тех кто в этом понимает, игра это CHC (чемпион). Нужно перекрыть её окно, вставить игровой код и зайти в игру, и только затем убрать свою форму.

    PS свойства формы StayOnTop не работает. Когда приложение запущено, поверх даже диспетчер задач не вылазит, помогает только нажатие кнопки WIN
    Сообщение отредактировано: dreyqq -
      ExpandedWrap disabled
        procedure TForm1.FormCreate(Sender: TObject);
        begin
         SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
         SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) or WS_EX_NOACTIVATE);
        end;
      Кто рано встает, тому целый день спать хочется
        Вот так например:

        ExpandedWrap disabled
          //Использование
          SetWindowTopMost(Handle, True);
           
          function SetWindowTopMost(hWnd: HWND; bTopMost: boolean): boolean;
          begin
           Result := SetWindowPos(hWnd, HWND_NOTOPMOST + WORD(bTopMost), 0, 0, 0, 0,
            SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
          end;
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script Execution time: 0,0793 ]   [ 18 queries used ]   [ Generated: 22.09.19, 20:55 GMT ]