Главная страница
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.021 c
1-44654
Viktor
2003-07-02 12:28
2003.07.14
Как отследить нажатие Esc?


3-44563
wild_arg
2003-06-19 13:03
2003.07.14
БД MS Access


3-44542
alienka
2003-06-11 12:54
2003.07.14
это реализация ADO такая или руки у меня кривые?


14-44883
Dmitriy O.
2003-06-23 08:25
2003.07.14
---|Ветка была без названия|---


1-44733
Andrew_p
2003-06-27 17:55
2003.07.14
Как изменить в приложении главное окно на другое