C++ Builder + ASM

void __fastcall TForm1::Button1Click(TObject *Sender)
{ AnsiString s="C:\\1.txt";
   _asm{
lea eax,s
push eax
call DeleteFileA
        }
}

    AnsiString str = "C:/1.txt";
    const char *a = str.c_str();
    int (__stdcall *p)(const char *); //указатель на функцию
    p = ::DeleteFileA;
 
    asm
    {
        push [a]
        call [p]
    }

void __fastcall TForm1::Button3Click(TObject *Sender)
{
         DWORD t1=GENERIC_READ|GENERIC_WRITE;
         DWORD t2=CREATE_NEW;
         DWORD th=FILE_SHARE_READ|FILE_SHARE_WRITE;
   Form3->ShowModal();
         DWORD t3=Form3->t3;
    Edit1->Text=t3;
 
   AnsiString Tsl=Drive1->Text[1];
   AnsiString str =Tsl+":\\"+K+Form3->Edit1->Text;
   Form2->Edit1->Clear();
        const char *a = str.c_str();
 
void * (__stdcall *p)(const char *,unsigned long,unsigned long,_SECURITY_ATTRIBUTES *,unsigned long,unsigned long,void *);
        p = ::CreateFile;
 
       _asm
        {
        push 0
        push [t3]
        push [t2]
        push [th]
        push NULL
        push [t1]
        push [a]
        call [p]
        }
 
 
 
}

    const char *a = "C:/file.txt";
    DWORD ReadWrite = GENERIC_READ | GENERIC_WRITE;
    asm
    {
        push 0
        push FILE_ATTRIBUTE_NORMAL
        push OPEN_ALWAYS
        push NULL
        push FILE_SHARE_READ
        push ReadWrite
        push [a]
        call CreateFile
    }

// Для того чтобы удалить папку и все файлы в ней напишите следующую функцию:
bool DeleteDir(AnsiString DirName)
{
TSearchRec sr;
if (DirName.Length())
 {
 if (!FindFirst(DirName+"\\*.*",faAnyFile,sr))
 do
  {
  if (!(sr.Name=="." || sr.Name==".."))// это удалять не надо
   if (((sr.Attr & faDirectory) == faDirectory ) ||
   (sr.Attr == faDirectory))// найдена папка
    {
    FileSetAttr(DirName+"\\"+sr.Name, faDirectory );// сброс всяких read-only
    DeleteDir(DirName+"\\"+sr.Name);//рекурсивно удаляем содержимое
    RemoveDir(DirName + "\\"+sr.Name);// удаляем теперь уже пустую папку
    }
    else// иначе найден файл
    {
    FileSetAttr(DirName+"\\"+sr.Name, 0);// сброс всяких read-only
    DeleteFile(DirName+"\\"+sr.Name);// удаляем файл
    }
  }
 while (!FindNext(sr));// ищем опять, пока не найдем все
 FindClose(sr);
 }
RemoveDir(DirName);
return true;
}

    SHFILEOPSTRUCT FileCopyStruct;
    FileCopyStruct.hwnd = NULL;
    FileCopyStruct.wFunc = FO_COPY;
    FileCopyStruct.pFrom = "C:/b\0";    //0 в конце обязателен
    FileCopyStruct.pTo = "C:/a/b/\0"; //0 в конце обязателен
    FileCopyStruct.fFlags = FOF_NOCONFIRMATION | FOF_RENAMEONCOLLISION | FOF_MULTIDESTFILES;
    FileCopyStruct.fAnyOperationsAborted = FALSE;
    FileCopyStruct.hNameMappings = NULL;
    FileCopyStruct.lpszProgressTitle = NULL;
 
    SHFileOperation(&FileCopyStruct);