Блог программистов

var
DC: HDC;
H : HWND;
HV:PAnsiChar;
begin

  HV:=PChar('Чужое приложение');
  H:=FindWindow (nil,HV);
  DC:=GetDC(H);

  //... вот здесь нужно активировать чужое приложение

  ReleaseDC(0, DC);