Ввод текста в адрес

[xRamzeSx]

function write_value(Addres:cardinal;ByteType:integer;
var
GetValue:int64):boolean;
var
  PID,PH:cardinal;
  rw:cardinal;
  exec:boolean;
  H:HWND;
begin
try
  h:=find(windowtitle);
  exec:=true;
  if h=0 then
    exec:=false;
  getwindowthreadprocessid(h,PID);
  PH:=openprocess(process_all_access,false,PID);
  if PH=0 then
    exec:=false;
  if writeprocessmemory(PH,ptr(Addres),@GetValue,ByteType,rw)=false then
    exec:=false;
  closehandle(PH);
  result:=exec;
  finally
end;
end;

[MaxNik2009]

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

function write_value(Addres:cardinal;ByteType:integer;var GetText:string):boolean;

[xRamzeSx]

Исправил, а как это подправить?

procedure TForm1.Button1Click(Sender: TObject);
var
res:int64;
begin
res:=StrToint64(Edit1.Text);
write_value2($000000,4,res);
end;

[Sibedir]

Попробуй так

function write_string(Addres:cardinal; var Value:String):boolean;
var
  PID,PH:cardinal;
  rw:cardinal;
  exec:boolean;
  H:HWND;
  ByteType:integer
begin
ByteType := Length (value);
try
  h:=find(windowtitle);
  exec:=true;
  if h=0 then
    exec:=false;
  getwindowthreadprocessid(h,PID);
  PH:=openprocess(process_all_access,false,PID);
  if PH=0 then
    exec:=false;
  if writeprocessmemory(PH,ptr(Addres),Pointer(Value),ByteType,rw)=false then
    exec:=false;
  closehandle(PH);
  result:=exec;
  finally
end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
write_value($000000, Edit1.Text);
end;

И ни каких StrToint64(Edit1Text);


З.Ы.: Как говорит моя дочка: xRamzeSx, ты меня поражаешь. Ну вот почему у тебя size = 4? Int64 - 8 байт. Строка, как ты сказал, произвольная. Почему же тогда ты пытаешся прочитать/записать именно 4 байта (это уже не в первый раз).
На последок: Учти, что размер записываемой строки должен быть именно таким, каков размер строки во взламываемом процессе. Иначе, ты рискуешь "запороть" данные, хранящиеся сразу за строкой.

[xRamzeSx]

procedure TForm1.Button1Click(Sender: TObject);
begin
write_value($000000, Edit1.Text);
end;

Тут ошибка:
Types of actual and formal var parameters mus be identical

[Sibedir]

procedure TForm1.Button1Click(Sender: TObject);
var
  s:  string;
begin
s := Edit1.Text;
write_value($000000, s);
end;

[xRamzeSx]

Получается отправить только 1 символ и всё, почему???

[Sibedir]

А ты же вроде с Delphi 2010 работаешь? Там AnsiString что-то мутит. Щас попробовать не могу. На работе 10-ка не стоит.

[xRamzeSx]

А от чего это может зависить? Примерно, в какой области?

[Sibedir]

Ну что-то типа

procedure TForm1.Button1Click(Sender: TObject);
var
  s:  PAnsiChar;
begin
s := PAnsiChar (Edit1.Text);
write_value($000000, String (s));
end;

короче, нужно PAnsiChar к String'у привести.