
07.08.2012, 13:10
|
 |
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 месяца)))
__________________
Пишу программы за еду.
__________________
|