ubak.pas

企业人事管理系统：包括人事信息档案考勤管理培训管理

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.