ShellListView Onclick

[cozturk]

ShellListView ile bir klasörün içindeki dosyaları görüntülüyorm. gayet normal. Sağ klik ile windowsun menusu açılıyor. buradan "Aç" , scan vs ne istersek çalıştırabiliyoruz.

Ancak tek tıkladığım zaman ilgili dosya için varsayılan eylemi nasıl çalıştırabilirim? mesela txt dosya ise notepad le açacak.
sağ tuşla oluyor ama tek tıklama ile nasıl olacak?
komponente gerek yok. bi piüf toktası lazım sadece.
not : yaptım





Teşekkürler bu aşağıdaki kod işimi gördü.
if ShellListView1.Selected <> nil then ... demek gerekiyor.

[spiderman]

Kod: Tümünü seç

procedure TForm1.ShellListView1Click(Sender: TObject);
begin
  ShellExecute(Handle,'open',PChar(ShellListView1.RootFolder.PathName+'\'+ShellListView1.SelectedFolder.DisplayName), nil, nil, SW_SHOWNORMAL) ;
end;