[Проблема]Изм. заголовка запускаемого exe(GUI программа), через createProcess

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

Всем привет!

Проблема:
Программы запускаю чрнрез поток TThread передавая им струкутуру типа record с параметрами.

Ну и там собственно задачие заголовка окна, для этого использую 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;

procedure TAppThread.AppChangeCaption(ProcessPID: DWORD);
begin
  EnumThreadWindows(ProcessPID, @ChangeCaptionProc, Integer(AppInfo.OtherCaption)); //передаём параметр функции
end;

Проблема вся в том что этот код срабатывает только 1 раз за всю работу моей программы.
т.е. запускаю др. потоки и код с EnumThreadWindows не работает. А перезапустив программу(Мою) то код сработывает опять же один раз.

Почему?