Preciso saber, de uma lista de programas abertos quais se utilizam do BDE para acesso a banco de dados, então quero saber se é possível e como faço.
Att
Luiz
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadePreciso saber, de uma lista de programas abertos quais se utilizam do BDE para acesso a banco de dados, então quero saber se é possível e como faço.
Att
Luiz
Uma forma de fazer isso é listar as dll
's que o processo está utilizando, mas se o processo ainda não carregou a dll
que você estiver procurando, esse processo não aparecerá na lista, segue função para detectar a presença de dll
's nos processos.
uses TlHelp32;
TCardinalArray = array of Cardinal;
ECanContinue = class(Exception);
function EnumerateProcessesThatHasLoadedAModule(const AModuleName: String; IncludeCurrentProcess: Boolean = False): TCardinalArray; forward;
function EnumerateProcessesThatHasLoadedAModule(
const AModuleName: String;
IncludeCurrentProcess: Boolean = False): TCardinalArray;
var
ProcessList: array [0..1023] of DWORD;
I, ProcessCount: Integer;
BytesReturnedInProcessList: DWORD;
CurrentProcessID: Cardinal;
UpperModule: String;
IsModulePresent: Boolean;
function IsModuleDetected(const TargetModuleName: String; PID: DWORD): Boolean;
var
ModuleEntry32: TModuleEntry32;
RetVal, ErrorCode: Cardinal;
HasModule: Boolean;
StrModuleName: String;
begin
Result:= False;
repeat
RetVal:= CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
ErrorCode := ERROR_SUCCESS;
if RetVal = INVALID_HANDLE_VALUE then
begin
ErrorCode:= GetLastError;
if ErrorCode <> ERROR_BAD_LENGTH then
begin
if (ErrorCode = ERROR_ACCESS_DENIED) or (ErrorCode = ERROR_PARTIAL_COPY) then
raise ECanContinue.Create(SysErrorMessage(ErrorCode))
else
RaiseLastOSError;
end;
end;
until ErrorCode <> ERROR_BAD_LENGTH;
try
ModuleEntry32.dwSize := SizeOf(ModuleEntry32);
HasModule:= Integer(Module32First(RetVal, ModuleEntry32)) <> 0;
while HasModule do
begin
StrModuleName := ModuleEntry32.szModule;
Result:= UpperCase(StrModuleName) = TargetModuleName;
if Result then
Break
else
HasModule:= Integer(Module32Next(RetVal, ModuleEntry32)) <> 0;
end;
finally
CloseHandle(RetVal);
end;
end;
begin
SetLength(Result, 0);
CurrentProcessID:= GetCurrentProcessId;
UpperModule:= UpperCase(AModuleName);
if EnumProcesses(@ProcessList, 1024, BytesReturnedInProcessList) then
begin
ProcessCount:= BytesReturnedInProcessList div SizeOf(DWORD);
for I:= 0 to ProcessCount-1 do
begin
if (ConsiderCurrentProcess or (CurrentProcessID <> ProcessList[I])) and
//Ignore Idle 'Fake' Process...
(ProcessList[I] <> 0 ) then
begin
try
IsModulePresent:= IsModuleDetected(UpperModule, ProcessList[I]);
//FROM MSDN:
(*
If the specified process is the Idle process or one of the CSRSS processes,
this function fails and the last error code is ERROR_ACCESS_DENIED because their access restrictions
prevent user-level code from opening them.
*)
except
on E: ECanContinue do
IsModulePresent := False;
else
raise;
end;
if IsModulePresent then
begin
SetLength(Result, Length(Result) + 1);
Result[Length(Result) -1] := ProcessList[I];
end;
end;
end;
end
else
RaiseLastOSError;
end;
A chamada da função seria assim:
var PIDs: TCardinalArray;
begin
PIDs:= EnumerateProcessesThatHasLoadedAModule('IDAPI32.DLL');