Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 975

/ вопрос закрыт /

Приветствую, уважаемые эксперты!
На просторах интернета нашел код по поиску окон игры. Но не могу понять, что это за akk и с чем его едят. Прошу кто может прокомментируйте и поясните.

Приложение:
  1. function EnumProc (h: HWnd; Param: LongInt): Boolean; stdcall; // Îáÿçàòåëüíî stdcall !!!
  2. var
  3. p:array [0..255] of Char;
  4. PID,hProc,nbyte,play_addres:dword;
  5. bufd:dword;
  6. bufs:array [1..60] of widechar;
  7. Begin
  8. GetClassName(h ,p,sizeof(p));
  9. if p='ElementClient Window' then
  10. begin
  11. GetWindowThreadProcessId(h, @PID);
  12. hProc:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  13. if hProc <> 0 then
  14. begin
  15. readprocessmemory(hProc,ptr($009C1514),@bufd,sizeof(dword),nbyte);
  16. readprocessmemory(hProc,ptr(bufd+$20),@bufd,sizeof(dword),nbyte);
  17. play_addres:=bufd;
  18. readprocessmemory(hProc,ptr(bufd+$608),@bufd,sizeof(dword),nbyte);
  19. readprocessmemory(hProc,ptr(bufd),@bufs,60,nbyte);
  20. form1.NickBox.Items.Add(string(bufs));
  21. akk[form1.NickBox.Items.Count-1].Wnd:=h;
  22. akk[form1.NickBox.Items.Count-1].PID:=PID;
  23. akk[form1.NickBox.Items.Count-1].play_addres:=play_addres;
  24. end;
  25. closehandle(hProc);
  26. end;
  27. EnumProc := TRUE;
  28. end;
  29.  
  30. procedure TForm1.Button2Click(Sender: TObject);
  31. begin
  32. NickBox.Items.Clear; // &#206;&#247;&#232;&#241;&#242;&#232;&#236; &#241;&#239;&#232;&#241;&#238;&#234; &#239;&#229;&#240;&#229;&#228; &#237;&#224;&#247;&#224;&#235;&#238;&#236; &#239;&#238;&#232;&#241;&#234;&#238;&#226;
  33. EnumWindows (@EnumProc, 0); // &#232; &#241;&#234;&#224;&#230;&#229;&#236; - &#232;&#241;&#234;&#224;&#242;&#252;
  34. end;


Shadrincev Вопрос закрыт (ответы не принимаются, мини-форум закрыт)

Вопрос задал: Shadrincev (статус: Посетитель)
Вопрос отправлен: 3 марта 2012, 09:29
Состояние вопроса: закрыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 4 марта 2012, 09:28; участников в обсуждении: 3.

3 марта 2012, 10:31: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » COM, ActiveX и взаимодействие с другими приложениями модератором Ерёмин А.А.

min@y™

min@y™ (статус: Доктор наук), 3 марта 2012, 18:54 [#1]:

akk - глобальная переменная-массив, она в приведённом куске не указана.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 3 марта 2012, 21:23 [#2]:

Цитата (min@y™):

akk - глобальная переменная

ну может и не глобальная, но в данном куске кода ее объявления точно нет :-)
Shadrincev

Shadrincev (статус: Посетитель), 3 марта 2012, 23:00 [#3]:

Я понял, что это глобальная переменная. Мне больше интересно, что она дает и какое значение может иметь.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 4 марта 2012, 09:28 [#4]:

Найдите ее описание в программе. Судя по приведенному куску кода - элемент массива - запись. Вопрос возникает по типу play_address - это, возможно, строка, но вот какой длины можно определить только по описанию

4 марта 2012, 23:11: Вопрос закрыт (решение принял автор вопроса — Shadrincev): Всем спасибо, разобрался.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:29
Выполнено за 0.03 сек.