Работа с процессом

@.ink · Регистрация: 23.01.2012

Студворк — интернет-сервис помощи студентам

Пишу программу которая вытаскивает координаты из запущенного приложения, но столкнулся с проблемой она нечего не выводит

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure TForm1.Button1Click(Sender: TObject);
var  g,j, dwprocessid: integer;
     op: THandle;
     Data: PWideChar;
     BytesRead, b: DWORD;
     a: string;
    x, y, z: string;
             //float x;
             //float y;
             //float z;
begin
    j:=FindWindow(nil, PChar(process.Text));
    g:=GetWindowThreadProcessId(j, @dwprocessid);
        op:= OpenProcess(PROCESS_ALL_ACCESS, FALSE, g);
          //a:= '0x00925484';
          a:=ver.Caption;
          BytesRead:= 0;
 
        { C++
             ReadProcessMemory(qhnd,(LPVOID)a,&b,4,0); // Считываем указатель
             ReadProcessMemory(qhnd,(LPVOID)(b + 0x20),&a,4,0); // Прибавляем 32 к полученному указателю и снова считываем указатель
             ReadProcessMemory(qhnd,(LPVOID)(a + 0x5FC),&x,4,0); // Считываем X координату
             ReadProcessMemory(qhnd,(LPVOID)(a + 0x600),&y,4,0); // Считываем Y координату
             ReadProcessMemory(qhnd,(LPVOID)(a + 0x604),&z,4,0); // Считываем Z координату
 
        }
           //ReadProcessMemory(OpenProcess, Ptr(Address), @NewValue, Data, CardRead);
             ReadProcessMemory(op, Pointer(a) , @data, 4, BytesRead); // Считываем указатель
             ReadProcessMemory(op, Pointer(data + '0x20'), @a, 4, BytesRead); // Прибавляем 32 к полученному указателю и снова считываем указатель
             ReadProcessMemory(op, Pointer(a + '0x5FC'), @x, 4, BytesRead); // Считываем X координату
             ReadProcessMemory(op, Pointer(a + '0x600'), @y, 4, BytesRead); // Считываем Y координату
             ReadProcessMemory(op, Pointer(a + '0x604'), @z, 4, BytesRead); // Считываем Z координату
             px.Text:= string(x);
             py.Text:= string(y);
             pz.Text:= string(z);
end;

Собственно при нажатии на Button программа ищет запущенное окно, узнает ид процесса и открывает процесс чтоб получить от туда информацию, Есть пример из С++ но я не могу его реализовать в Delphi...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
HANDLE qhnd;
    HWND qwnd;
    DWORD qid;
 
    AnsiString Temp = "fist"; // Имя окна клиента
    char *CN = Temp.c_str();
 
    if(qwnd = FindWindow(NULL, CN)) // Ищем это окно
    {
        GetWindowThreadProcessId(qwnd, &qid); // Получаем ID процесса
 
        if(qhnd = OpenProcess(PROCESS_ALL_ACCESS,0,qid)) // Открываем процесс со всеми правами
        {
             DWORD a;
             DWORD b;
             float x;
             float y;
             float z;
 
             a = 0x00925484; // Генеральный оффсет клиента
 
             ReadProcessMemory(qhnd,(LPVOID)a,&b,4,0); // Считываем указатель
             ReadProcessMemory(qhnd,(LPVOID)(b + 0x20),&a,4,0); // Прибавляем 32 к полученному указателю и снова считываем указатель
 
             ReadProcessMemory(qhnd,(LPVOID)(a + 0x5FC),&x,4,0); // Считываем X координату
             ReadProcessMemory(qhnd,(LPVOID)(a + 0x600),&y,4,0); // Считываем Y координату
             ReadProcessMemory(qhnd,(LPVOID)(a + 0x604),&z,4,0); // Считываем Z координату
 
 
             Form1->PX->Text = x;
             Form1->PY->Text = y;
             Form1->PZ->Text = z;
 
 
             CloseHandle(qhnd); // Закрываем процесс
        }
        else
        {
            ShowMessage("Не удается открыть процесс.");
        }
    }
    else
    {
        ShowMessage("Клиент не найден.");
    }

Прошу мощи ибо я новичок в Delphi

@.ink · 24.01.2012, 12:36 **[ТС]**

Большое спасибо!

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@.ink 3 / 3 / 0 Регистрация: 23.01.2012 Сообщений: 22
	24.01.2012, 12:36 [ТС]
	Большое спасибо! 0