close
CreateProcess(nil, PChar('war3.exe'), nil, nil,False, CREATE_SUSPENDED, nil, nil, StartUpInfo,processinfo) ;
Address:= $01C63100;
ResumeThread(ProcessInfo.hThread);
ReadProcessMemory(processInfo.hProcess,pointer(Address),@lpbuffer,4,lpNumberOfBytesRead);
edit1.Text:=inttostr(lpbuffer);
全站熱搜