이 프로그램의 구현은 박쥐 자체를 삭제에서 taskkill 호출

절차 TForm1.Label4Click (발신자 : TObject의); 

var에 F : TEXTFILE, 
      A, 디렉터리, APPNAME : 문자열, 
(가) 시작 
  // killself 
  A : = ParamStr에 ( 0 ); 
  디렉터리 : = ExtractFileDir (A) 
  AssignFile (F, 디렉터리 + ' \ delself.bat ' ) 
  APPNAME : = ExtractFileName (Application.ExeName) 
  재기록 (F) 
  경우 Writeln (F, ' 에서 taskkill / F / IM ' + APPNAME) // 제거 파라미터 / I 줄이거 나 정지 실행 / t 설명 : 이렇게 시작 지정된 프로세스와 자식 프로세스를 종료합니다. 
  경우 Writeln (F, ' 핑 127.0.0.1의. 1 -n> NUL ' ); // 추가 지연
  경우 Writeln (F, ' 델 ' +를 PChar ( ' ' ' + PChar는 (a) + ' ' ' )); 
  경우 Writeln (F, ' 델 % 0 ' ); 
  경우 Writeln (F, ' 종료 ' ); 
  closefile (F); 
  winexec (PAnsiChar가 (AnsiString과 (DIR + ' \ delself.bat ' )) SW_HIDE);
끝 ;