Shell Listview Dateien öffnen

[Nugi89]

Hallo liebe Leute,
ich bin neu hier und habe eine Frage zur shell listview.
wie kann ich die Dateien die mir in einer Shell ListvView angezeigt werden öffnen?
Hatte es schon mit shellexecute probiert hab da aber kein Plan von.
Kann mir da einer ne Lösung bieten?
Bin komplett ratlos was ich noch machen kann würde es gerne heute noch schaffen das ich die dateien öffnen kann.
Danke schonmal.

[theo]

Probier's mal damit: http://wiki.lazarus.freepascal.org/opendocument

Z.B. so

Code: Alles auswählen

 
uses ... ComCtrls, LCLIntf;     
 
procedure TForm1.ShellListView1DblClick(Sender: TObject);
var
  Item: TListItem;
  pth: string;
begin
  Item := TShellListView(Sender).Selected;
  if Assigned(Item) then
  begin
    pth := IncludeTrailingPathDelimiter(TShellListView(Sender).Root) + Item.Caption;
    OpenDocument(pth);
  end;
end;  

ReadOnly sollte true sein beim ShellListView.

[Nugi89]

Danke
hat hervorragend geklappt.