Показать сообщение отдельно
  #8  
Старый 07.08.2012, 13:10
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Радость

Цитата:
Сообщение от Erilar
Никто не знает?
я знаю:
Код:
function SetForegroundWindow(AHandle: THandle): Boolean;
var
  AWindow: THandle;
  AThreadId: Cardinal;
  AProcessId: Cardinal;
begin
  AWindow:=GetForegroundWindow;
  AThreadId:=GetCurrentThreadId;
  AProcessId:=GetWindowThreadProcessId(AWindow, nil);
  AttachThreadInput(AThreadId, AProcessId, True);
  Result:=Windows.SetForegroundWindow(AHandle);
  AttachThreadInput(AThreadId, AProcessId, False);
end;
просто специально тянул 2 месяца)))
__________________
Пишу программы за еду.
__________________
Ответить с цитированием