[xteam777]

Не могу разобраться почему функция 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;

[Zorkov Igor]

Код:

AnsiString 

используй

Код:

procedure GetProcedureAddress(var P: Pointer; const ModuleName, ProcName: AnsiString);

[Zorkov Igor]

Внутри такой конструкции

Код:

 PAnsiChar( AnsiString )

[xteam777]

Спасибо. Действительно.

Код:

var
  s: String;
  sa: AnsiString;
  p1, p2: PansiChar;
begin
  s := 'asd123';
  sa := 'asd123';
  p1 := PAnsiChar(s);
  p2 := PAnsiChar(sa);

p1 = 'a' p2 ='asd123'

Админ: Пользуемся тегами при оформлении кода!

Почему идет обрезание строки?

[Zorkov Igor]

F1 Help

[Zorkov Igor]

1. Размер Юникод символа сколько байт?
2. Размер Анси символа сколько байт?