Тема: LoadLibrary
Показать сообщение отдельно
  #1  
Старый 19.05.2018, 11:11
xteam777 xteam777 вне форума
Прохожий
 
Регистрация: 14.03.2016
Сообщения: 33
Версия Delphi: RAD XE10
Репутация: 10
По умолчанию LoadLibrary

Не могу разобраться почему функция GetProcedureAddress не работает. И GetModuleHandle и LoadLibrary возвращают 0.

Код:
procedure GetProcedureAddress(var P: Pointer; const ModuleName, ProcName: string);
var
  ModuleHandle: HMODULE;
begin
  if not Assigned(P) then
  begin
    ModuleHandle := GetModuleHandle(PAnsiChar(ModuleName));
    if ModuleHandle = 0 then
    begin
      ModuleHandle := LoadLibrary(PAnsiChar(ModuleName));
      if ModuleHandle = 0 then
        Exit;
    end;
    P := Pointer(GetProcAddress(ModuleHandle, PAnsiChar(ProcName)));
    if not Assigned(P) then
      Exit;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  P: Pointer;
begin
  P := nil;
  GetProcedureAddress(P, 'kernel32.dll', 'GetVersionExA');
end;
Ответить с цитированием