copyfileunit.pas

来自「教学管理系统源代码」· PAS 代码 · 共 23 行

unit copyfileUnit;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, ComCtrls;

type
  TcopyfileForm = class(TForm)
    Animate1: TAnimate;
    Label1: TLabel;
  end;

var
  copyfileForm: TcopyfileForm;

implementation

{$R *.DFM}

end.