有没有浏览器代码？？

寻找用DELPHI编写的一个的浏览器代码！！  
  支持鼠标右键操作文件  
  文件有图标  
  有驱动器  
  有“我的电脑”等。。。。代码最好清晰可懂！！阅读性好  
  如果得到以后一定给分！！  
  问题点数：200、回复次数：9Top

1 楼VSaber（☆浪人☆）回复于 2001-12-22 21:04:34 得分 0

呵呵,webbrowser很容易就满足你的要求了!Top

2 楼dregs2002（伤心人渣）回复于 2001-12-22 21:43:46 得分 0

同意浪人！Top

3 楼gxgxfish0813（笑傲小鱼）回复于 2001-12-22 21:44:33 得分 0

是啊是啊。Top

4 楼thedream（梦幻使者）回复于 2001-12-22 22:08:26 得分 0

用listviewTop

5 楼thedream（梦幻使者）回复于 2001-12-22 22:19:37 得分 200

///////////////////////////////////////////////////////////////////////////  
  //画桌面图标  
  procedure   Txlkj_desktop.drawdesktopicon(sectionname,sectiontype:string);  
  var  
      theitem:tlistitem;  
      ini:tinifile;  
      l:tstringlist;  
      i:integer;  
      commandline:string;  
  begin  
      ini:=tinifile.Create(extractfilepath(application.exename)+PROGRAMININAME);  
      l:=tstringlist.Create;  
      ini.ReadSection(sectionname,l);  
      if   sectiontype='bool'   then  
      begin  
          desktoplv.items.clear;  
          for   i:=0   to   l.count-1   do  
          begin  
              if   ini.ReadBool(sectionname,l.strings[i],false)   then  
              begin  
                  theitem:=desktoplv.Items.Add;  
                  theitem.imageindex:=FOLDERICON;  
                  theitem.OverlayIndex:=-1;  
                  theitem.caption:=l.strings[i];  
                  theitem.SubItems.Text:='open   another   form';  
              end;  
          end;  
      end;  
      if   sectiontype='string'   then   begin  
          for   i:=0   to   l.count-1   do  
          begin  
              commandline:=ini.Readstring(sectionname,l.strings[i],'');  
              theitem:=desktoplv.Items.Add;  
              theitem.imageindex:=GetIconIndex(commandline,FILE_ATTRIBUTE_NORMAL);  
              theitem.OverlayIndex:=SHORTCUTICON;  
              theitem.caption:=l.Strings[i];  
              theitem.subitems.add(commandline);  
          end;  
        end;  
  end;  
  ///////////////////////////////////////////////////////////////////////////  
  //执行桌面图标  
  procedure   Txlkj_desktop.executeicon(commandline:string);  
  var   rundir:string;  
  begin  
      if   FileExists(commandline)   then  
      begin  
          rundir:=extractfiledir(commandline);  
          chdir(rundir);  
          shellexecute(handle,'open',pchar(commandline),nil,@rundir,SW_NORMAL);  
      end  
      else  
      application.messagebox('指定文件不存在,程序不能运行!','错误',MB_OK+MB_ICONEXCLAMATION);  
  end;  
  ///////////////////////////////////////////////////////////////////////////  
   
   
  ///////////////////////////////////////////////////////////////////////////  
  //获得系统图标资源  
  procedure   GetSystemImageList(imagelist:TImageList);  
  var  
      SysIL:   THandle;  
      SFI:   TSHFileInfo;  
  begin  
          SysIL   :=   SHGetFileInfo('',   0,   SFI,   SizeOf(SFI),  
                  SHGFI_SYSICONINDEX   or   SHGFI_LARGEICON);  
          if   SysIL   <>   0   then  
          begin  
              imagelist.Handle   :=   SysIL;  
              imagelist.ShareImages   :=   TRUE;  
          end;  
  end;  
  ///////////////////////////////////////////////////////////////////////////Top

6 楼thedream（梦幻使者）回复于 2001-12-22 22:21:34 得分 0

有用没有啊，我的一个程序里帖出来的Top

7 楼Greenberet（百萬石）回复于 2001-12-23 01:44:07 得分 0

G&ZTop

8 楼sforever（人在江湖飘,谁能不挨刀.）回复于 2001-12-23 08:42:36 得分 0

大家最好给出编译好的代码让我研究一下  
  给个链接地址吧！·！！Top

9 楼sforever（人在江湖飘,谁能不挨刀.）回复于 2001-12-23 08:42:52 得分 0

需要浏览器代码！！！！Top

相关问题

• 代码
• theitem
• desktoplv
• sectionname
• sectiontype
• ini
• begin
• then
• items

• 帖主：sforever
• thedream

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载