Выбрасывание вещей по ID

[Доминик]

Можно ли организовать средствами Delphi выбрасывание определённых предметов по их ID? На счёт выбрасывания по номеру ячейки знаю, нужно выбрасывать определённые предметы. Или же нужно читать содержимое каждой ячейки инвентаря?
Заранее спасибо.

[Dinmaite]

Нужно читать значение ячеек инвентаря. И средства Делфи тут не при чем.

[Доминик]

Я как я понял, для считывания ID из ячеек инвентаря, мне нужны следующие оффсеты:
+0CAC InventoryArray /Структура инвентаря/
+0С+[(0-31(40))*4] /Ячейка/
+0x08 ID

Так?

[samosi]

Dinmaite вопрос как мне из Интеджер зделать Хекс значение?

[VeTaL_UA]

Цитата: Сообщение от samosi Dinmaite вопрос как мне из Интеджер зделать Хекс значение?

Я, конечно, не Dinmaite, но подсказать могу:

var
i:integer;
s:string;
begin
i:=1234567890;
s:=IntToHex(i);
end;

[samosi]

Вопрос Правильно ли я считаю все ид моего инвентаря

  for d:=0 to max_z do
  begin
  ReadProcessMemory(hProcess,ptr(PW_BASE_ADDRESS),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$1C),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$34),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$CAC),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$C),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+d),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs*$4),@ibufs,sizeof(ibufs),BCS);
  ReadProcessMemory(hProcess,ptr(ibufs+$08),@bufs,sizeof(bufs),BCS);
  id:=bufs;
  end;

[VeTaL_UA]

Цитата: Сообщение от samosi Правильно ли я считаю все ид моего инвентаря

нет.

var
hProcess,PID,buf,ibuf,BC:DWord;
i:Integer;
j:array [0..31] of Integer;
begin
PID:=GetWindowThreadProcessId(FindWindow('ElementClient Window','Perfect World'),@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);
 for i:=0 to 31 do
  begin
  ReadProcessMemory(hProcess,ptr(BA),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$CAC),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$C),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$4*i),@ibuf,sizeof(ibuf),BC);
  ReadProcessMemory(hProcess,ptr(ibuf+$8),@buf,sizeof(buf),BC);
  j[i]:=buf;
  end;
CloseHandle(hProcess);
end;