|
Вопрос # 5 975/ вопрос закрыт / |
|
Приветствую, уважаемые эксперты!
На просторах интернета нашел код по поиску окон игры. Но не могу понять, что это за akk и с чем его едят. Прошу кто может прокомментируйте и поясните.
Приложение: Переключить в обычный режим- function EnumProc (h: HWnd; Param: LongInt): Boolean; stdcall; //
Îáÿçàòåëüíî
stdcall !!!
- var
- p:array [0..255] of Char;
- PID,hProc,nbyte,play_addres:dword;
- bufd:dword;
- bufs:array [1..60] of widechar;
- Begin
- GetClassName(h ,p,sizeof(p));
- if p='ElementClient Window' then
- begin
- GetWindowThreadProcessId(h, @PID);
- hProc:=OpenProcess(PROCESS_ALL_ACCESS, False, PID);
- if hProc <> 0 then
- begin
- readprocessmemory(hProc,ptr($009C1514),@bufd,sizeof(dword),nbyte);
- readprocessmemory(hProc,ptr(bufd+$20),@bufd,sizeof(dword),nbyte);
- play_addres:=bufd;
- readprocessmemory(hProc,ptr(bufd+$608),@bufd,sizeof(dword),nbyte);
- readprocessmemory(hProc,ptr(bufd),@bufs,60,nbyte);
- form1.NickBox.Items.Add(string(bufs));
- akk[form1.NickBox.Items.Count-1].Wnd:=h;
- akk[form1.NickBox.Items.Count-1].PID:=PID;
- akk[form1.NickBox.Items.Count-1].play_addres:=play_addres;
- end;
- closehandle(hProc);
- end;
- EnumProc := TRUE;
- end;
-
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- NickBox.Items.Clear; //
Î÷èñòèì
ñïèñîê
ïåðåä
íà÷àëîì
ïîèñêîâ
- EnumWindows (@EnumProc, 0); // è
ñêàæåì -
èñêàòü
- end;
 |
Вопрос задал: Shadrincev (статус: Посетитель)
Вопрос отправлен: 3 марта 2012, 09:29
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 4 марта 2012, 09:28; участников в обсуждении: 3.
3 марта 2012, 10:31: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » COM, ActiveX и взаимодействие с другими приложениями модератором Ерёмин А.А.
|
min@y™ (статус: Доктор наук), 3 марта 2012, 18:54 [#1]:
akk - глобальная переменная-массив, она в приведённом куске не указана.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
Мережников Андрей (статус: Абитуриент), 3 марта 2012, 21:23 [#2]:
Цитата (min@y™):
akk - глобальная переменная
ну может и не глобальная, но в данном куске кода ее объявления точно нет
|
|
Shadrincev (статус: Посетитель), 3 марта 2012, 23:00 [#3]:
Я понял, что это глобальная переменная. Мне больше интересно, что она дает и какое значение может иметь.
|
|
Мережников Андрей (статус: Абитуриент), 4 марта 2012, 09:28 [#4]:
Найдите ее описание в программе. Судя по приведенному куску кода - элемент массива - запись. Вопрос возникает по типу play_address - это, возможно, строка, но вот какой длины можно определить только по описанию
|
4 марта 2012, 23:11: Вопрос закрыт (решение принял автор вопроса — Shadrincev): Всем спасибо, разобрался.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|