Запустить внешнее приложение

[Copperfild]

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

В общем мне надо чтобы при нажатии на батон открывался MS Excel с указанным файлом (пусть, к примеру его имя и путь будет в переменной tablename:string, если надо, то сам путь к экселю пусть будет в переменной excelpath:string).

Желательно попроще
Все хелпы обрыл не могу найти...

Заранее спасибо.

[Alar]

Вот тебе похожая тема, решение твоего вопроса на 2-й странице.

http://programmersforum.ru/showthread.php?t=7149

[DeDoK]

все канешно не так просто как кажецца=)
сначала подключаем модуль ComObj в секцию uses, обьявляем глобальную переменную типа variant
app : variant;
а потом пишем

procedure TForm1.Button1Click(Sender:TObject);
var
IsActive:boolean; // это наш Ексель
begin
if not(IsActive) then
begin
try
app:=CreateOleObject('Excel.Application');
except
ShowMessage('Не открылся');
exit;
end;
end;
App.Workbooks.Add(); 
App.Visible:=true; // вставляем свой текст
App.ActiveWorkBook.WorkSheets[1].Cells[2,2].VAlue:='Понедельник';
App.ActiveWorkBook.WorkSheets[1].Cells[2,3].VAlue:='Вторник';
App.ActiveWorkBook.WorkSheets[1].Cells[2,4].VAlue:='Среда';
App.Range['B2','F2'].Columns.ColumnWidth:=18;
App.Range['B2','F2'].Font.Bold:=true;
end;
procedure TForm1.FormClose(Sender:TObject; var Action:TCloseAction);
begin
APP.ActiveWorkBook.Close(false);
App.Quit;
end;

Вот собственно и фсе=)

[Alar]

DeDoK, в вашем случае все слишком служно, это же тема в стиле "ShellExecute поищи в поиске не забудь добавить модуль ShellApi"

А вы предлагаете весь ексель затащить в Delphi, я конечно только за. спасибо, но добавте Button2, чтобы все творчество сохранить.

[Copperfild]

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

все канешно не так просто как кажецца=)

Говорит Invalid Variant Operation на строке App.Workbooks.Add();

[Copperfild]

Попробовал вот так

ShellExecute(Handle, nil, 'excel.exe', 'Z:\Test Folder\Price Comp\test.xls', nil, SW_SHOW);

Запускается эксель, но потом эксель пишет одно за другим:
Не найден файл Z:\Test
Не найден файл Folder\Price
Не найден файл Comp\test.xls

То есть он типа считает что это неколько файлов... Как решить проблему с пробелами?

[Sibedir]

ShellExecute(Handle, nil, 'excel.exe', '"Z:\Test Folder\Price Comp\test.xls"', nil, SW_SHOW);

[Copperfild]

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

ShellExecute(Handle, nil, 'excel.exe', '"Z:\Test Folder\Price Comp\test.xls"', nil, SW_SHOW);

Спасибо огромное всем, кто помог!