работа с памятью

[Mr_ViK]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    txt: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  WindowName: integer;
ProcessId: integer;
ThreadId: integer;
HandleWindow: Integer;
write, outbytes: cardinal;
buf,too, addr: dword;
pTemp: Pointer;
value: Word;
h: hwnd;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
addr := $04AD94CB;
  HandleWindow :=FindWindow(nil, 'Counter-Strike');
  if(HandleWindow  <> 0) then
  begin
    GetWindowThreadProcessId(HandleWindow  ,@ProcessId);
    h := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
    if(h <> 0) then
    begin
        if(ReadProcessMemory(h, Pointer(addr), @buf, sizeof(DWORD), outbytes) and (outbytes = sizeof(DWORD))) then
        begin
        if buf = 0 then
        begin
        buf:=1851861596
       (тут ошибка) WriteProcessMemory(h, Pointer(addr), @buf, sizeof(DWORD), outbytes)
        end;
        end;
      CloseHandle(h);
    end;
end;
end;
end.

как исправить ошибку
я в delphi только с сегодняшнего дня...
мне нужна dll для VB
вот пишу сижу

[3D Hunter]

Что за ошибка? Вы не озвучили, на что ругается программа. А вообще, идем на MSDN, ищем по сабжу:http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
Скорее всего, правильнее будет так:

WriteProcessMemory(h, @addr, @buf, sizeof(DWORD), @outbytes)

Назовите конкретно, что за ошибка. На что именно ругается.

[Rock-n-Rolla]

(тут ошибка) WriteProcessMemory(h, Pointer(addr), @buf, sizeof(DWORD), outbytes)

где ошибка? в целевом процессе или в текущем? и какая именно?

WriteProcessMemory(h, @addr, @buf, sizeof(DWORD), @outbytes)

нет, надо именно pointer(addr)

[Пепел Феникса]

Скорее всего, правильнее будет так:

второй параметр ни в коем разе.

[3D Hunter]

Поэтому я и предупредил, что возможно так в любом случае, ошибка не озвучена, а вообще в таких случаях нужно обращаться к MSDN.

[Пепел Феникса]

в таких случаях нужно озвучивать ошибку, и говорить когда она возникает, при компиляции или работе кода.

[Mr_ViK]

[Error] Unit1.pas(52): Missing operator or semicolon

вот такая ошибка...
я в интернете лазил там был пример когда было повторение имени..
но тут writeprocessmemory я нигде не использовал, кроме как в функции

извините, я просто дуб дубом в delphi

[Пепел Феникса]

пропустили точку с запятой в конце оператора.
обычно это ошибка связанна с предыдущей строкой к той на которую указывает ошибка.

[Mr_ViK]

Спасибо, вот говорю же дуб дубом... азов даже не знаю.. просто я на делфи никогда не писал, я на бейсике, а тут понадобилась длл на делфи для работы с памятью

[Пепел Феникса]

перевели бы текст ошибки на русский, возможно бы сразу поняли ошибку.