Интерфейс IProcessInfoWindow

[Дмитрий22]

Добрый день!
Не подскажете, как выдать текст в окно IProcessInfoWindow (то что находится в районе ProgressBarIndicator). В справке написано:
"Данный интерфейс можно получить у интерфейса IProcessParam процесса, в котором необходимо показать окно, посредством вызова метода IUnknown::QueryInterface". Мудрено как-то. Мне бы кусок кода. Только перешел на API 7.

[Sabahs]

pProcessInfoWindow:=pProcessParam as IProcessInfoWindow;

[Дмитрий22]

Можно чуть поподробнее.
                IProcessParam *Param = iKompasApp->CreateProcessParam();
      IProcessInfoWindow *Info = (IProcessInfoWindow *)Param;
      Info->Text = CC;
      Info->Visible = true; // здесь Компас вылетает

Что не так? Если можно с кодом, на любом языке, я переведу.

[Sabahs]

AddTextProcessParam:=KompasApi.CreateProcessParam;
if AddTextProcessParam<>nil then pProcessInfoWindow:=AddTextProcessParam as IProcessInfoWindow;
if pProcessInfoWindow<>nil then
begin
    pProcessInfoWindow.CreateWindow:=True;
    pProcessInfoWindow.WindowCaption:=WideString('guyyuguhini');
    pProcessInfoWindow.CloseProcess:=False;
    pProcessInfoWindow.Text:=WideString('xfdfghgddvbhnbjhjjkk');
    pProcessInfoWindow.Visible:=True;
end;
Вылетело потому, что Вы окно не создали и решили показать, то, чего нет.