프로그램에 사용 DLL 목록 가져오기

프로그램에 사용 DLL 목록 가져오기 

728x90

 

 

 

uses

TlHelp32;

 

{$R *.dfm}

 

procedure EnumModules(Strings: TStrings);

var

Snapshot: THandle;

ModuleEntry: TModuleEntry32;

NextModule: BOOL;

begin

Snapshot := CreateToolhelp32Snapshot( TH32CS_SNAPALL, GetCurrentProcessID );

ModuleEntry.dwSize := SizeOf( TModuleEntry32 );

NextModule := Module32First( Snapshot, ModuleEntry );

while NextModule do {델마당만세}

begin

Strings.Add( ModuleEntry.szExePath );

NextModule := Module32Next( Snapshot, ModuleEntry );

end;

CloseHandle( Snapshot );

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

ListBox.Items.Clear;

EnumModules( ListBox.Items );

end;