Найти handle окна "консольного приложения"

[Человек_Борща]

Доброе время суток.

Проблема:
Необходимо находить hwnd окна по ProcessInformation.dwThreadId и изменять заголовок. Делаю я это вот так:

function ChangeCaptionProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
var
  s:PAppInfo;
begin
  Result:=True;
  s:=pointer(lParam);
  if GetWindowLong(hwnd, GWL_STYLE) and WS_CAPTION = WS_CAPTION then
  begin
    SetWindowText(hwnd,PAnsiChar(s));
  end;
end;

{Где-то там, что-то там.... :d}
if not (AppInfo.AppUserCaption = '') then
begin
   EnumThreadWindows(PI.dwThreadId,@ChangeCaptionProc,Integer(AppInfo.AppUserCaption)); //передаём параметр функции
end;

и не создовал бы я данной темы если бы не столкнулся с проблеммой.
В любой окнонной программе все отлично!

Как только пытаешся применить это к консольной программе почему-то нераьотает..

[Alexei91]

В оконной программе есть Application. Handle - дескриптор окна.
"Delphi. Трюки & Эффекты." Авторы: Чиртик. Борисюк. и др.

[Человек_Борща]

я ищу handle чужого консольного окна которое отображается на рабочем столе.