Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как сделать "чужое" окно поверх остальных?

15K
21 января 2006 года
Serghei
1 / / 21.01.2006
Люди, знающие Delphi, помогите мне ,пожалуйста, сделать любое "чужое" окно поверх остальных(например окно notepad-а).



Зарание спасибо.
5
21 января 2006 года
hardcase
4.5K / / 09.08.2005
Цитата:
Originally posted by Serghei
сделать любое "чужое" окно поверх остальных


Код:
function SetTopmost(const WndCaption, WndClass: string): boolean;
  var hWnd: THandle;
      Rect: TRect;
  begin
    Result:=false;
    hWnd:=FindWindow(Pchar(WndClass),Pchar(WndCaption));
    if hWnd = 0 then Exit;
    GetWindowRect(hWnd,Rect);
    Result:=SetWindowPos(hWnd, HWND_TOPMOST,
                         Rect.Left, Rect.Top,
                         Rect.Right - Rect.Left,
                         Rect.Bottom - Rect.Top,
                         SWP_SHOWWINDOW);
  end;

Чтобы был эффект нужно знать как минимум класс окна, над которым издеваемся.
А если есть хэндл - то FindWindow не нужна
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог