delphi运行出现EAccessVoilaction错误
求解决
下面代码 :
--------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Gameh:THandle;
Gamepid:THandle;
GamehProcess:Thandle;
CallTxt:PWideChar;
begin
Gameh:=FindWindow(nil,'Client');
GetWindowThreadProcessId(Gameh,Gamepid);
Gamehprocess:=openprocess(PROCESS_ALL_ACCESS,False,Gamepid);
CallTxt:=allocmem(512);
CallTxt:='111111111111';
asm
push CallTxt
push 0
mov ecx,$03A53408
mov ebx,$005B0330
call ebx
end;
end;
end.
追问:你QQ号多少 ?加下你 谢谢