How Display Control Panel Applets with Shell Name ?

Hello,

I want like to display the Panel Controls Applet (*.cpl) into a TListview.
With this source code i have the DOS Name (8 +3) but how display the Shell
Name without extension  (ex : Mouse, Keyboard etc. ) as into Panel Control
Folder ?

Thank you very much !

procedure TForm1.ScanApplets;
var
   sr     : TSearchRec;
   sfi     : TSHFileInfo;
   li       : TListItem;
begin
   Listview1.Items.BeginUpdate;
   Listview1.Items.Clear;

   if SysUtils.FindFirst('c:\windows\system\' + '*.cpl', faAnyFile, sr) <> 0
   then Exit;
     repeat

       Fillchar(sfi, SizeOf(TSHFileInfo), 0);

       SHGetFileInfo(pchar('c:\windows\system\'+ sr.Name),0, sfi,
SizeOf(TSHFileInfo),SHGFI_DISPLAYNAME or SHGFI_SYSICONINDEX);

       Li := Listview1.Items.Add;
       Li.Caption := sfi.szDisplayName;      // Displayname like the Shell ?

     until SysUtils.FindNext(sr) <> 0;
   SysUtils.FindClose(sr);

   Listview1.Items.EndUpdate;
end;