spublic.pas

一个动画抽奖程序

unit sPublic;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

var
  AppPath: string;
  DataInitOK: Boolean = False;
  KJRS: integer = 0;
implementation

initialization
  AppPath := ExtractFilePath(application.ExeName);

finalization

end.