Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.06.2018, 14:58   #1
IIo3uTuB
Пользователь
 
Регистрация: 08.12.2016
Сообщений: 18
По умолчанию Меню (открытие документа word) - Pascal

Доброго времени суток! Подскажите, как сделать меню состоящее из 9 пунктов, что бы можно было выбрать нужную строку, нажать на enter и открывался соответствующий вордовский документ.
IIo3uTuB вне форума Ответить с цитированием
Старый 27.06.2018, 15:06   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Какой Паскаль? для какой ОС программа?
какое меню?

Вы свой код на Паскале покажите, тогда и поговорим.

p.s.
Цитата:
Сообщение от IIo3uTuB Посмотреть сообщение
нажать на enter и открывался соответствующий вордовский документ.
открывался где? запускался MS Word и в нём открывался документ?
А где лежит документ?
А MS Word на компьютере, где будет запускаться ваша программа с меню установлен?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 27.06.2018, 15:24   #3
IIo3uTuB
Пользователь
 
Регистрация: 08.12.2016
Сообщений: 18
По умолчанию

Pasсal ABC, windows 10, нужно что бы запускался Word, документ на жестком диске
IIo3uTuB вне форума Ответить с цитированием
Старый 27.06.2018, 15:35   #4
IIo3uTuB
Пользователь
 
Регистрация: 08.12.2016
Сообщений: 18
По умолчанию

Код:
uses crt;
const vybor:array[1..10] of string=('1',
                                   '2',
                                   '3',
                                   '4',
                                   '5',
                                   '6',
                                   '7',
                                   '8',
                                   '9',
                                   'exit');
procedure Menyu(var k:byte;kol:byte);
var kod: char;
    i:byte;
begin
clrscr;
k:=1;
gotoxy(1,1);
repeat
  for i:=1 to kol do
   begin
     if i=k then
      begin
         textbackground(2);
         textcolor(1);
      end
     else
      begin
         textbackground(7);
         textcolor(0)
      end;
     gotoxy(1,i);
     write(vybor[i]);
   end;
  writeln;
  textbackground(15);
  writeln('Выход из меню клавиша Spase');
  repeat
  kod:=readkey;
  until kod in [#32, #72, #80];
  case kod of
  #72: begin  
       k:=k-1;
       if k=0 then k:=kol;
       end;
  #80: begin  
       k:=k+1;
       if k>kol then k:=1;
       end;
  end;
 until kod=#32; 
end;
var k:byte;
begin
 repeat
   Menyu(k,10);
   case k of
   1:;           {названия процедур, 
   2:;           открывающих
   3:;           документ
   4:;           для каждого пункта} 
   5:;
   6:;
   7: ;
   8: ;
   9: ;
   10:exit;
   end;
 until k=10;
end.
IIo3uTuB вне форума Ответить с цитированием
Старый 27.06.2018, 15:51   #5
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

https://docs.microsoft.com/en-us/win...p/shell/launch
p51x на форуме Ответить с цитированием
Старый 27.06.2018, 16:24   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

не предназначен этот уродец псевдопаскальный для нормальной работы с системой.

можно, конечно, такой г@окод попробовать:

Код:
uses crt, Utils;
const vybor:array[1..10] of string=('1',
                                   '2',
                                   '3',
                                   '4',
                                   '5',
                                   '6',
                                   '7',
                                   '8',
                                   'Open MS Word document doc1.docx',
                                   'exit');

...
   case k of
....
   9: Execute('C:\PROGRA~1\MICROS~1\Office14\WINWORD.EXE D:\temp\doc1.docx');
....
если правильно пропишете пути к своему WINWORD.EXE и укажите путь к своему doc файлу,
то откроется.
Если нет - не откроется.

Боюсь, что больше я Вам ничего не помогу...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.07.2018, 16:38   #7
sohibnut
Пользователь
 
Аватар для sohibnut
 
Регистрация: 15.01.2018
Сообщений: 32
По умолчанию

Цитата:
Сообщение от [CODE
uses crt, Utils;
const vybor:array[1..10] of string=('1',
'2',
'3',
'4',
'5',
'6',
'7',
'8',
'Open MS Word document doc1.docx',
'exit');

...
case k of
....
9: Execute('C:\PROGRA~1\MICROS~1\Offic e14\WINWORD.EXE D:\temp\doc1.docx');
....
[/CODE]

если правильно пропишете пути к своему WINWORD.EXE и укажите путь к своему doc файлу,
то откроется.
Если нет - не откроется.
etot kod verno ili net?
sohibnut вне форума Ответить с цитированием
Старый 18.07.2018, 17:05   #8
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от sohibnut Посмотреть сообщение
etot kod verno ili net?
Этот код у меня отработал. Но с учётом замечаний:

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
если правильно пропишете пути к своему WINWORD.EXE и укажите путь к своему doc файлу,
то откроется.
Если нет - не откроется.
А что Вы хотели спросить?
Нужен ли Вам этот код?
Ответ - нет, Вам этот код не нужен. потому что это кривизна и грабли.
Возьмите нормальный Pascal (FPC) или Delphi.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сбросить пароль на открытие документа MS Word filenet Безопасность, Шифрование 0 06.03.2017 18:13
Открытие документа Word. DIMA1605 Паскаль, Turbo Pascal, PascalABC.NET 8 06.07.2012 20:47
Открытие документа Word из Excel ольгаг Microsoft Office Excel 3 19.09.2011 19:01
открытие документа word balashova C++ Builder 0 11.04.2011 22:56
Delphhi 7 Открытие документа ms Word Aleks1988 Помощь студентам 14 14.05.2010 13:30