unit ReadMem



interface



uses

TLHelp32,Windows



function GetMems(PID:longword baseaddress:string= len:integer=0):string //获取指定进程中的～内存数据



implementation



function UpperCase(const S: string): string

var

Ch:Char

L:Integer

Source,Dest: PChar

begin

L := Length(S)

SetLength(Result, L)

Source := Pointer(S)

Dest := Pointer(Result)

while L <> 0 do

begin

Ch := Source^

if (Ch >= a ) and (Ch <= z ) then Dec(Ch, 32)

Dest^ := Ch

Inc(Source)

Inc(Dest)

Dec(L)

end

end -unit ReadMem interface uses TLHelp32. Windows function GetMems (PID : longword baseaddress : string = len : integer = 0) : string / / designated access to the process of memory data implementation FUNCT ion UpperCase (const S : string) : string var Ch : Char L : Integer Source, Dest : PChar begin L : = Length (S) SetLength (Result, L) Source : = Pointer (S) Dest : = Pointer (Result) while L