自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(12)
  • 收藏
  • 关注

转载 .Net读取XP文件夹中的Thumbs.db文件

一般在XP文件夹里面,特别是图片和视频文件夹里有一个文件—Thumbs.db文件。这个文件是XP用来缓存图片和影音文件的缩略图的,有了这个文件,XP在打开保存大量图片文件的文件夹的时候,显示速度会明显比没有Thumbs.db文件的文件夹快—因为后者需要实时生成缩略图。最近在做一个自己的图片管理程序,需要快速生成缩略图,就想到复用这个文件,这样我的程序可以无缝地继承视窗系统的资源管理器功能。因为

2013-10-08 20:10:58 564

转载 VB缩略图缓存thumbs.db查看提取源代码 展示 frmMain.frm源代码

VERSION 5.00Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"Begin VB.Form frmMain    Caption         =   "WinXP缓存缩略图查看提取工具"   ClientHeight    =   585

2013-10-08 20:00:17 1000 1

转载 SHGetFileInfo函数 获取系统文件类型及图标

SHGetFileInfo函数function SHGetFileInfo(pszPath: PAnsiChar; dwFileAttributes: DWORD;  var psfi: TSHFileInfo; cbFileInfo, uFlags: UINT): DWORD; stdcall;pszPath 参数:指定的文件名。 当uFlags的取值中不包含 SHGFI_PID

2013-10-08 15:53:50 813

转载 delphi 获取系统注册的文件图标

var  Icon:TICON;  Key : string;  App : string;  Index : Integer;begin  FileName:=Edit6.Text;  if Pos('.',FileName)   begin    Exit;  end;  with TRegistry.Create do  try    Ro

2013-10-08 15:43:05 857

转载 怎样获取系统图标

---- 大量的图标显示是Windows中的一大特色,丰富多彩的图标不仅美化了Windows的桌面,而且便于直观的操作,给用户带来了极大的方便。可以说在某种程度上,图标的地位已经超过了文件名的作用。---- 但是,当我们用可视化编程工具进行Windows编程时,却很少有方便的方法来加载和显示图标。一般来说,在我们的应用程序中使用到图标资源时都是我们自己亲自绘制出来的。因此,在我们编的程序中

2013-10-08 15:41:51 915

转载 动态获取系统ICON图标

{根据文件的名字得到此文件在系统中对应大小的图标large=true(64*64) false(32*32)}procedure GetFileIcon(TypeName: Widestring; Icon: TIcon;Large:Boolean=False);varstrTmp: Widestring;IndexS, IndexL: HIcon;ShFileInfo: TS

2013-10-07 11:58:21 973

转载 Delphi之virtual,dynamic,abstract

对象的方法能定义成静态(static)、虚拟(virtual)、动态(dynamic)或消息处理(message)。请看下面 的例子: TFoo = class procedure IAmAStatic; procedure IAmAVirtual; virtual; procedure IAmADynamic; dynamic; procedure IAmAMessage

2013-10-04 11:25:13 344

转载 Delphi中TDateTime使用心得

TDateTime是一个比较常用的类型,用于表达日期时间类型的数据。但是,刚刚接触delphi的新手在使用这个类型的时候往往会不知所措,不知道该怎样使用才能得到自己想要的结果。这里说说我在使用过程中的一点心得,其中大部分的内容是来自于delphi帮助,所以如果看了这篇文章对TDateTime还有什么不清楚的可以去看看Delphi的帮助。另外在这篇文章里我也会告诉大家我使用帮助的心得,这对老手或许是

2013-10-03 19:19:14 1071

原创 网络编程三原则

自己总结了几点网络编程的经验,记录下来。网络编程三原则:1、连通2、效率3、安全 解释:1、连通:实现网络可靠连接,可靠实现程序功能 1-1:连接可靠 1-2:功能可靠 1-3:异常处理可靠2、效率:在连通的基础上尽可能提高数据传输效率和速度 2-1:数据处理快--优化数据结构,提高代码效率 2-2:数据传输快--数据尽可能紧凑,必要时压缩数据,

2013-10-02 16:48:44 568

转载 DELPHI中函数、过程变量的声明与应用

Procedure型变量: 在DELPHI中,函数、过程的地址可以赋给一个特殊类型的变量,变量可用如下方式声明: var p : procedure(num:integer); //过程 或: var f : function(num:integer):integer; //函数 也可定义一个过程(或函数)类型,再定义该类型的变量,如: type TMyProc = Pro

2013-10-02 16:09:42 982

转载 Delphi 数据类型列表

Delphi 数据类型列表分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32

2013-10-01 11:07:22 511

原创 delphi的copy函数在复制字符数组时的问题

delphi的copy函数在复制字符数组时对不同起始下标的数组会有完全不同的处理结果.分析如下:当下标从0开始时,无论设置复制长度是多大,copy的结果都会自动以0字符结尾,而下标从1开始时,一切正常.例:var buff:array [0..255] of char;var recbuff:string;var len,i:integer;procedure TF

2013-10-01 10:36:29 1821

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除