//展示一下你的基本功（关于函数指针及API)

Question

//jj为函数指针
jj:= GetProcAddress(getmodulehandle('user32'),'MessageboxW')如何应用jj来调用函数 MessageboxW,详细点，谢谢！

Answer 1

type 
 TMyFunction = function(H: THandle;lpText: PWideChar;lpCaption: PWideChar;uType: Cardinal): Integer;
  if jj<>nil then
  TMyFunction(jj)(0,'123','12',MB_OK);不过我试过了，根本没有加载进user32，所以不会出来

Answer 2

可以出来的，因为是区分大小写的
MessageBoxW
就可以了，你试试看了

Answer 3

type 
 TMyFunction = function(H: THandle;lpText: PWideChar;lpCaption: PWideChar;uType: Cardinal): Integer;procedure TForm1.Button1Click(Sender: TObject);
var
  jj: FarProc;
begin
  jj := GetProcAddress(getmodulehandle('user32'),'MessageBoxW');
  if jj<>nil then
    TMyFunction(jj)(0,'123','12',MB_OK);
end;

Answer 4

TO jmanage(过客) ：
     老兄，你一定是位高人，以后多多向你学习才是！

Answer 5

其实MessageBoxW是用UNICODE的，所以在delphi要转换后才可以用，所以像我上面这样用对话框会出来，显示出来的东西是不对的