请高手帮助用delphi7写一个带Checkbox控件的程序，当Checkbox勾选的时候执行下面的C++程序模块

请高手帮助用delphi7写一个带Checkbox控件的程序，当Checkbox勾选的时候执行下面的C++程序模块

开魔兽战争迷雾的吧， 我自己也用delphi写了个一样的功能，不过一开平台就无效了

邮件已发
地址是我自己查找的，目前仅找了1.20e这个版本的地址

//在Form的Create事件调用SetPrivilege来提升程序权限 //之后再调用ClearTheFog就可以清除迷雾了 //貌似该代码只能清除1.20的连常用的1.20e的都不行 procedure SetPrivilege; var OldTokenPrivileges, TokenPrivileges: TTokenPrivileges; ReturnLength: dword; hToken: THandle; Luid: int64; begin OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken); LookupPrivilegeValue(nil,'SeDebugPrivilege',Luid); TokenPrivileges.Privileges[0].luid := Luid; TokenPrivileges.PrivilegeCount := 1; TokenPrivileges.Privileges[0].Attributes := 0; AdjustTokenPrivileges(hToken, False, TokenPrivileges, SizeOf(TTokenPrivileges), OldTokenPrivileges, ReturnLength); OldTokenPrivileges.Privileges[0].luid := Luid; OldTokenPrivileges.PrivilegeCount := 1; OldTokenPrivileges.Privileges[0].Attributes := TokenPrivileges.Privileges[0].Attributes or SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, False, OldTokenPrivileges, ReturnLength, PTokenPrivileges(nil)^, ReturnLength); end; procedure ClearTheFog; var PID,data :DWORD; hopen,hwar3 :THandle; writeByte :Cardinal; begin hwar3 := FindWindow('Warcraft III','Warcraft III'); if hwar3 = 0 then begin ShowMessage('请先运行Warcraft III'); Exit; end; GetWindowThreadProcessId(hwar3,@PID); hopen := OpenProcess(PROCESS_ALL_ACCESS or PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE,FALSE,PID); try data := $74; WriteProcessMemory(hopen,Pointer($6F4069F0),@data,1,writeByte); data := $8B ; WriteProcessMemory(hopen,Pointer($6F406A0E),@data,1,writeByte); data := $09 ; WriteProcessMemory(hopen,Pointer($6F406A0F),@data,1,writeByte); data := $90 ; WriteProcessMemory(hopen,Pointer($6F406A10),@data,1,writeByte); data := $8B ; WriteProcessMemory(hopen,Pointer($6F406A13),@data,1,writeByte); data := $09 ; WriteProcessMemory(hopen,Pointer($6F406A14),@data,1,writeByte); data := $90 ; WriteProcessMemory(hopen,Pointer($6F406A15),@data,1,writeByte); data := $90 ; WriteProcessMemory(hopen,Pointer($6F29FE20),@data,1,writeByte); data := $90 ; WriteProcessMemory(hopen,Pointer($6F29FE21),@data,1,writeByte); data := $00 ; WriteProcessMemory(hopen,Pointer($6F149198),@data,1,writeByte); data := $40 ; WriteProcessMemory(hopen,Pointer($6F2A0803),@data,1,writeByte); data := $33 ; WriteProcessMemory(hopen,Pointer($6F2A0804),@data,1,writeByte); data := $C0 ; WriteProcessMemory(hopen,Pointer($6F2A0805),@data,1,writeByte); data := $42; WriteProcessMemory(hopen,Pointer($6F2A0806),@data,1,writeByte); data := $33; WriteProcessMemory(hopen,Pointer($6F2A0807),@data,1,writeByte); data := $D2; WriteProcessMemory(hopen,Pointer($6F2A0808),@data,1,writeByte); data := $EB; WriteProcessMemory(hopen,Pointer($6F14A0B4),@data,1,writeByte); data := $EB; WriteProcessMemory(hopen,Pointer($6F2A0703),@data,1,writeByte); finally CloseHandle(hopen); end; end;

qq 29719593

procedure tform1.button1click(sender: tobject); var i:integer; begin for i:=0 to checklistbox1.count -1 do checklistbox1.checked[i] := true; end;

一直审核不过去，郁闷死我了~