unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  ShellApi;

{$R *.dfm}

//=============================================================================
//  手順
//  (1) このEXEファイルを削除するバッチファイルをこのフォルダ内に作成
//  (2) そのバッチファイルには，自分(バッチファイル)を削除するコードがある
//  (3) EXEの削除を確認したら，バッチファイル自身を削除
//  (4) このプログラムを終了する
//
//  ShellExecuteの使用にはusesにShellApiが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LExeFullPath : String;
  LBatFullPath : String;
  LBatCmdList  : TStringList;
begin
  if DebugHook <> 0 then begin
    MessageBox(Handle, 'デバッグ中は削除できません', '情報', MB_ICONINFORMATION);
    exit;
  end;

  LExeFullPath := ParamStr(0);
  LBatFullPath := ChangeFileExt(LExeFullPath, '.BAT');

  LExeFullPath := AnsiQuotedStr(LExeFullPath, '"');

  LBatCmdList := TStringList.Create;
  //このEXEファイルを削除するバッチファイル作成
  //削除が確認できるまでループする
  try
    LBatCmdList.Add(':Lbl0');
    LBatCmdList.Add('DEL ' + LExeFullPath);
    LBatCmdList.Add('IF EXIST ' + LExeFullPath + ' GOTO Lbl0');
    LBatCmdList.Add('DEL %0');
    LBatCmdList.Add('EXIT');
    LBatCmdList.SaveToFile(LBatFullPath);
  finally
    LBatCmdList.Free;
  end;

  try
    //作成したバッチファイルを実行
    ShellExecute(Handle, '', PChar(LBatFullPath), nil, nil, SW_HIDE);
  except
  end;
  Close;
end;

end.