Fórum Selecionar arquivos do ListView #208411

procedure TForm1.FormCreate(Sender: TObject); var FileInfo: TSHFileInfo; ImageListHandle: THandle; NewPIDL: PItemIDList; begin OLECheck(SHGetDesktopFolder(FIDesktopFolder)); FIShellFolder := FIDesktopFolder; FIDList := TList.Create; ImageListHandle := SHGetFileInfo(´C:\´, 0, FileInfo, SizeOf(FileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON); SendMessage(ListView.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImageListHandle); ImageListHandle := SHGetFileInfo(´C:\´, 0, FileInfo, SizeOf(FileInfo), SHGFI_SYSICONINDEX or SHGFI_LARGEICON); SendMessage(ListView.Handle, LVM_SETIMAGELIST, LVSIL_NORMAL, ImageListHandle); OLECheck( SHGetSpecialFolderLocation( Application.Handle, CSIDL_DRIVES, NewPIDL) ); SetPath(NewPIDL); ActiveControl := cbPath; cbPath.SelStart := 0; cbPath.SelLength := Length(cbPath.Text); end;