Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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

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

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

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

Код:

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, 16:51   #5
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 12,021
Репутация: 2028

icq: 216409213
По умолчанию

https://docs.microsoft.com/en-us/win...p/shell/launch
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 27.06.2018, 17:24   #6
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,163
Репутация: 5241
По умолчанию

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

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

Код:

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, 17:38   #7
sohibnut
Пользователь
 
Аватар для sohibnut
 
Регистрация: 15.01.2018
Адрес: bukhara
Сообщений: 21
Репутация: 10
По умолчанию

Цитата:
Сообщение от [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, 18:05   #8
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,163
Репутация: 5241
По умолчанию

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сбросить пароль на открытие документа MS Word filenet Безопасность, Шифрование 0 06.03.2017 19:13
Открытие документа Word. DIMA1605 Паскаль 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


05:44.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru