摘要：
procedure tcomlocatefrm.locatebtnclick(sender: tobject);var setlooptions : tlocateoptions; i : integer; slkeys : tstrings;begin if combobox1.items.indexof(combobox1.text)<0 then try slkeys := tstr......
摘要：
主要功能：
1 生成指定图片的缩略图2 批量生成某一目录内所有图片缩略图3 提供5中缩略图尺寸定义模式4 目前只支持.jpg格式测试版下载：http://image.myfaq.com.cn/files/20041220/13065.rar核心代码：//保存jpeg的缩略图procedure savepic(sourcefilename,descfilename: string);const ......
windows NT/2000读写物理，逻辑磁盘扇区
procedure tform1.button1click(sender: tobject); var 【程序编程相关:
DBGrid使用全书(五)】 【推荐阅读:
多层数据库开发六:什么是数据集】 hdrivehandle: thandle; 【扩展信息:
多层数据库开发十一:TClientDat】 procedure tform1.button1click(sender: tobject); const bytespersector = 512; sectorcount = 1; //读写扇区数 sectorstart = 0; //起始扇区数 drive = \\.\c:; //驱动盘 var str: string; p: pchar; i: cardinal; begin hdrivehandle := createfile(drive, generic_all, file_share_read or file_share_write, nil, open_existing, 0, 0); if (hdrivehandle <> invalid_handle_value) then begin p := allocmem(sectorcount * bytespersector);//p 必须是新申请的内存或全局变量,不能是局部变量 ...
下一页 摘要：
xpmenu是大名鼎鼎的dephi第三方界面控件，最近在使用中发现了几个bug，并对其中的两个进行修正。1、首先，是绘制菜单和工具栏图标时，会将图像白色部分作为透明色，导致图像缺损非常难看，如下图所示： 查看xpmenu的源代码，图标是通过txpmenu.drawicon函数绘制的，函数内计算了图标显示的位置、调用graybitmap、dimbitmap、drawbitmapshado......
