БД ADO Grid

[crit]

Здравствуйте! В общем есть crdbgrid , заполняется он из таблицы эксеса (названия файлов в ячейках такого формата блаблабла .xls), работаю через ADO. Так вот, как как по клику ячейки открывать этот файл формата .xls? все эти файлы лежат у меня вместе с программой.

[_SERGEYX_]

uses ShellAPI;

ShellExecute (Form1.Handle, nil, PChar ('блаблабла .xls'), nil, nil, SW_RESTORE);

[crit]

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

uses ShellAPI;

ShellExecute (Form1.Handle, nil, PChar ('блаблабла .xls'), nil, nil, SW_RESTORE);

я немного не о том, как обработать событие клика по ячейки, и чтобы открылся нужный файл. нужен идентификатор id?

[crit]

в общем сделал так. по клику вызываю файл из папки

if CRDBGrid1.SelectedField.AsString=AdoTable1 ['naimenov']
then

     ShellExecute(0, 'open', PChar(CRDBGrid1.SelectedField.Text ), nil, '' , SW_SHOWNORMAL);

примитивно но работает =\ может кто получше предложит? буду рад.

[Surgeon]

Есть вариант вызвать OLE сервер Excel и отдать ему команду на открытие файла:

var
templatefilename:string;
tmpStrList:TStrings;
 XLApp,Sheet,Colum:Variant;
     begin
      try
       XLapp:=CreateOleObject('Excel.Application');
      except
       ShowMessage('Невозможно запустить Excel');
       exit;
      end;
     end;
     begin
     XLApp.Visible:=true;
     od.Free;
     exit;
     end;
    od.Free;
     XLApp.Workbooks.Open(templatefilename, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam,EmptyParam, EmptyParam);
     Sheet:=XLApp.Workbooks[1].WorkSheets['Лист1'] 
...

У объекта WorkBook в Excel есть функция Open с кучей параметров (детально их назначение можно посмотреть в справке по VBA), её и вызываем.