имя файла текущего документа

[Frost]

кто знает как получить имя файла текущего документа? Если можно по подробней.

[Lito 2]

Смотришь, какой документ в компасе является активным и проделываешь с ни все что угодно 
Например

doc := ksDocument2D(Kompas.ActiveDocument2D);

     if doc <> nil then
        begin
          j:=ksGetDocumentType(0);
          while j > 0 do
            begin

             if (kompas.ActiveDocument2D)<> nil then
               begin
                 //Здесь выводишь сообщение использую
              //  function ExtractFileName(const FileName: string): string;   Извлекает из строки с полным именем файла FileName часть, содержащую его имя и расширение.


               end;

             j:=ksGetDocumentType(0);

            end;
                MessageBox(GetHWindow(),'Все документы 2D просмотрены!',
                                        LibName, MB_ICONINFORMATION);
        end;

doc := nil;