取dll所有输出函数名

阿杰

取得某一dll所有输出函数名来源：考试大
　　在uses里加上ImageHlp

1. 
   
2. procedure ListDLLFunctions(DLLName: string; List: TStrings);
   
3. type
   
4.   chararr = array[0..$FFFFFF] of Char;
   
5. var
   
6.   H: THandle;
   
7.   I,
   
8.     fc: integer;
   
9.   st: string;
   
10.   arr: Pointer;
    
11.   ImageDebugInformation: PImageDebugInformation;
    
12. begin
    
13.   List.Clear;
    
14.   DLLName := ExpandFileName(DLLName);
    
15.   if FileExists(DLLName) then
    
16.   begin
    
17.     H := CreateFile(PChar(DLLName), GENERIC_READ, FILE_SHARE_READ or
    
18.       FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    
19.     if H <> INVALID_HANDLE_VALUE then
    
20.     try
    
21.       ImageDebugInformation := MapDebugInformation(H, PChar(DLLName), nil, 0);
    
22.       if ImageDebugInformation <> nil then
    
23.       try
    
24.         arr := ImageDebugInformation^.ExportedNames;
    
25.         fc := 0;
    
26.         for I := 0 to ImageDebugInformation^.ExportedNamesSize - 1 do
    
27.           if chararr(arr^)[I] = #0 then
    
28.           begin
    
29.             st := PChar(@chararr(arr^)[fc]);
    
30.             if Length(st) > 0 then
    
31.               List.Add(st);
    
32.             if (I > 0) and (chararr(arr^)[I - 1] = #0) then
    
33.               Break;
    
34.             fc := I + 1
    
35.           end
    
36.       finally
    
37.         UnmapDebugInformation(ImageDebugInformation)
    
38.       end
    
39.     finally
    
40.       CloseHandle(H)
    
41.     end
    
42.   end
    
43. end;
    
44. 
    
45. procedure TForm1.Button1Click(Sender: TObject);
    
46. var
    
47.   List: TStrings;
    
48.   I: integer;
    
49.   S: string;
    
50. 
    
51. begin
    
52.   List := TStringList.Create;
    
53. 
    
54.   ListDLLFunctions(&#39; c: windowssystemAbcsda.dll&#39; , List);
    
55.   showmessage(inttostr(list.count));
    
56.   S := &#39; List of functions&#39; ;
    
57.   for I := 0 to List.Count - 1 do
    
58.     S := S + #13#10 + List[I];
    
59.   ShowMessage(S);
    
60. 
    
61.   List.Free
    
62. end;
    
63. 
    

复制代码

　　//rock
来源:http://www.examda.com/ncre2/Delphi/zonghe/20090914/081347578.html

wofan

你取到了DLL输出函数名了吗？

wofan

\

感觉这份代码莫名其妙。

wofan

有空我来传一份真正的取DLL输出函数名的delphi代码上来。

wofan

我觉着在这个论坛，Delphi版块很不专业。

ywledoc

wofan 发表于 2011-7-31 17:03
我觉着在这个论坛，Delphi版块很不专业。

这于DELPHI关系不大吧，对PE结构的熟悉程序关系大点。

Tesla.Angela

naylon 发表于 2011-7-31 18:20
这个还是论坛比较冷清，多数人都集中在WIN32内核板块、VB板块。
另外取DLL导出函数的话有个简单的偏方： ...

好像不是【空格】。。。是NULL吧。。。

Tesla.Angela

naylon 发表于 2011-8-7 13:07
好吧我写错了~记事本打开0x20和0x00没区别。。

用notepad++能看到区别。

upring

代码很不错哦