список DLL

← →
stalker780 © (2003-07-01 13:17) [0]

как можно получить список используемых приложением билиотек DLL, BPL?

← →
Armen (2003-07-01 13:42) [1]

CreateToolhelp32Snapshot
Module32First
Module32Next

← →
Семен Сорокин © (2003-07-01 13:52) [2]

утилита Tdump из Delphi7\Bin\

← →
stalker780 © (2003-07-01 13:58) [3]

не. меня средствами Delphi интересует.
У меня есть приложение, и надо чтобы оно само отображало, какие библиотеки оно юзает :)

← →
Луарвик © (2003-07-01 14:00) [4]

Ну ты Сталкер щасливчик! У меня прога ваще библиотеки не юзает:(

← →
Armen (2003-07-01 14:20) [5]

procedure TForm1.Button1Click(Sender: TObject);
var
HSnap: THandle;
ModEntry: TModuleEntry32;
HProc: THandle;
begin
Memo1.Lines.Clear;
FillChar(ModEntry, Sizeof(ModEntry), #0);
ModEntry.dwSize:= Sizeof(ModEntry);
HSnap:= CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, StrtoInt(Edit1.Text));
if Module32First(HSnap, ModEntry) then
begin
repeat
Memo1.Lines.Add(ModEntry.szExePath);
until not Module32Next(HSnap, ModEntry);
end;
end;

В Edit1 можешь писать Process ID с Task Manager-a. (0- твой процесс).

← →
Armen (2003-07-01 14:24) [6]

Поправка

procedure TForm1.Button1Click(Sender: TObject);
var
HSnap: THandle;
ModEntry: TModuleEntry32;
begin
Memo1.Lines.Clear;
FillChar(ModEntry, Sizeof(ModEntry), #0);
ModEntry.dwSize:= Sizeof(ModEntry);
HSnap:= CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, StrtoInt(Edit1.Text));
if Module32First(HSnap, ModEntry) then
begin
repeat
Memo1.Lines.Add(ModEntry.szExePath);
until not Module32Next(HSnap, ModEntry);
end;
CloseHandle(HSnap);
end;

TO Armen
Большое тебе спасибо, то, что нужно.

список DLL Найти похожие ветки