windows下物理内存查看/更改工具(附C源码)~

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" //---------------------------------------------------------------------------- #include "winio.h" #pragma link "WinIo.bcl" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { InitializeWinIo(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormDestroy(TObject *Sender) { ShutdownWinIo(); } //--------------------------------------------------------------------------- unsigned long atoh(char*str) { unsigned long ulValue = 0L; for(int i = 0;i<8;i++) //size of unsigned long is 8 { if(str[i]==0)break; //string over if((str[i]>=0x30)&&(str[i]<=0x39)) //number { ulValue = ulValue*16+str[i]-0x30; } else if((str[i]>=0x41)&&(str[i]<=0x46)) //Upper letter { ulValue = ulValue*16+str[i]-0x37; } else if((str[i]>=0x61)&&(str[i]<=0x66)) //lower letter { ulValue = ulValue*16+str[i]-0x57; } else { ulValue = 0L; break; } } return ulValue; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { DWORD dwMemVal=0; AnsiString tmp; GetPhysLong((PBYTE)atoh((Edit1->Text).c_str()), &dwMemVal ); tmp.sprintf("%08x", dwMemVal); Edit2->Text = tmp; //IntToHex((__int64)dwMemVal,1); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { SetPhysLong((PBYTE)atoh((Edit1->Text).c_str()), atoh((Edit2->Text).c_str())); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { Application->Terminate(); } //---------------------------------------------------------------------------