Открыть файл *.doc (через программу конечно) без предупреждения.

← →
Alex SPA (2004-01-08 10:19) [0]

Помогите пожалуйста. Проклятый windows xp выводит сообщение мол "файл может быть с вирусом, если вы доверяете... а если нет, то лучше не надо, но смотрите сами..... %открыть% %сохранить% и т.д." а мне это окно ну абсолютно не нужно!!! В тексте я пишу "winexec (explorer путь\имя файла.doc", SW_SHOW);
Что я делаю не так??? Заранее спасибо.

← →
NAlexey © (2004-01-08 10:23) [1]

>Alex SPA (08.01.04 10:19)
Хм... А если заключить в блок:
try winexec (explorer путь\имя файла.doc", SW_SHOW); except end;

← →
Alex SPA (2004-01-08 10:32) [2]

К сожалению ничего... может какие другие мысли?

← →
Семен Сорокин © (2004-01-08 10:39) [3]

Проклятый windows xp выводит сообщение
наверное это все-таки офис на макросы ругается.
что-бы не ругался наверное открывать надо через OLE, создаешь объект WordApplication, и далее открываешь нужный файл.

← →
Alex SPA (2004-01-08 10:45) [4]

Если можно по подробней...

← →
Alex SPA (2004-01-08 11:04) [5]

С wordapplication повозился, но результата нет. Должен быть другой способ, ведь *.hta документы открываются без запроса именно с этим кодом. Если кто-то что-то знает подскажите - позарез нужно! Спасибо.

← →
NAlexey © (2004-01-08 11:18) [6]

А если так:
procedure TForm1.Button1Click(Sender: TObject); var MSWord: Variant; begin try MsWord := CreateOleObject("Word.Basic"); except ShowMessage("Could not start Microsoft Word."); Exit; end; MsWord.AppShow; MSWord.FileOpen("C:\MyDoc.doc"); end;

← →
Alex SPA © (2004-01-08 11:46) [7]

Ругается на строчку

MsWord := CreateOleObject("Word.Basic");

пишит:

undeclared identifier:"CreateOleObject"

← →
Тимохов © (2004-01-08 11:48) [8]

А нажать f1 и посмотреть в каком модуле она определена трудно?

← →
Alex SPA © (2004-01-08 12:03) [9]

Нажал. Вылез Help что-то сказал, к сожалению мне это не помогло.

если кто-то знает решение - НАПИШИТЕ!!! Я иссяк.

← →
NAlexey © (2004-01-08 12:05) [10]

В uses добавь - ComObj.
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj;

← →
Alex SPA © (2004-01-08 12:14) [11]

СПАСИБО!!! СПА-А-А-А-С-И-И-И-И-Б-О-О-О-О!!!!!!!!

ТЫ НАСТОЯЩИЙ МАСТЕР DELPHI!!!

а я нет. :(

ВСЕМ СПАСИБО!!!

← →
Тимохов © (2004-01-08 12:14) [12]

Уважаемый автор вопроса!
Поймите, что людям способным ответить на вопросы, интересней отвечать тем, которые способны если уже не найти в хелпе, то что нужно, то хотя бы в точно указанном разделе хелпа прочесть информацию, а не говорить "хелп вызел что-то сказал ..."

Уважаемый Тимохов!
Послать на форум вопрос - это крайняя мера. В этот момент никаких мыслей (трезвых) уже не наблюдается, а если вам лень довести свой ответ до конца, то лучше вообще ничего не писать. И ехидство типа "а нажать f1 трудно?" - не уместно. Если вы такой профи, то Вы должны сейчас быть очень заняты, а вместо этого, Вы читаете это сообщение. Спасибо за подсказку, досвидание.

Alex SPA © (08.01.04 12:42) [13]
Уважаемый Alex SPA.

Заняты не профи, а те кто не жалея себя хотят ими стать.
Профи свое уже отзанимались и пожимают метариальные плоды своих трудов.

Желаю успехов.

Уважаемый Тимохов!

Спасибо за пожелания.

Расстрел - это исключительная мера. Пожизненное - последняя.

← →
MIKE1978 (2004-01-08 20:25) [18]

if ShellExecute(0, nil, PChar(FileName), nil, nil, SW_SHOW) <= 32 then raise Exception.Create("Невозможно открыть файл");

Такой кусочек кода поможет?

Открыть файл *.doc (через программу конечно) без предупреждения. Найти похожие ветки