Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

работа с памятью [D7, WinME]

John © (2005-02-12 22:41:00)
Const
WindowTitle = 'prog test';
Address = $7D7558;
pokevalue=(edit1.Text); Подскажите как сделать чтоб работало!
NumberOfBytes =1;

kaZaNoVa (2005-02-13 05:32:00) [1]
kaZaNoVa © (13.02.05 5:29) [15]
упс.. извиняюсь, 8-14 не видел, когда писал))

kaZaNoVa (2005-02-13 05:29:00) [2]
John (12.02.05 22:57) [6]
может не в "память", а в переменную, в памяти?
- тогда [7] )))

John (2005-02-12 23:11:00) [3]
buf := PChar(PokeValue);
вроде работат, спасибо. Спокойной ночи, малыши!

Kerk (2005-02-12 23:10:00) [4]
buf := PokeValue;

P.S. сплю я уже.. :)

John (2005-02-12 23:08:00) [5]
Неее, не работает /////incompatible types: pchar и pansichar.

вотневезет

Kerk (2005-02-12 23:06:00) [6]
buf := PChar(PokeValue);

Kerk (2005-02-12 23:05:00) [7]
John (12.02.05 23:04) [9]
buf^ := PChar(PokeValue); ///пишет incompatible types

John (2005-02-12 23:04:00) [8]
var
WindowName : integer;
ProcessId : integer;
ThreadId : integer;
buf : PChar;
HandleWindow : Integer;
write : cardinal;
pokevalue:string;
Const
WindowTitle = 'prog test';
Address = $7D7558;
NumberOfBytes =1;
begin
pokevalue:=edit1.Text;
WindowName := FindWindow(nil,'GTA: Vice City');
If WindowName = 0 then begin
MessageDlg('12345', mtwarning,[mbOK],0);
end;
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,1);
buf^ := Chr(PokeValue); ///пишет incompatible types
WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
FreeMem(buf);
CloseHandle(HandleWindow);

juhn (2005-02-12 23:01:00) [9]
во! щас проверю!

Kerk (2005-02-12 22:58:00) [10]
John (12.02.05 22:57) [6]

var pokevalue: string; begin pokevalue := edit1.text;

?

John (2005-02-12 22:57:00) [11]
Да нандо вводить значение в Edit 1, значение которое нужно записать в память.

Как то же ето можно сделать?

Kerk (2005-02-12 22:54:00) [12]
а зачем тебе такой изврат?

john (2005-02-12 22:53:00) [13]
жаль

Kerk (2005-02-12 22:50:00) [14]
const pokevalue = 'blablabla';
...
edit1.text := pokevalue;

то что ты пишешь.. работать В ПРИНЦИПЕ не будет.

John (2005-02-12 22:49:00) [15]
а че написать чтоб работало, а?

Kerk (2005-02-12 22:47:00) [16]
John (12.02.05 22:41)
pokevalue=(edit1.Text); Подскажите как сделать чтоб работало!

оно не будет работать

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »