编程论坛 → Delphi论坛

shellListView 问题

cctv19880108 发布于 2007-08-01 20:05， 780 次点击

ShellListView，双击图标不能运行，右键就可以打开，怎
么解决呢？？

1 回复

anthony6342007-08-08 13:28

procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
if ShellListView1.Selected = nil then
begin
Exit;
end;
ShellExecute(0, 'open', PChar(ShellListView1.SelectedFolder.PathName), nil, nil, SW_SHOWNORMAL);
end;