摘要：
procedure tform1.button1click(sender: tobject); var hdrivehandle: thandle; procedure tform1.button1click(sender: tobject); const bytespersector = 512; sectorcount = 1; //读写扇区数 sectorstart = 0; //起始扇区......
摘要：
procedure tcomlocatefrm.locatebtnclick(sender: tobject);var setlooptions : tlocateoptions; i : integer; slkeys : tstrings;begin if combobox1.items.indexof(combobox1.text)<0 then try slkeys := tstr......
delphi编写你的第一个com程序
delphi菜单:
file\new\other… 【程序编程相关:
DELPHI常用函数集及简要范例】 【推荐阅读:
多层数据库开发八:访 问 表 格】 【扩展信息:
多层数据库开发六:什么是数据集】
按确定[ok]按钮 点击file\save菜单保存:
输入工程名mycom
按保存按钮
再打开菜单file\new\other…
按[ok}按钮;
在coclassname打入myobject
按ok
在imyobject上按mouse右键
imyobject\new\method
在name处输入test
切换到parameters页次
按add两下
将第一个parameters的name改成psparam1, type打入bstr
将第二个parameters的name改成psresult, type打入bstr*
将mouse点到第二个parameters的modifier字段处...
下一页 摘要：
主要功能：
1 生成指定图片的缩略图2 批量生成某一目录内所有图片缩略图3 提供5中缩略图尺寸定义模式4 目前只支持.jpg格式测试版下载：http://image.myfaq.com.cn/files/20041220/13065.rar核心代码：//保存jpeg的缩略图procedure savepic(sourcefilename,descfilename: string);const ......
