Меню (открытие документа word) - Pascal

[IIo3uTuB]

Доброго времени суток! Подскажите, как сделать меню состоящее из 9 пунктов, что бы можно было выбрать нужную строку, нажать на enter и открывался соответствующий вордовский документ.

[Serge_Bliznykov]

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

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

p.s.

Сообщение от IIo3uTuB

нажать на enter и открывался соответствующий вордовский документ.

открывался где? запускался MS Word и в нём открывался документ?
А где лежит документ?
А MS Word на компьютере, где будет запускаться ваша программа с меню установлен?

[IIo3uTuB]

Pasсal ABC, windows 10, нужно что бы запускался Word, документ на жестком диске

[IIo3uTuB]

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.

[p51x]

https://docs.microsoft.com/en-us/win...p/shell/launch

[Serge_Bliznykov]

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

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

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 файлу,
то откроется.
Если нет - не откроется.

Боюсь, что больше я Вам ничего не помогу...

[sohibnut]

Сообщение от [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?

[Serge_Bliznykov]

Сообщение от sohibnut

etot kod verno ili net?

Этот код у меня отработал. Но с учётом замечаний:

Сообщение от Serge_Bliznykov

если правильно пропишете пути к своему WINWORD.EXE и укажите путь к своему doc файлу,
то откроется.
Если нет - не откроется.

А что Вы хотели спросить?
Нужен ли Вам этот код?
Ответ - нет, Вам этот код не нужен. потому что это кривизна и грабли.
Возьмите нормальный Pascal (FPC) или Delphi.