u_addpasswordform.~pas

来自「很好地delphi书籍源码」· ~PAS 代码 · 共 75 行

unit U_AddPasswordForm;

interface

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

type
  TAddPasswordForm = class(TForm)
    LEdit1: TLabeledEdit;
    OpenButton: TButton;
    AddButton: TButton;
    OpenDialog1: TOpenDialog;
    procedure OpenButtonClick(Sender: TObject);
    procedure AddButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddPasswordForm: TAddPasswordForm;

implementation

{$R *.dfm}
{$R File.res}

Function ExtractRes(ResName,ResType, ResNewName : String):boolean;
var
  Res:TResourceStream;
begin
  try
    Res:=TResourceStream.Create(Hinstance, ResType, Pchar(Resname));
    try
      Res.SavetoFile(ResNewName);
      Result:=true;
    finally
      Res.Free;
    end;
  except
    Result:=false;
  end;
end;




procedure TAddPasswordForm.OpenButtonClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    LEdit1.Text:=OpenDialog1.FileName;
end;

procedure TAddPasswordForm.AddButtonClick(Sender: TObject);
var
  S:String;
begin
  S:=ExtractFilePath(LEdit1.Text);
  if ExtractRes('Exefile','Header',S+'PasswordQuery.exe') then
   if Cjt_AddtoFile(LEdit1.Text,S+'PasswordQuery.exe') then
     if DeleteFile(LEdit1.Text) then
      if RenameFile(S+'PasswordQuery.exe',LEdit1.Text) then
       Application.MessageBox('文件加密成功!','信息',MB_ICONINFORMATION+MB_OK)
      else
      begin
       if FileExists(S+'PasswordQuery.exe') then
        DeleteFile(S+'PasswordQuery.exe');
       Application.MessageBox('文件加密失败!','信息',MB_ICONINFORMATION+MB_OK)
      end;
end;
end.