摘要：
感谢 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
注意要把那......
注册文件类型，设置文件图标上一页 ... // shgetfileinfo(pchar(execname), 0, shfileinfo,sizeof(shfileinfo), shgfi_largeicon or shgfi_sysiconindex or shgfi_typename or shgfi_smallicon); //iconindex:=shfileinfo.iicon; 【程序编程相关:
在DELPHI7中不使用任何第三方控件,】 【推荐阅读:
关于 MP3 中的 ID3V2 格式探讨】 //showmessage(inttostr(iconindex)); 【扩展信息:
快捷方式/删除项/EXE自删除DIY】 if (fileext = ) or (execname = ) then exit; {如果文件类型为空或者没有定义执行程序就退出,fileext必须带″.″,如.bmp} reg := tregistry.create; try reg.rootkey := hkey_classes_root; if not reg.openkey(fileext, true) then exit; {当不能正确找到或创建fileext键时退出,这种情况一般是注册表有错误,以下同} reg.writestring(, filetype); if mimetype <> then begin reg.writestring(content type, mimetype); end; ...
下一页 摘要：
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......
