testatexpr.obs

格式化源码的最新板

unit testatexpr;interface implementation uses windows;type tfooproc=procedure stdcall
;procedure findthefoo(foohandle:thandle);var fooproc:tfooproc;begin @fooproc:=getprocaddress
(foohandle,'Foo');end;end.