熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

如何把選擇的文件圖標顯示在列表中

2013-11-11 21:06:02  來源: Delphi編程 
    ——此文章摘自《Delphi開發經驗技巧寶典》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    本例實現將打開對話框中選擇的文件的圖標和文件名顯示在ListView中雙擊ListView中的圖標可以打開相應文件如圖所示

http://developcsaicn/delphi/images/jpg>
  把選擇的文件圖標顯示在列表中

    通過SHGetFileInfo方法獲取文件的圖標把圖標資源添加到ImageList通過ImageList在ListView中顯示所選文件的圖標雙擊ListView子項時通過ShellExecute方法執行所選中的文件主要代碼如下
    //單擊選擇文件按鈕
    procedure TFormBitBtnClick(Sender: TObject);
    var ListItem: TListItem;
      Flag: Cardinal;
      info: SHFILEINFOA;
      Icon: TIcon;
      OpenDiaLog: TOpenDialog;
    begin
      OpenDiaLog := TOpenDialogCreate(Self);
      if OpenDiaLogExecute then
      begin
       with ListView do
       begin
         LargeImages := ImageList;
         Icon := TIconCreate;
         ListItem := ItemsAdd;
         ListitemCaption := OpenDiaLogFileName;
         Flag := (SHGFI_SMALLICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
         SHGetFileInfo(Pchar(OpenDiaLogFileName) info Sizeof(info) Flag);
         IconHandle := infohIcon;
         ImageListAddIcon(Icon);
         ListItemImageIndex := ImageListCount ;
       end;
      end;
    end;
     //雙擊ListView
    procedure TFormListViewDblClick(Sender: TObject);
    var FileName: string;
      os: OFSTRUCT;
      hFile: THandle;
    begin
      FileName := ListViewSelectedCaption;
      ShellExecute(selfHandle nil PChar(FileName) nil nil SW_SHOW);
    end;


From:http://tw.wingwit.com/Article/program/Delphi/201311/8498.html
  • 上一篇文章:

  • 下一篇文章:
  • 推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.