[Помогите!] Ошибка в Delphi XE2. Skill Sender

[Makasas]

unit walk_function;

interface

uses
  Windows, Dialogs;
procedure Walk(x, y, z: single; WalkMode: dword);

type
  PParams = ^TParams;

  TParams = packed record
    Param1: dword;
    Param2, Param3, Param4: single;
    PW_GAMERUN_ADDR, Walk1, Walk2, Walk3, Walk_Ofs1: Pointer;
  end;

implementation

uses func, main, setup;

const
  PW_BASE_ADDRESS = $B8FBCC;
  PW_GAMERUN_ADDR = $00B9029C;

var
  rw: cardinal;

procedure InjectFunc(ProcessID: cardinal; func, aParams: Pointer;
  aParamsSize: dword);
var
  hThread: THandle;
  lpNumberOfBytes: dword;
  ThreadAddr, ParamAddr: Pointer;
begin
  if ProcessID <> 0 then
  begin
    // ---- Âûäåëÿåì ìåñòî â ïàìÿòè ïðîöåññà, è çàïèñûâàåì òóäà íàøó ôóíêöèþ
    ThreadAddr := VirtualAllocEx(ProcessID, nil, 256, MEM_COMMIT,
      PAGE_READWRITE);
    WriteProcessMemory(ProcessID, ThreadAddr, func, 256, lpNumberOfBytes);

    // ---- Òàêæå çàïèøåì ïàðàìåòðû ê íåé
    ParamAddr := VirtualAllocEx(ProcessID, nil, aParamsSize, MEM_COMMIT,
      PAGE_READWRITE);
    WriteProcessMemory(ProcessID, ParamAddr, aParams, aParamsSize,
      lpNumberOfBytes);

    // ---- Ñîçäàåì ïîòîê, â êîòîðîì âñå ýòî áóäåò âûïîëíÿòüñÿ.
    hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0,
      lpNumberOfBytes);

    // ---- Îæèäàåì çàâåðøåíèÿ ôóíêöèè
    WaitForSingleObject(hThread, INFINITE);

    // ---- ïîä÷èùàåì çà ñîáîé
    CloseHandle(hThread);
    VirtualFreeEx(ProcessID, ParamAddr, 0, MEM_RELEASE);
    VirtualFreeEx(ProcessID, ThreadAddr, 0, MEM_RELEASE);
  end

end;

Ругается на строчку

WriteProcessMemory(ProcessID, ThreadAddr, func, 256, lpNumberOfBytes);

[DCC Error] walk_function.pas(41): E2033 Types of actual and formal var parameters must be identical.
Помогите :с

[dvamaster]

Объяви lpNumberOfBytes как NativeUInt. Это сделали для совместимости с X64.

[fds255]

Попробуй так: lpNumberOfBytes:SIZE_T;

[Makasas]

Короче я уже сделал, объявил как NativeUInt. На строчку

Цитата: WriteProcessMemory(ProcessID, ThreadAddr, func, 256, lpNumberOfBytes);

уже не ругается. Но теперь такая же ошибка на строчке

Цитата: hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes);

Вот код :

Цитата: unit walk_function; interface uses Windows, Dialogs; procedure Walk(x, y, z: single; WalkMode: dword); type PParams = ^TParams; TParams = packed record Param1: dword; Param2, Param3, Param4: single; PW_GAMERUN_ADDR, Walk1, Walk2, Walk3, Walk_Ofs1: Pointer; end; implementation uses func, main, setup; const PW_BASE_ADDRESS = $B8FBCC; PW_GAMERUN_ADDR = $00B9029C; var rw: cardinal; procedure InjectFunc(ProcessID: cardinal; func, aParams: Pointer; aParamsSize: dword); var hThread: THandle; lpNumberOfBytes:NativeUInt; ThreadAddr, ParamAddr: Pointer; begin if ProcessID <> 0 then begin // ---- Âûäåëÿåì ìåñòî â ïàìÿòè ïðîöåññà, è çàïèñûâàåì òóäà íàøó ôóíêöèþ ThreadAddr := VirtualAllocEx(ProcessID, nil, 256, MEM_COMMIT, PAGE_READWRITE); WriteProcessMemory(ProcessID, ThreadAddr, func, 256, lpNumberOfBytes); // ---- Òàêæå çàïèøåì ïàðàìåòðû ê íåé ParamAddr := VirtualAllocEx(ProcessID, nil, aParamsSize, MEM_COMMIT, PAGE_READWRITE); WriteProcessMemory(ProcessID, ParamAddr, aParams, aParamsSize, lpNumberOfBytes); // ---- Ñîçäàåì ïîòîê, â êîòîðîì âñå ýòî áóäåò âûïîëíÿòüñÿ. hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0, lpNumberOfBytes); // ---- Îæèäàåì çàâåðøåíèÿ ôóíêöèè WaitForSingleObject(hThread, INFINITE); // ---- ïîä÷èùàåì çà ñîáîé CloseHandle(hThread); VirtualFreeEx(ProcessID, ParamAddr, 0, MEM_RELEASE); VirtualFreeEx(ProcessID, ThreadAddr, 0, MEM_RELEASE); end end;

[Etliche]

В этой строке не нужно lpNumberOfBytes. Нужно нечто типа cardinal.

[Makasas]

Всё. Уже сделал, теперь не ругается на это ._.
Сделал как сказал fds255, спасибо огромное ! Если кому надо :

var
  hThread: THandle;
  lpNumberOfBytes: SIZE_T;
  lpNumberOfBytes2: dword;
  ThreadAddr, ParamAddr: Pointer;
begin
  if ProcessID <> 0 then
  begin
    // ---- Âûäåëÿåì ìåñòî â ïàìÿòè ïðîöåññà, è çàïèñûâàåì òóäà íàøó ôóíêöèþ
    ThreadAddr := VirtualAllocEx(ProcessID, nil, 256, MEM_COMMIT,
      PAGE_READWRITE);
    WriteProcessMemory(ProcessID, ThreadAddr, func, 256, lpNumberOfBytes);

    // ---- Òàêæå çàïèøåì ïàðàìåòðû ê íåé
    ParamAddr := VirtualAllocEx(ProcessID, nil, aParamsSize, MEM_COMMIT,
      PAGE_READWRITE);
    WriteProcessMemory(ProcessID, ParamAddr, aParams, aParamsSize,
      lpNumberOfBytes);

    // ---- Ñîçäàåì ïîòîê, â êîòîðîì âñå ýòî áóäåò âûïîëíÿòüñÿ.
    hThread := CreateRemoteThread(ProcessID, nil, 0, ThreadAddr, ParamAddr, 0,
    lpNumberOfBytes2);

    // ---- Îæèäàåì çàâåðøåíèÿ ôóíêöèè
    WaitForSingleObject(hThread, INFINITE);

    // ---- ïîä÷èùàåì çà ñîáîé
    CloseHandle(hThread);
    VirtualFreeEx(ProcessID, ParamAddr, 0, MEM_RELEASE);
    VirtualFreeEx(ProcessID, ThreadAddr, 0, MEM_RELEASE);
  end

end;