Ayuda a Pasar Codigo Delphi a C++

[yelian]

Hola a Todos;
Como estan hacia rato no pasaba por aqui a dejar algunas de mi dudas pero bueno ya me ven aquí, espero que me puedan ayudar, como siempre lo han echo.

Bueno mi duda ahora es como pudiera llevar este código de Delphi a C++, es para eliminar una carpeta con todo su contenido, el código lo e sacado de este mismo foros pero no e podido llevarlo a C++,

Código Delphi [-]uses
ShellApi;

procedure DeleteFolder(Folder: String);
var
FileOpInfo: TShFileOpStruct;

begin
FillChar(FileOpInfo, SizeOf(FileOpInfo), 0);
FileOpInfo.wFunc := FO_DELETE;
FileOpInfo.pFrom := PChar(Folder);
FileOpInfo.fFlags := FOF_NOCONFIRMATION;

ShFileOperation(FileOpInfo);
end;


Mi mayor problema es donde pongo en el C++ el "ShellApi"
No se si sera por que no pongo bien el "ShellApi" pero me da error en "FillChar";

Gracias y Saludos...

[[escafandra]]

#include <shellapi.h>


DeleteFolder(String Folder)
{
   SHFILEOPSTRUCT FileOpInfo;
   setmem(&FileOpInfo, sizeof(FileOpInfo), 0);
   FileOpInfo.wFunc = FO_DELETE;
   FileOpInfo.pFrom = Folder.c_str();
   FileOpInfo.fFlags = FOF_NOCONFIRMATION;

   SHFileOperation(&FileOpInfo);
}

Saludos.

[yelian]

Muchísimas gracias escafandra,

Como siempre de muchísima ayuda para este foros,

Bueno tengo otra duda por preguntar, presida a esta pero no la pongo todavía por que estoy buscando por las paginas que tengo acceso a ver si la puedo solucionar, sino puedo encontrar la respuesta la pongo aquí, para ver si me pueden ayudar como siempre lo hacen,
No la pongo ahora por que no me gusta postear algo que no e buscado antes, pregunto las dudas ya cuando no tengo mas Acternativas de búsqueda.

Bueno Muchísimas Gracias y Saludos a Todos...

[yelian]

Hola a todos de nuevo ya esroy a qui de nuevo,
Comos les había contado antes tengo otra duda con otro código,
Pero el de ahora no es problema con el código sino a la hora de llamar a la función.

El código es el siguiente, creo que lo saque de este mismo foros...


void DirList(String sPath, TStrings* strings)
{
TSearchRec sr;
sPath = IncludeTrailingPathDelimiter(sPath);
bool hecho = FindFirst(sPath + "*.*", faAnyFile, sr);
while (!hecho)
{
if ((sr.Attr & faDirectory) && sr.Name != "." && sr.Name != "..")
{
strings->Append(sPath + sr.Name);
DirList(sPath + sr.Name, strings);
}
hecho = FindNext(sr);
}
FindClose(sr);
}


No se si lo estoy llamado de forma correcta o el codigo tiene algún problema,

Llamo a la función así

DirList("C:\\prueba\\*", ) ;

Pero no se que voy a poner como segundo parametro de la función,

Bueno les explico un poco mas de lo que quiero hacer,

Mi idea es hacer un Servicio que cada vez que se ejecute me limpie una carpeta (me borre todo el contenido dentro de ella), pero quisiera darles algunas exclusiones , por que una de las carpetas las cual quiero Limpiar es
"Documents and Settings", pero no quiero borrar todas sus carpetas por que saben que hay varias carpetas que no se pueden borrar de hay,

Bueno Saludos y Gracias a todos...

[[escafandra]]

void DirList(String Dir, TStrings* Salida)
{
    TSearchRec sr;
    if(!FindFirst(Dir + "\\*.*", faAnyFile, sr))
    do{
       if(sr.Name != "." && sr.Name != ".."){
          if(sr.Attr & faDirectory)
             DirList(Dir + "\\" + sr.Name, Salida);
          else
             Salida->Add(Dir + "\\" + sr.Name);
       }
    } while (!FindNext(sr));
    FindClose(sr);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   DirList("C:\\Archivos de programa", ListBox1->Items);
}

Saludos.

[yelian]

Gracias por la Ayuda escafandra

Pero el código me detecta todos los ficheros aunque estén dentro de otro subdirectorio pero no me muestra las carpetas que son las que quiero excluir algunas,