shellexecute 运行问题请大伙帮帮忙

Question

代码如下：
procedure tform1.runprogram;
var
  I:integer;
  path:PCHAr;
begin  I:=listview1.ItemIndex;
  if I>=0 then
    begin
      path:=pchar(listview1.Items[i].SubItems.Text); //这只是部分代码其中listview1.items[i].subitems.text的内容为opendialog1.filename;      ShellExecute(Handle, 'open', path, nil, nil, SW_SHOW);
      showmessage(path);
    end
  else
    exit;
end;问题
  showmessage(path)能显示出PATH为内容（内容为一文件的路径，含文件名），但SHELLexecute不能打开该文件，将PATH参数直接改为该文件的路径名（即SHOWMESSAGE显示的内容），他就能打开了，这是怎么回事？我运行的是EXE程序.  我想让这段代码实现的功能为：点击LISTVIEW1中的项，则打开listview1.Items[i].SubItems.Text中存储的文件，如果点击的是空白地方，则EXIT，这么简单的内容还是出错，请大家帮帮忙，看哪儿错了，或者有没有更好的办法能够达到目的，谢谢各位。

Answer 1

换种方式
调用其对应的打开程序来打开，例如
ShellExecute(Handle, 'open', 'notepad.exe', 'C:\WINDOWS\SchedLgU.Txt', nil, SW_SHOWNORMAL);

Answer 2

可是我的LISTVIEW1里面有很多ITEM啊，而且不是TXT文件

Answer 3

问题解决了： 这句path:=pchar(listview1.Items[i].SubItems.Text);应该改成：path:=pchar(listview1.Items[i].SubItems.string[0]);subitems.text为所有子项的子符串。