Einzelnen Beitrag anzeigen

Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: WINAPI-Funktionen Windows Versionsabhängig

  Alt 22. Jan 2008, 21:16
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.
  Mit Zitat antworten Zitat