Открытие Excel и Word

[Mr. Джон]

Нужно произвести открытие файла, в папке у меня и Word файлы, и Excel.
написал такой код:

procedure TForm2.sBitBtn1Click(Sender: TObject);
var
MSWord:OLEvariant;
Excel:OLEvariant;
begin
MsWord := CreateOleObject('Word.Application') ;
Excel:= CreateOleObject('Excel.Application' );
if not MSWord.Documents.Open('C:\proc\File s\'+sDBEdit1.Text+'.doc')
then Excel.Documents.Open('C:\proc\Files \'+sDBEdit1.Text+'.xls');
MsWord.Visible := True;
Excel.Visible := True;
end;

посылает меня, но если я к примеру пишу :

MsWord := CreateOleObject('Word.Application') ;
MSWord.Documents.Open('C:\proc\File s\'+sDBEdit1.Text+'.doc')
MsWord.Visible := True;
то открытие производится только Worda.
Подскажите или наведите на цель если к примеру нет Word файла то ищется Excel с таким же именем...
Надеюсь понятно разъяснил.

[FaTaL]

Для чего Вам их нужно открыть? Если не для работы в нём через Delphi, то просто используйте ShellExecute

[Sciv]

посылает меня,

Вы бы хоть написали, какими словами и куда посылает, а то телепаты в отпуска разъехались.

if not MSWord.Documents.Open('C:\proc\File s\'+sDBEdit1.Text+'.doc')
then Excel.Documents.Open('C:\proc\Files \'+sDBEdit1.Text+'.xls');

А скорее всего Open не возвращает никаких значений логического типа, вот и посылает. Я бы предложил делать проверку существования файла, а уже потом открывать. Как-то так:

fname:='C:\proc\File s\'+sDBEdit1.Text;
if  FileExists(fname+'.*') then MSWord.Documents.Open(fname+'.doc')
else Excel.Documents.Open(fname+'.xls');

Функцию FileExists смотрите в хелпе, я ее тут для примера привел, но точного ее синтаксиса и параметров не помню.

[Mr. Джон]

if not
ShellExecute(Form2.Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Tex t+'.doc'),nil, nil, SW_SHOWNORMAL))
then
ShellExecute(Form2.Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Tex t+'.xls'),nil, nil, SW_SHOWNORMAL);

не могу довести до совершенства, ошибка с операндом
[Error] Unit22.pas(122): Type of expression must be BOOLEAN

[FaTaL]

Сообщение от Mr. Джон

не могу довести до совершенства, ошибка с операндом
[Error] Unit22.pas(122): Type of expression must be BOOLEAN

Потому что ShellExecute не возвращает значение типа BOOL. Подробнее читай тут http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[Toxa]

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Return value

Type: HINSTANCE

If the function succeeds, it returns a value greater than 32. If the function fails, it returns an error value that indicates the cause of the failure. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Windows applications. It is not a true HINSTANCE, however. It can be cast only to an int and compared to either 32 or the following error codes below.

[Mr. Джон]

что то я всё равно разобраться не могу

[FaTaL]

Сообщение от Mr. Джон

что то я всё равно разобраться не могу

Ну сделай тогда что-то типа этого, раз сам думать не хочешь.

if ShellExecute(Form2.Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Text+'.doc'),nil, nil, SW_SHOWNORMAL)) <= 32
then
ShellExecute(Form2.Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Text+'.xls'),nil, nil, SW_SHOWNORMAL);

[Mr. Джон]

if ShellExecute(Form2.Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Text+'.doc'),nil, nil, SW_SHOWNORMAL)) <= 32
then
ShellExecute(Form2.Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Text+'.xls'),nil, nil, SW_SHOWNORMAL);

спасибо большое, тут есть ещё такой фокус если в глупую написать:
ShellExecute(Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Tex t+'.doc'),nil, nil, SW_SHOWNORMAL);
ShellExecute(Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Tex t+'.xls'),nil, nil, SW_SHOWNORMAL);

тоже без ошибочно работает...