Программа в 10 строк на Delphi работает, а в Builder не хочет

@+1 · Регистрация: 24.08.2010

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

Форма, одна кнопка, поле мемо. Программа выводит в мемо список процессов.
В делфи работает без проблем, в билдере - отказано в доступе.
А мне надо этот кусок вставить в прогу С++
Первая проблема с подключением psapi.h (#include <psapi.h>)

C++
1
2
3
[Linker Error] Unresolved external 'EnumProcesses' referenced from C:\MY_PROJECTS\BUILDER\READPROCESS\UNIT1.OBJ
[Linker Error] Unresolved external 'EnumProcessModules' referenced from C:\MY_PROJECTS\BUILDER\READPROCESS\UNIT1.OBJ
[Linker Error] Unresolved external 'GetModuleFileNameExA' referenced from C:\MY_PROJECTS\BUILDER\READPROCESS\UNIT1.OBJ

Пришлось добавить строку

C++
1
#pragma comment(lib,"C:/Program Files/Borland/CBuilder6/Lib/Psdk/psapi.lib")

Чо еще надо - не пойму.
Хелп, плиз!

Borland Delphi 7:

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
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, PsAPI;
-----------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var aProcesses: array [0..$FFF] of DWORD;
i,cbNeeded: cardinal;
hProcess: THandle;
ModName:array[0..max_path] of char;
hMods:hmodule;
 
begin
  if Not EnumProcesses(@aProcesses,SizeOf(aProcesses),cbNeeded) then Exit
  else
    begin
      for i:=0 to cbNeeded div 4-1 do
        begin
            hProcess:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, aProcesses[i]);
            if hProcess>0 then
              begin
               EnumProcessModules(hProcess, @hMods, 4, cbNeeded);
               GetModuleFileNameEx(hProcess, hMods, ModName, sizeof(ModName));
               Memo1.Lines.Add(string(ModName));
               CloseHandle(hProcess);
              end;
        end;
    end;
end;
end.

С++ Builder:

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
#include <windows.h>
#include <stdio.h>
#include <psapi.h>
#include <vcl.h>
#pragma hdrstop
#pragma comment(lib,"C:/Program Files/Borland/CBuilder6/Lib/Psdk/psapi.lib")
#include "Unit1.h"
------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 DWORD aProcesses[0xFFF];
 unsigned long i, cbNeeded;
 HANDLE hProcess;
 char ModName[MAX_PATH];
 HMODULE hMods[1024];
 
 if (! EnumProcesses(aProcesses,sizeof(aProcesses),&cbNeeded)) return;
 else
     {
     for (i=0;i<( cbNeeded/4-1 );i++)
         {
         hProcess=OpenProcess(PROCESS_QUERY_INFORMATION || PROCESS_VM_READ, false, aProcesses[i]);
 
         //==============   MessageBox( GetLastError ) =================================
         LPVOID lpMsgBuf;
         FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
         NULL,GetLastError(),MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),(LPTSTR) &lpMsgBuf,0, NULL );
         MessageBox(NULL, (LPCTSTR)lpMsgBuf, TEXT("Error"), MB_OK); LocalFree( lpMsgBuf );
         //==============================================================================
 
         if (hProcess>0)
             {
             EnumProcessModules(&hProcess, hMods, 4, &cbNeeded);
             GetModuleFileNameEx(hProcess, hMods, ModName, sizeof(ModName));
             Memo1->Lines->Add(ModName);
             CloseHandle(hProcess);
             }
         }
     }
}

@AlexSt · 08.12.2010, 11:51

как то писал программку для работы с процессами, вот ссылка на топик может поможетУбить процесс, зная имя.exe

откомпилировал твою программку без проблем, правда не работает она

@+1 · 08.12.2010, 13:38 **[ТС]**

AlexSt, всё равно на OpenProcess спотыкается.
Вообще, глобальная задача - прочитать пару байт из процесса, зная его FileName.
А ReadProcessMemory просит хэндл процесса.

Добавлено через 35 минут
Ничо не понял.
Исправил

C++
1
2
 HMODULE hMods;
EnumProcessModules(hProcess, &hMods, 4, &cbNeeded);

Всё равно ругается - отказано в доступе, но всё равно работает.

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@AlexSt 61 / 60 / 9 Регистрация: 13.01.2009 Сообщений: 322
	08.12.2010, 11:51
	как то писал программку для работы с процессами, вот ссылка на топик может поможетУбить процесс, зная имя.exe откомпилировал твою программку без проблем, правда не работает она 0