Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Июн

Узнать в delphi приложении — загружена ли dll, какие dll используются программой.

Posted by admin under Delphi, Win Api, Топик-обзор

Мастак:

Можно ли как-то проверить загружена ли определённая dll в память.Желательно это сделать из другого процесса.

fenryr:



unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, tlhelp32;
type

  TForm1 = class(TForm)

    Button1: TButton;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
  type

  TModuleArray = array[0..400] of HMODULE;

  TModuleOption = (moRemovePath, moIncludeHandle);

  TModuleOptions = set of TModuleOption;
implementation
{$R *.dfm}
function GetLoadedDLLList(sl: TStrings;   hProcess : THandle ; Options: TModuleOptions = [moRemovePath]): Boolean;

type

EnumModType = function (hProcess: Longint; lphModule: TModuleArray;

cb: DWord; var lpcbNeeded: Longint): Boolean; stdcall;

var

psapilib: HModule;

EnumProc: Pointer;

ma: TModuleArray;

I: Longint;

FileName: array[0..MAX_PATH] of Char;

S: string;

begin

Result := False;

(* Данная функция запускается только для Widnows NT *)

if Win32Platform <> VER_PLATFORM_WIN32_NT then

Exit;

psapilib := LoadLibrary('psapi.dll');

if psapilib = 0 then

Exit;

try

EnumProc := GetProcAddress(psapilib, 'EnumProcessModules');

if not Assigned(EnumProc) then

Exit;

sl.Clear;

FillChar(ma, SizeOF(TModuleArray), 0);

if EnumModType(EnumProc)(hProcess, ma, 400, I) then

begin

for I := 0 to 400 do

if ma <> 0 then

begin

FillChar(FileName, MAX_PATH, 0);

GetModuleFileName(ma, FileName, MAX_PATH);

if CompareText(ExtractFileExt(FileName), '.dll') = 0 then

begin

S := FileName;

if moRemovePath in Options then

S := ExtractFileName(S);

if moIncludeHandle in Options then

sl.AddObject(S, TObject(ma[I]))

else

sl.Add(S);

end;

end;

end;

Result := True;

finally

FreeLibrary(psapilib);

end;

end;
function findprocess (name : String) : THandle  ;

          var  hsnap : THandle;

              process : ProcessEntry32;

        begin

          Result := 0;

            process.dwSize := SizeOf (process);

               hsnap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0 );

                  while ( Process32Next (hSnap, process)) do  Begin
          if  pos ( name , string(process.szExeFile)  )<> 0  then begin

               Result := OpenProcess(PROCESS_ALL_ACCESS, FALSE, process.th32ProcessID);

               if (Result <> 0)  then exit;

                end;

           end;

        end;