[ferget]

попробуйте так

Код:

WaitForSingleObject(pi.hProcess, INFINITE);  
CloseHandle(pi.hThread);     
CloseHandle(pi.hProcess);

[che.ramzes]

попробуйте так Код: WaitForSingleObject(pi.hProcess, INFINITE); CloseHandle(pi.hThread); CloseHandle(pi.hProcess); »

Я так с самого начала пробовал - не получается тоже. на одном сайте вычитал что лишний handle можно закрыть потому так и написал.

[ferget]

можно убрать WaitForSingleObject, сделать функцию которая проверяет, что процесс уже завершился и затем CloseHandle

или посмотреть в отладчике, что происходит когда программа регистрирует шрифты в реестре и разобраться почему это мешает WaitForSingleObject

[che.ramzes]

вопшем WaitForSingleObject какимто образо не дает програме установится полностю. Запускал через кучу дочерних процнсов но результат один - не хотат регистрироватся шришты.

можно убрать WaitForSingleObject, сделать функцию которая проверяет, что процесс уже завершился и затем CloseHandle »

Вот пошарил в нете и немного переделал, мож кому пригодится
это

Код:

var
  ....
  ExitCode: Cardinal;
begin
    ...
    while (GetExitCodeProcess(PI.hProcess, ExitCode)) and  (ExitCode = STILL_ACTIVE) do
      begin
      Application.ProcessMessages;
      Sleep(1);
     end;

тема решена, но все же осталось много вопросов???