testatexpr.out

来自「格式化源码的最新板」· OUT 代码 · 共 20 行

unit testatexpr;

interface

implementation

uses Windows;

type
  tfooproc = procedure stdcall;

procedure findthefoo(foohandle: thandle);
var
  fooproc: tfooproc;
begin
  @fooproc := getprocaddress(foohandle, 'Foo');
end;

end.