?? bake.pas
字號:
unit bake;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Mask, RzEdit, RzBtnEdt, IniFiles;
type
Tfbake = class(TForm)
Panel1: TPanel;
Label5: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
tb_path: TRzButtonEdit;
sd: TSaveDialog;
procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure tb_pathButtonClick(Sender: TObject);
procedure tb_pathKeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fbake: Tfbake;
implementation
uses vks;
{$R *.dfm}
procedure Tfbake.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tfbake.FormShow(Sender: TObject);
var
path : string;
begin
Caption := Application.Title+'數據備份窗口';
path := pchar(extractfilepath(application.ExeName))+'bak\';
sd.InitialDir := path;
tb_path.Text := path+FormatDateTime('yyyyMMddhhmmss',now)+'.bak';
end;
procedure Tfbake.tb_pathButtonClick(Sender: TObject);
begin
if sd.Execute then tb_path.Text := sd.FileName+'.bak';
end;
procedure Tfbake.tb_pathKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if tb_path.Text='' then tb_pathButtonClick(Sender) else Button1Click(Sender);
end;
end;
procedure Tfbake.Button1Click(Sender: TObject);
var
myini : TIniFile;
path : string;
db : string;
begin
path := pchar(extractfilepath(application.ExeName))+'inc\';
myini := TIniFile.Create(path+'set.ini');
db := myini.ReadString('config','db','');
myini.Free;
try
CopyFile(pchar(path+db),pchar(tb_path.text),false);
vks.info(1100);
except
vks.info(1005);
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -