Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
ВнизКак поднять окно своего приложения поверх всех окон в win2k. Найти похожие ветки
← →
AVT (2002-03-14 21:22) [11]Всем большое спасибо за участие в решении моей проблемы.
Вот код который поднимает окно поверх всех остальных в win2k(только если оно перекрыто, а не свернуто).
procedure TForm1.Timer1Timer(Sender: TObject);
var tid, wid: WORD;
h: HWND;
begin
h := GetForegroundWindow;
tid := GetCurrentThreadId;
wid := GetWindowThreadProcessId(h, 0);
if tid <> wid then
begin
AttachThreadInput(wid, tid, TRUE);
Windows.SetFocus(Handle);
AttachThreadInput(wid, tid, FALSE);
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c