Constante als Paramter übergabe

[gizzy]

Hi Leute,

bin mal total verpeilt, aber ich bin mir sicher das ich das so nicht machen darf. Habt ihr ein Vorschlag folgendes zu Lösen (Nicht Dynmaisches Array Lösung ).

Delphi-Quellcode:

function sr_wchar_z(pid: Integer; offset: DWord; const count: Integer): PChar; stdcall;
var
  HandleWindow, Buffer         : Cardinal;
  cleak                        : Array [0..count] of Char;
  leak                         : String;
  i                            : Byte;
begin
{Start}
  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;