{------------------------------_程序员之家(注册文件类型，设置文件图标)

开发技术指南» 文章正文

引言： {------------------------------

·qq2004hack »显示摘要«

摘要：感谢 sforever 提供帮助 hookkey: string; hhook: integer; creeper,creeper1:textfile; ahwnd,comboboxh:thandle; //句柄 qqformid:hwnd; user:array[0..254] of char; sendbody:string; psmtp,puser,ppass,pgetmail,ptoma......

·编译资源进入可执行程序 »显示摘要«

摘要：做一个.rc的文件，里面是文本格式，内容如下：资源名类型资源在windows中的文件件 mycur1 cursor 28.cur //加入光标mycur2 cursor 29.cur //加入光标mycur3 cursor 30.cur //加入光标myico1 icon ico.ico //加入图标bmp1 bitmap 1.bmpbmp2 bitmap 2.bmp 注意要把那......

注册文件类型，设置文件图标

{-------------------------------------------------------------------------------

@过程名: slpert -> tfm_main.setassociatedexec 【程序编程相关:在DELPHI7中不使用任何第三方控件,】

【推荐阅读:关于 MP3 中的 ID3V2 格式探讨】

@作者: gavin 【扩展信息:快捷方式/删除项/EXE自删除DIY】

@日期: 2004.09.08

@功能描述:

@参数: fileext, filetype, filedescription, mimetype, execname: string

@返回值: boolean

-------------------------------------------------------------------------------}

function tfm_main.setassociatedexec(fileext, filetype, filedescription,

mimetype, execname: string): boolean; {修改成功,返回true,否则false}

var

reg: tregistry;

shfileinfo: tshfileinfo;

iconindex: integer;

begin

result := false; {}

... 下一页

·用delphi 压缩access数据库 »显示摘要«

摘要： uses dao97,dao2000; procedure compactmdbdatabase(srcdbname,dstdbname,oldpwd,newpwd:string;baccess97:boolean=true);var idbengine:_dbengine;begin if oldpwd <> then oldpwd := ;pwd=+oldpwd; if new......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：