uback.pas

从同学哪里拷贝来的程序,毕业设计用的,大家看看,有帮助的哦

unit uback;

interface

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

type
  Tback = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  back: Tback;

implementation

uses Unit1;

{$R *.dfm}

procedure Tback.Button3Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
FromBuf, ToBuf: Array [0..128] of Char;
begin
 FillChar(FromBuf, Sizeof(FromBuf), 0 );
FillChar(ToBuf, Sizeof(ToBuf), 0 );
StrPCopy(FromBuf, Pchar(Edit1.Text));
StrPCopy(ToBuf, Pchar(Edit2.Text) );
// 设置OpStruc
with OpStruc do
begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @FromBuf;
pTo:=@ToBuf;
fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= nil;
lpszProgressTitle:= nil;
end ;
if SHFileOperation( OpStruc ) = 0 then
MessageBox(Handle,'复制完毕。','信息',MB_OK+MB_ICONINFORMATION);
end;

procedure Tback.Button1Click(Sender: TObject);
var
  mPath: string;
begin
//opendialog1.execute;
//edit1.text:=opendialog1.Name;
if Selectdirectory('请选择备份路径', 'C:', mPath) then
     edit1.Text := mPath;
end;

procedure Tback.FormCreate(Sender: TObject);
begin
edit2.Text:=form1.GetExePath;
edit1.Text:=form1.GetExePath+'databak\database';
end;

end.