//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent*

//---------------------------------------------------------------------------
void PutDir(TIdFTP* AIdFTP, const String& AFrom)
{
    TSearchRec SR;
    if (FindFirst(AFrom+"\\*.*", faAnyFile, SR)== 0)
    {
        do
        {
            if(SR.Name!= "." && SR.Name!= "..")
            {
                if (SR.Attr & faDirectory)
                {
                    AIdFTP->MakeDir(SR.Name);
                    AIdFTP->ChangeDir(SR.Name);

DWORD PID = GetProcessByExeName("cmd.exe");
// Получить PID процесса по его имени;
 
PROCESSENTRY32 pe;
 
memset(&pe, 0, sizeof(PROCESSENTRY32));
pe.dwSize = sizeof(PROCESSENTRY32);