spublic.pas

来自「一个动画抽奖程序」· PAS 代码 · 共 21 行

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.