摘要:
需要一个用来注入的dll(inject.dll)及一个调用程序(caller.exe)流程: caller.exeprocedure testhook;var pwnd,hchild, hwndinject :hwnd; msg:tmsg;begin //通过窗口标题用findwindow找到要注入的程序的主窗口句柄pwnd pwnd := findwindow(progman,nil); //......
摘要:
前两天简单实现了一个delphi下的mvc模式,没想到真的就遇到问题了,想想就在不久前和人争论用不用mvc的时候还暗自认为遇到麻烦是功力不够的表现,呵呵,汗啊,报应来得真快。 其实说起来都不是什么大问题,先是重复触发更新的问题。ta有3个属性,每个改动都会change,tb里包含2个属性,每个改动都会它更新内部的一个ta的3个属性,结果我在外面一次改了tb的两个属性,change了6次。这个通......
对“网页内容查询控制”主题所得(下载):
^知道了可以用nmhttp控件下载网页,可是d7找不到这个控件了.^找到了idhttp控件似乎可以实现相同的功能,可是线上关于其的讨论太少 【程序编程相关:
为Windows Service添加服务】 【推荐阅读:
用DELPHI实现对象持久层(-)】^摘录一点代码: 【扩展信息:
自己编写树(Tree)的封装类】
直接采用delphi自带的控件的indy组件为例.新建一个工程,放上一个tidhttp控件,一个tidantifreeze控件,一个tprogressbar用于显示下载进度.最后放上一个tbutton用于开始执行我们的命令.代码如下: procedure tform1.button1click(sender: tobject);//点击按钮的时候开始下载我们的文件 var mystream:tmemorystream; begin idantifreeze1.onlywhenidle:=false;//设置使程序有反应. mystream:=tmemorystream.create; try idhttp1.get(http://www.138soft.com/download/mp3toexe.zip,mystream);//下载我站点的一个zip文件 except//indy控件一般要使用这种try..except结构. showmessage(网络出错!); mystream.free; exit; end; mystream.savetofile(c:\mp3toexe.zip); mystream.free; showmessage(ok); end; procedure tform1.idhttp1workbegin(sender: tobject; aworkmode: tworkmode; ...
下一页 摘要:
uses clipbrd;
function stringgridselecttext(mstringgrid: tstringgrid): string;
var
i, j: integer;
s: string;
begin
result := ;
if not assigned(mstringgrid) then exit;
for j := mstringg......