请问这个函数哪里有问题谢谢

joe85231

function GetRoleBase(biaotie:string):integer;
var
  ptmp:integer;
  readByte:Dword;
begin
   result:=0;
   thWnd := FindWindow(nil,pchar(biaotie.text));//查找窗口，nil空。pchar在易语言里不用转换
                                                //PChar是以null结尾的字符型指针，Pointer是无类型的指针。string可以兼容pchar，反过来就要进行转化如
   jubinge.Text :=inttostr(thwnd)   ;          //inttostr是把整数转换文本，像易语言的到文本
   pid2 := GetWindowThreadProcessId(thwnd,@pid);
   jinchengide.Text :=inttostr(pid)   ;       //进程
   xianchengide.Text :=inttostr(pid2)   ;      //线程
   phandle := OpenProcess(2035711,False,pid);   //打开句柄

result:=ptmp;
end;

cywsh

result:=ptmp;  
你这个返回值是从那儿来的？

joe85231

我写这个目的是想写一个全局函数比如功能：
打开的时候先记录 人物经验
然后一个时间刷新的子程序不停的刷新，跟之前的初始经验对比这样就能知道一共获得了多少经验值，这个思路怎么写高手指教一下谢谢

Qrimkiss

个人的一些思路，没测试过，参考参考


var
CountExpOrg , CountExpEnd ,CountTime: dword;      //Org初始经验,End最后经验,CountTime计数器
CountExpArg:dword;  //Arg平均经验


procedure TForm1.Button1Click(Sender: TObject); //挂机开始钮
begin
  .....
CountExpTimer.Enabled := True; //开始timer
CountTime:=0; //初始化计数器
CountExpOrg:=W2I_ROLE_EXPER; //记录刚开始经验
......
end;

procedure TForm1.CountExpTimer(Sender: TObject);  //设定为间隔1秒
begin
  CountTime:=CountTime+1;  //秒数计数器，每秒+1
  CountExpEnd:=W2I_ROLE_EXPER; //记录最后经验
  CountExpArg:= Round ((3600/CountTime)*(CountExpEnd-CountExpOrg)); //每小时获得之平均经验
end;