CreateProcess запустить консольную программу со своим заголовком

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

Всем привет!
интересует вопрос:
Как запустить консольную программу и передать её свой заголовок окна?

Вызубрил все оCreateProcess...

но всеравно не понимаю...

Не посылайте в msd там уже был.. пояните как зопустить чужую консольную прогрумму и передать ей новый заголовок окна?

Сейчас делаю это так

            Sleep(700); //ждём...
            AttachConsole(Pinfo.dwProcessId); //привязывам консоль
            AppInfo.WindowHande := GetConsoleWindow; //Передаём хэндл окна
            //SetConsoleTitle(PChar('Trollface'));
            SetWindowText(AppInfo.WindowHande, PChar(AppInfo.OtherCaption)); //пишем свой заголовок
            FreeConsole; //отваливаем

[veniside]

var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
begin
  fillChar(si, sizeof(si), #0);
  si.cb := sizeof(si);
  si.lpTitle := pChar('Вызубрил все оCreateProcess... ');
  //
  CreateProcess(nil, 'cmd.exe', nil, nil, false, 0, nil, nil, si, pi);
end;