?? untmain_reg.pas
字號:
unit untMain_Reg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,FileCtrl,shellapi, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
BtnBackUp: TButton;
Button3: TButton;
Label2: TLabel;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BtnBackUpClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
time:smallint=0;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
self.Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Dir:string;
begin
//選擇備份文件夾
if SelectDirectory('Select a directory','',Dir) then
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
Edit1.Text:=Dir+'RegBackUp.reg';
end;
form1.SetFocus;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:=extractFilepath(application.ExeName)+'BackUp\RegBackUp.reg';
end;
procedure TForm1.BtnBackUpClick(Sender: TObject);
var
FileName,Para: string;
g:smallint;
begin
FileName:=edit1.Text;
if FileExists(FileName) then
Deletefile(Filename);
Para := ' /e '+FileName;
BtnBackUp.Enabled :=false;
form1.Caption := form1.Caption+' | 正在備份注冊表...請稍后...';
g:=shellexecute(handle,'open','regedit.exe',pchar(Para),'',sw_hide);
sleep(5000);
BtnBackUp.Enabled:=true;
form1.Caption :='備份注冊表';
if FileExists(FileName) then
messagebox(handle,'注冊表備份完畢! ','提示',0+64)
else
messagebox(handle,'注冊表備份失敗! ','提示',0+16)
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -