关于网友提出的“ 大哥们帮忙看看这段代码”问题疑问，本网通过在网上对“ 大哥们帮忙看看这段代码”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 大哥们帮忙看看这段代码描述:
procedure TForm1.setingmu(vercode:string);
var
s:string;
byte1:pchar;
Found:boolean;
byte2:integer;
HProcess,HSnapshot:THandle;
lpNumberOfBytesWritten: DWORD;
appe:TProcessEntry32;
begin
HSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
appe.dwSize:= SizeOf(appe);
found:= Process32First(HSnapshot, appe);
while Integer(found) <> 0 do
begin
try
s:=ExtractFileName(appe.szExeFile);
if (s='main1.exe') then
begin
HProcess:=OpenProcess(PROCESS_ALL_ACCESS,true,appe.th32ProcessID);
byte1:=pchar(vercode);
byte2:=$00554668;
WriteProcessMemory(HProcess,ptr(byte2),byte1,16,lpNumberOfBytesWritten);
exit;
end;
except
end;
Found:=Process32Next(HSnapshot,appe);
end;
CloseHandle(HSnapshot);
end;
大家帮我看看啊，我是想修改mian1.exe这个进程的内存，在win2000下就执行成功，在win98下就不行，内存没有被修改成功，不知道怎么回事？