WEB开发网
开发学院软件开发Delphi 取得某一dll所有输出函数名 阅读

取得某一dll所有输出函数名

 2006-02-04 13:35:53 来源:WEB开发网   
核心提示: 取得某一dll所有输出函数名在uses里加上ImageHlpPRocedure ListDLLFunctions(DLLName: String; List: TStrings);type chararr = array [0..$FFFFFF] of Char; var H: THandle; I, fc
 

取得某一dll所有输出函数名
在uses里加上ImageHlp

PRocedure ListDLLFunctions(DLLName: String; List: TStrings);
type
  chararr = array [0..$FFFFFF] of Char;
  var
  H: THandle;
  I,
  fc: integer;
  st: string;
  arr: Pointer;
  ImageDebugInformation: PImageDebugInformation;
begin
  List.Clear;
  DLLName := ExpandFileName(DLLName);
  if FileExists(DLLName) then
  begin
   H := CreateFile(PChar(DLLName), GENERIC_READ, FILE_SHARE_READ or
    FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
   if H<>INVALID_HANDLE_VALUE then
    try
     ImageDebugInformation := MapDebugInformation(H, PChar(DLLName), nil, 0);
     if ImageDebugInformation<>nil then
      try
       arr := ImageDebugInformation^.ExportedNames;
       fc := 0;
       for I := 0 to ImageDebugInformation^.ExportedNamesSize - 1 do
        if chararr(arr^)[I]=#0 then
        begin
         st := PChar(@chararr(arr^)[fc]);
         if Length(st)>0 then
          List.Add(st);
         if (I>0) and (chararr(arr^)[I-1]=#0) then
          Break;
         fc := I + 1
        end
      finally
       UnmapDebugInformation(ImageDebugInformation)
      end
    finally
     CloseHandle(H)
    end
  end
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStrings;
  I: integer;
  S: String;

begin
  List := TStringList.Create;

  ListDLLFunctions('c:\windows\system\Abcsda.dll', List);
  showmessage(inttostr(list.count));
  S := 'List of functions';
  for I := 0 to List.Count - 1 do
   S := S + #13#10 + List[I];
  ShowMessage(S);

  List.Free
end;

//rock
//转载请保留此信息

Tags:取得 dll 所有

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接