如何双击ListBox中的文件名（如：D:\test.xls），即可打开并编辑该文件？

Question

如题

Answer 1

用SHELL吧在双击事件中写好了呢

Answer 2

to  jjaacc() :
可否说详细点，最好有例子。

Answer 3

procedure TMainForm.Label1Click(Sender: TObject);
var
  Runstr: array[0..100] of Char;
begin
  ShellExecute(Handle, nil,StrPCopy(runstr,ListBox中的东西), nil, nil, SW_SHOW);
end;

Answer 4

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  if FileExists(ListBox1.Items[ListBox1.ItemIndex]) then
  begin
    Try
      ExcelApplication1.Connect;
    Except
      MessageDlg('Excel may not be installed',
      mtError, [mbOk], 0);
      Abort;
    End;
    ExcelApplication1.Visible[0]:=True;
    ExcelApplication1.Caption:='Excel Application';
    ExcelApplication1.Workbooks.Add(Null,0);
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);    ExcelWorksheet1.Cells.Item[1,1]:= ListBox1.Items[ListBox1.ItemIndex];
  end;
end;
//----------窗体上的组件－－－－－－
object ListBox1: TListBox
  Left = 88
  Top = 80
  Width = 121
  Height = 97
  ItemHeight = 13
  Items.Strings = (
    'd:\1.txt')
  TabOrder = 0
  OnClick = ListBox1Click
end
object ExcelWorksheet1: TExcelWorksheet
  AutoConnect = False
  ConnectKind = ckRunningOrNew
  Left = 128
  Top = 8
end
object ExcelApplication1: TExcelApplication
  AutoConnect = False
  ConnectKind = ckRunningOrNew
  AutoQuit = False
  Left = 32
  Top = 8
end
object ExcelWorkbook1: TExcelWorkbook
  AutoConnect = False
  ConnectKind = ckRunningOrNew
  Left = 216
  Top = 8
end