Предыдущее активное окно

[martinz]

Как сделать активным предыдущее активное окно?

Допустим я запустил блокнот (или калькулятор, не важно), затем запустил свою программу, нужно сделать так, чтобы фокус стал на блокнот. Что-то типа Alt+Tab.

[Квэнди]

protected
   procedure CreateParams(var Params: TCreateParams); override;

 //... 

procedure TForm.CreateParams(var Params: TCreateParams);
 begin
   inherited CreateParams(Params);
   if Assigned(Application.MainForm) then
   begin
     Params.WndParent := GetDesktopWindow;
     Params.Style := WS_CHILD;
   end;
 end;

[martinz]

Квэнди, а можешь прикрепить исходник, не выходит что-то.

[Квэнди]

http://programmersforum.ru/showthread.php?t=1759