unitread.pas

来自「在delphi中实现windows核心编程.原书光盘代码核心编程.原书光盘代码」· PAS 代码 · 共 19 行

unit Unitread;

interface

uses
  SysUtils, WinTypes,WINPROCS, Messages, Classes, Graphics, Controls,
  StdCtrls, Dialogs;

  function Proc16:boolean;export;

implementation

  function Proc16:boolean;
  begin
     showmessage('我是16位代码!');
     result:=true;
  end;
end.