ITPub博客

首页 > 应用开发 > IT综合 > 取得某一dll所有输出函数名 (转)

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

原创 IT综合 作者:amyz 时间:2007-10-29 08:33:21 0 删除 编辑
取得某一dll所有输出函数名 (转)[@more@]

取得某一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:windowssystemAbcsda.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
//转载请保留此信息


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752019/viewspace-979288/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7338927