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

Автор Frost, 31.07.08, 10:03:26

« предыдущая - следующая »

0 Пользователей и 1 гость просматривают эту тему.

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;
-Я пришел к тебе из сказки.
-Из какой? Из доброй.
-Выгнали? Да...