VPF::Запуск внешней программы. - Форум программистов

Valior

Дата 24.5.2006, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 24.5.2006

Репутация: нет
Всего: нет

Пишу курсовик, помогите.

У меня есть FilelistBox, который в директории DIR, в этой директории есть файл TEST.DOC. Сообственно проблема, необходимо запускать WinWord так, чтобы после изменения в файле, небыло возможности сохранить фаил в директории кроме DIR. Как и с чего вообще начать не представляю. Помогите плиз!

bems

Дата 26.5.2006, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Начни с ShellExecuteEx, CreateJobObject и AssignProcessToJobObject

--------------------

Обижено школьников: 8

Nickel

Дата 26.5.2006, 07:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 7.2.2006

Репутация: 2
Всего: 4

Если бы word использовал для вывода диалога GetSaveFileName из comdlg32.dll, тогда бы можно было бы перехватить её и делать всё что угодно, однако программисты мелкософта видимо решили отличиться и создавать диалоги как-то по-другому smile

. Если кто-нибудь знает каким образом word получается результат работы диалога, пусть скажет smile

bems

Дата 26.5.2006, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Цитата(Nickel @ 26.5.2006, 07:08

)

Если кто-нибудь знает каким образом word получается результат работы диалога, пусть скажет

Да не, нужно вообще доступ процессу за пределы папки закрыть. А перхват АПИ это не для курсача. Тут права доступа, ну и в джоб процесс запихнуть

--------------------

Обижено школьников: 8

BUGOR

Дата 26.5.2006, 08:12 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 325
Регистрация: 12.3.2006

Репутация: 2
Всего: 16

Перехват подходит. Можно перехватывать WriteFileA(ZwWriteFile) и смотреть параметры. Ведь Word в файл пишет всё равно посредствам этой апи.

--------------------

Живу недоумевая, всё время хочу понять...
http://hunger.ru

Valior

Дата 26.5.2006, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 24.5.2006

Репутация: нет
Всего: нет

procedure TForm2.N3Click(Sender: TObject);
Var
app : olevariant;
CBar: CommandBar;
begin
  app := CreateOleObject('Word.Application');
  app.Documents.Add(FileListBox1.FileName);
  app.ActiveDocument.Saved := true;
  app.visible := true;
  app.ChangeFileOpenDirectory(Filelistbox1.Directory);

   app.CommandBars['Saveas'].Enabled:=false;

end;

Вот к чему свелась задача. Но при такой конструкции ругается на несоответствие типов. Может кто знает как решить такую проблему?

bems

Дата 26.5.2006, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Цитата(Valior @ 26.5.2006, 10:39

)

app.CommandBars['Saveas'].Enabled:=false

Сохранять можно и наверное нужно. Но только в конкретную папку! И я думаю что Ворд - это только для примера, а нужно общее решение

--------------------

Обижено школьников: 8

Nickel

Дата 26.5.2006, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 7.2.2006

Репутация: 2
Всего: 4

А я бы CreateFile перехватил smile

bems

Дата 26.5.2006, 18:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Цитата(Nickel @ 26.5.2006, 15:33

)

А я бы CreateFile перехватил

В реальной проге я бы тоже так сделал. Но в курсовой..? Хотя, че ж это мнения автора не слышно?

Nickel, забей. Это уже не надо smile

--------------------

Обижено школьников: 8

Nickel

Дата 26.5.2006, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 7.2.2006

Репутация: 2
Всего: 4

Ну надо или не надо это пусть автор темы решает.

Valior

Дата 26.5.2006, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 24.5.2006

Репутация: нет
Всего: нет

Ребят всем спасибо, все свелось к

Код


fil:=FileListBox1.FileName;
  WordApplication1.Documents.OpenOld(fil,EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                     EmptyParam,EmptyParam);
  WordApplication1.Visible:=true;
  WordApplication1.ChangeFileOpenDirectory(Filelistbox1.Directory);
  WordApplication1.CommandBars.Item['File'].Controls.Item[5].Set_Enabled(false);
  WordApplication1.CommandBars.Item['File'].Controls.Item[6].Set_Enabled(false);
  WordApplication1.CommandBars.Item['File'].Controls.Item[15].Set_Enabled(false);

Это сообщение отредактировал(а) Girder - 27.5.2006, 14:15

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »