Удаление файлов в каталоге после завершения определенного процесса

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "WaitThread.h"
#include "Unit1.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
__fastcall TWaitThread::TWaitThread(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall TWaitThread::Execute()
{
 FreeOnTerminate = true;
 NameThreadForDebugging(UnicodeString(L"Test"));
 
 Synchronize(ButtonDisable);
 
 STARTUPINFO cif;
 ZeroMemory(&cif,sizeof(STARTUPINFO));
 PROCESS_INFORMATION pi;
 
 if (CreateProcess(TEXT("cmd.exe"),NULL,
    NULL,NULL,FALSE,NULL,NULL,NULL,&cif,&pi)==true)
  {
   WaitForSingleObject(pi.hProcess, INFINITE);
   CloseHandle(pi.hProcess);
   CloseHandle(pi.hThread);
  }
  Synchronize(ButtonEnable);
  DeleteDir(L"c:\\test\\");
}
//---------------------------------------------------------------------------
void __fastcall TWaitThread::ButtonDisable()
{
 Form1->Button1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TWaitThread::ButtonEnable()
{
 Form1->Button1->Enabled = true;
}
//---------------------------------------------------------------------------
bool __fastcall TWaitThread::DeleteDir(UnicodeString DirName)
{
TSearchRec sr;
if (DirName.Length())
 {
 if (!FindFirst(DirName+L"\\*.*",faAnyFile,sr))
 do
  {
  if (!(sr.Name==L"." || sr.Name==L".."))// это удалять не надо
   if (((sr.Attr & faDirectory) == faDirectory ) ||
   (sr.Attr == faDirectory))// найдена папка
    {
    FileSetAttr(DirName+L"\\"+sr.Name, faDirectory );// сброс всяких read-only
    DeleteDir(DirName+L"\\"+sr.Name);//рекурсивно удаляем содержимое
    RemoveDir(DirName + L"\\"+sr.Name);// удаляем теперь уже пустую папку
    }
    else// иначе найден файл
    {
    FileSetAttr(DirName+L"\\"+sr.Name, 0);// сброс всяких read-only
    DeleteFile(DirName+L"\\"+sr.Name);// удаляем файл
    }
  }
 while (!FindNext(sr));// ищем опять, пока не найдем все
 FindClose(sr);
 }
RemoveDir(DirName);
return true;
}
//----------------------------------------------------------------------------
void __fastcall StartWaitThread()
{
 TWaitThread *wait = new TWaitThread(false);
}
//----------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef WaitThreadH
#define WaitThreadH
//---------------------------------------------------------------------------
class TWaitThread: public TThread
{
private:
public:
  __fastcall TWaitThread(bool CreateSuspended);
  //__fastcall ~TestThread();
  void __fastcall Execute();
  void __fastcall ButtonEnable(); //Synchronize
  void __fastcall ButtonDisable(); //Synchronize
  bool __fastcall DeleteDir(UnicodeString DirName); //Synchronize
};
void __fastcall StartWaitThread();
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
#include <System.IOUtils.hpp>
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
 
String START = "calc.exe";
String PLUS = "";
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Button1Click(TObject *Sender)
{
  SHELLEXECUTEINFO SEI = {0};
  SEI.cbSize = sizeof(SHELLEXECUTEINFO);
  SEI.fMask = SEE_MASK_NOCLOSEPROCESS;
  SEI.hwnd = NULL;
  SEI.lpVerb = L"open";
  SEI.lpFile = START.c_str();
  SEI.lpParameters = PLUS.c_str();
  SEI.lpDirectory = NULL;
  SEI.nShow = SW_SHOW;
  SEI.hInstApp = NULL;
  ShellExecuteEx(&SEI);
  WaitForSingleObject(SEI.hProcess, INFINITE);
  if(TDirectory::Exists(L"C:\\TMP\\111\\222"))
   {
     TDirectory::Delete(L"C:\\TMP\\111\\222", true);
     TDirectory::CreateDirectory(L"C:\\TMP\\111\\222");
   }
}

#include <vcl.h>
#pragma hdrstop
#include <Tlhelp32.h>
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
 
 
TForm1 *Form1;
 
char* pName;
AnsiString FullPath;
AnsiString Plus;
int REO;
String Capt;
 
__fastcall TForm1::TForm1(TComponent* Owner)
   :TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
   REO = ((TMenuItem *)Sender)->Tag;
   Capt = ((TMenuItem *)Sender)->Caption;
   BitBtn1->Enabled = true;
   switch(REO)
    {
      case 0 : FullPath = "name.exe"; Plus = "параметры запуска";break;
      case 1 : FullPath = "name.exe"; Plus = "параметры запуска";break;
      case 2 : FullPath = "name.exe"; Plus = "параметры запуска";break;
    }
   Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  ShellExecute(NULL,"open",FullPath.c_str(),Plus.c_str(),NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
bool IsProcessRun(char* pName)
{
  HANDLE Hndl = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if(Hndl == INVALID_HANDLE_VALUE) return false;
  PROCESSENTRY32 ProcessEntry;
  ProcessEntry.dwSize = sizeof(ProcessEntry);
  bool Loop = Process32First(Hndl, &ProcessEntry);
  while (Loop)
   {
     if (strcmp(ProcessEntry.szExeFile, pName) == 0)
       {
         CloseHandle(Hndl);
         return true;
       }
     Loop = Process32Next(Hndl, &ProcessEntry);
   }
  return false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  pName = AnsiString(ExtractFileName(FullPath)).c_str();
  if(! IsProcessRun(pName))
   {
 
     BitBtn1->Caption = Capt + " [Off]";
     BitBtn1->Enabled = true;
   }
  else
   {
 
     BitBtn1->Caption = Capt + " [On]";
     BitBtn1->Enabled = false;
   }
  Application->ProcessMessages();
}
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <Tlhelp32.h>
#include "Unit1.h"
#include <System.IOUtils.hpp>
 
#pragma package(smart_init)
#pragma resource "*.dfm"
 
 
TForm1 *Form1;
 
char* pName;
AnsiString FullPath;
AnsiString Plus;
int REO;
String Capt;
 
__fastcall TForm1::TForm1(TComponent* Owner)
   :TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
   REO = ((TMenuItem *)Sender)->Tag;
   Capt = ((TMenuItem *)Sender)->Caption;
   BitBtn1->Enabled = true;
   switch(REO)
    {
      case 0 : FullPath = "name.exe"; Plus = "параметры запуска";break;
      case 1 : FullPath = "name.exe"; Plus = "параметры запуска";break;
      case 2 : FullPath = "name.exe"; Plus = "параметры запуска";break;
    }
   Timer1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  ShellExecute(NULL,"open",FullPath.c_str(),Plus.c_str(),NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
bool IsProcessRun(char* pName)
{
  HANDLE Hndl = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if(Hndl == INVALID_HANDLE_VALUE) return false;
  PROCESSENTRY32 ProcessEntry;
  ProcessEntry.dwSize = sizeof(ProcessEntry);
  bool Loop = Process32First(Hndl, &ProcessEntry);
  while (Loop)
   {
     if (strcmp(ProcessEntry.szExeFile, pName) == 0)
       {
         CloseHandle(Hndl);
         return true;
       }
     Loop = Process32Next(Hndl, &ProcessEntry);
   }
  return false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  pName = AnsiString(ExtractFileName(FullPath)).c_str();
  if(! IsProcessRun(pName))
   {
 
     BitBtn1->Caption = Capt + " [Off]";
     BitBtn1->Enabled = true;
   }
  else
   {
 
     BitBtn1->Caption = Capt + " [On]";
     BitBtn1->Enabled = false;
   }
   {
if(TDirectory::Exists(L"C:\\$FOLDER$")) TDirectory::Delete(L"C:\\$FOLDER$", true);
TDirectory::CreateDirectory(L"C:\\$FOLDER$");
   }
  Application->ProcessMessages();
}
//---------------------------------------------------------------------------