unitcreatefile.pas

来自「易游虚拟还原相关程序,易游虚拟还原相关程序」· PAS 代码 · 共 83 行

unit unitCreateFile;

interface

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

type
  TfrmCreateFile = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCreateFile: TfrmCreateFile;

implementation

uses unitMain;

{$R *.dfm}

procedure TfrmCreateFile.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmCreateFile.Button1Click(Sender: TObject);
var
  cvdFileSize:String;
  rc:integer;
  Reg:TRegistry;
begin
  if edit1.Text='' then
  begin
    ShowMessage('请按示例输入要创建的文件大小');
    SetFocus;
    exit;
  end
  else
  begin
    cvdFileSize:=edit1.Text;
    rc:=mksparse(LocalDiskName + cvdFileName,cvdFileSize);
    if rc<>0 then
    begin
      ShowMessage('生成cvd文件失败');
      exit;
    end;
  end;

  rc:=mksparse(LocalDiskName + bakFileName,'1M');
  if rc<>0 then
  begin
    ShowMessage('生成bak文件失败');
    exit;
  end;

  //把cvd文件的大小写入注册表
  Reg:=TRegistry.Create;
  try
    Reg.RootKey:=HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\E-Play',True) then
      Reg.WriteString('cvdFileSize',cvdFileSize);
    finally
      Reg.CloseKey;
      Reg.Free;
    end;

  ShowMessage('创建成功');
end;


end.