资 源 简 介
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
