Du kannst dir maximal eine Funktion bauen, dir die eine Liste füllt o.ä. (je nachdem wie flexibel du die funktionen brauchst):
Delphi-Quellcode:
function getProcList(lib:Integer;const FunctionNames:TStringlist):boolean;
var i:integer;
addr:pointer;
begin
result:=true;
for i:=0 to Functionnames.count-1 do
begin
addr:=getprocaddress(lib,pchar(functionNames.names[i]));
if addr=nil then
begin
result:=false;
exit;
end;
Functionnames.ValueFromIndex[i]:=inttostr(integer(addr));
end;
end;
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.