Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.14;
Скачать: CL | DM;

Вниз

список 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;


 
stalker780 ©   (2003-07-01 14:30) [7]

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



Страницы: 1 вся ветка

Текущий архив: 2003.07.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
4-44952
sapsi
2003-05-13 10:55
2003.07.14
Список всех функций внутри ДЛЛ


6-44792
BelchonokH
2003-05-06 21:41
2003.07.14
Broadcast сообщения


14-44840
Юрий Федоров
2003-06-26 17:23
2003.07.14
Перлы горе-переводчика англ. фильмов


1-44744
Pentium 5
2003-07-01 12:51
2003.07.14
TExcelApplication, завершение процесса EXCEL.EXE


14-44819
Достатый
2003-06-25 23:28
2003.07.14
Забодало. Скупой платит дважды.