unit PasswordUnit;

interface

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

type
  TForm1 = class(TForm)
    SetDateBtn: TButton;
    SetNowBtn: TButton;
    DeleteBtn: TButton;
    procedure SetDateBtnClick(Sender: TObject);
    procedure DeleteBtnClick(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses ConstUnit;

{$R *.DFM}


procedure TForm1.SetDateBtnClick(Sender: TObject);
var
  SetDate:TDateTime;
begin
  if (Sender as TControl).Tag>0 then SetDate:=Now else
    SetDate:=TimeStampOf(DatFileName)-15;
  if not SetTimeStamp(DatFileName,SetDate) then
    ShowMessage('ファイルスタンプの変更に失敗しました');
end;

procedure TForm1.DeleteBtnClick(Sender: TObject);
begin
  if MessageDlg
     (DatFileName+#13#10+'を削除してもよろしいですか？'
      ,mtWarning,mbOkCancel,0)=mrCancel then exit;
  DeleteFile(DatFileName);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  InputForm.Free;
end;

end.