ubak.pas

来自「这是一套人事管理系统的源代码」· PAS 代码 · 共 38 行

unit ubak;

interface

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

type
  Tbak = class(TForm)

  private
    { Private declarations }
      protected
    procedure Execute ;
  end;

var
  bak: Tbak;

implementation

uses Unit1;

{$R *.dfm}
  procedure  tbak.Execute;
var
sof,taf:string;

begin
sof:=f_sjbf.getSof;
taf:=f_sjbf.getTaf;
copyfile(pchar(sof),pchar(taf),false) ;
     //showmessage(strmsg);
  { Place thread code here }
end;
end.