procedure TForm1.btn1Click(Sender: TObject);
var
add:DWORD;
begin
add:=2;
if (not IsBadReadPtr(Pointer(add),4)) then ShowMessage('1')
else ShowMessage('0');
end;
正常运行，肯定是ShowMessage('0')
但现在有个奇怪的问题，在一些电脑上运行，会崩溃，有大神能指点下吗