取得某一dll所有输出函数名计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:32:47
来源 100Test.Com百考试题网

　　取得某一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