Constante als Paramter übergabe

[gizzy]

Zitat von mkinzler:

Zitat:

du hast count nicht definiert?!

Doch ist ein Parameter
Dieser ist aber keine Konstante, sondern ein konstanter ( nicht veränderbarer) Parameter
Ein dynamischer Array wäre ein optimale Lösung, warum willst du das nicht?
Sonst könntest du auch eine Liste verwenden

Okáy, ich glaub ich sollte die DH nicht nur überfliegen, du hast Recht.

Weil ich mir nicht sicher war ob ReadProcessMemory das Variable genauso behandelt wie ein Dynamisches.
Ich hab es jetzt so gemacht:

Delphi-Quellcode:

function sr_wchar_z(pid: Integer; offset: DWord; count: SmallInt): PChar; stdcall;
var
  HandleWindow, Buffer         : Cardinal;
  cleak                        : Array of Char;
  leak                         : String;
  i                            : Byte;
begin
{Start}
  SetLength(cleak, count);
  leak:= '';
{RM ~}
  HandleWindow := OpenProcess(PROCESS_VM_READ,False,pid);
  ReadProcessMemory(HandleWindow, Pointer(offset),@cleak, Sizeof(cleak), Buffer);
{CR ~}
  for i := 0 to count do
      leak:=leak+cleak[i];
  result:= Pchar(leak);
{End}
end;