|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Вывести окно другого приложения на передний план
Здравствуйте.
Никак не получается вывести на передний план окно другого приложения, точнее того же самого при повторном запуске. Код:
procedure TForm3.FormCreate(Sender: TObject); var k: integer; wnd: HWND; begin //блокирование повторного запуска CreateMutex(nil,false,'E9C09DE6-E0ED-4077-B5D2-6EC49CD1E2C5'); k := GetLastError(); if (k=ERROR_ALREADY_EXISTS)or(k=ERROR_ACCESS_DENIED) then begin wnd := FindWindow(nil, 'My Caption'); if wnd <> 0 then begin ShowWindow(FindWindow(nil, 'My Caption'), SW_SHOW); end else ShowMessage('Окно не найдено'); Application.Terminate; Exit; end; end; Заранее спасибо. |
#2
|
||||
|
||||
Я бы первым делом попробовал SetForegroundWindow.
jmp $ ; Happy End! The Cake Is A Lie. |