日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

取得某一dll所有輸出函數名

取得某一dll所有輸出函數名

更新時間:2022-05-16 文章作者:未知 信息來源:網絡 閱讀次數:

在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
//轉載請保留此信息

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 欧美一区亚洲 | 亚洲欧美日韩高清一区二区三区 | 国产永久在线观看 | 视频毛片 | 日韩欧美中文字幕在线观看 | 全部免费毛片在线 | 三级黄色免费网站 | 欧美高清不卡视频 | 中文字幕在线看片成人 | 成人黄色小视频在线观看 | 成人免费在线播放视频 | 永久黄网站色视频免费观看99 | 2021色噜噜狠狠综曰曰曰 | 99在线精品国产不卡在线观看 | 97免费 | 色91在线| 午夜精 | 中文字幕一区二区三区久久网站 | 日产福利视频在线观看 | 亚洲欧美中文字幕高清在线一 | 成人欧美一区二区三区视频不卡 | 99视频精品全部国产盗摄视频 | 狠狠干夜夜 | 欧美视频精品 | 久久精品国产麻豆不卡 | 手机看片福利日韩欧美看片 | 国产精品高清一区二区 | 国产人成午夜免费看 | 日本高清在线观看视频 | 91精品国产免费入口 | 深夜福利一区二区 | 欧美a级v片不卡在线观看 | 久久亚洲福利 | 国产 日韩 欧美在线 | 午夜精品 | 国产三级日产三级韩国三级韩级 | 中文字幕1区 | 欧美日韩无线在码不卡一区二区三区 | 午夜三级做爰视频在线看 | 日本无卡码免费一区二区三区 | 欧美国产综合在线 |